ექსესი, მიშველეთ რამე :) ძალიან დავიტანჯე

მოკლედ მაქვს ესეთი პრობლემა: ვცდილობ, 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

ყველაფერი ძალიან კარგად კეთდება, მაგრამ ვინმემ ამიხსენით ეს დამპალი ექსესი ფორმაში არსებულ ცხრილს რატომ არ მიექსპორტებს? ყველაფერი ექსპორტდება ცხრილის გარდა. ვცადე არა ფორმიდან, არამედ ზაპროსიდან, მაგრამ ჩემი ფეხები, იგივე პონტი გააჩალიჩა. ვინმემ დამაკვალიანეთ რა რა ჯანდაბა მოვუხერხო????

მონაცემების გამტანა მიეცი რეპორტში და იქედან ადვილად დაექსპორტებ