#27482480 · 21 Sep 2011, 20:57 · · პროფილი · პირადი მიმოწერა · ჩატი
მოკლედ მაქვს ესეთი პრობლემა: ვცდილობ, Access-ის ფორმიდან ავტომატურად გადავიტანო Word-ში გარკვეული ველები სპეციალურ ადგილებში. ვაკეთებ ბუქმარქების დახმარებით, კონკრეტულად აი ამ კოდს: Function funOutputWord(strPathDot As String, strPathWord As String) As Boolean On Error GoTo Err_ Dim app As Word.Application Dim DlgUser As Integer If Dir(strPathWord) <> "" Then DlgUser = MsgBox("xelSekruleba am saxeliT ukve arsebobs. SevcvaloT igi?", vbYesNo, "admin") If DlgUser = vbNo Then Set app = CreateObject("Word.Application") With app .Visible = True .Documents.Open strPathWord End With Set app = Nothing Else GoTo nn End If Else nn: Set app = New Word.Application app.Visible = True app.Documents.Add strPathDot With app.ActiveDocument .Bookmarks.Item("organizacia").Range.Text = Nz(organizacia, "") .Bookmarks.Item("kodi").Range.Text = Nz(Identification_code, "") .Bookmarks.Item("TariRi").Range.Text = Nz(Order_Date, "") .Bookmarks.Item("direqtori").Range.Text = Nz(kontaqti, "") .Bookmarks.Item("SekveTa").Range.Text = Nz(Me.sbfOrderDetails, "") .SaveAs strPathWord End With Set app = Nothing End If funOutputWord = True Exit_: Exit Function Err_: funOutputWord = False Err.Clear app.Quit Resume Exit_ End Function
ყველაფერი ძალიან კარგად კეთდება, მაგრამ ვინმემ ამიხსენით ეს დამპალი ექსესი ფორმაში არსებულ ცხრილს რატომ არ მიექსპორტებს? ყველაფერი ექსპორტდება ცხრილის გარდა. ვცადე არა ფორმიდან, არამედ ზაპროსიდან, მაგრამ ჩემი ფეხები, იგივე პონტი გააჩალიჩა. ვინმემ დამაკვალიანეთ რა რა ჯანდაბა მოვუხერხო????
|