עקסעס: מאכן לעיבעלס פון א קווערי

[פויער]

למשל איך האב א טעיבל מיט קאסטומערס און איך וויל מאכן לעיבלס צו סטיקן אויף בריוון וכדומה

איך האב געגאגלט און געטראפן א קאוד איך האב געמאכט א קווערי ער עפנט ווארד אבער ער פרינט נאר די ערשטע נאמען
קען מען עס פיקסן?

קאוד: וועל אויס אלע

Function MergeIt()
   Dim objWord As Word.Document
   Set objWord = GetObject("C:\Database\labels.doc", "Word.Document")
   ' Make Word visible.
   objWord.Application.Visible = True
   ' Set the mail merge data source as the Northwind database.
   objWord.MailMerge.OpenDataSource _
      Name:="C:\Database\MyDatabase.mdb", _
      LinkToSource:=True, _
      Connection:="Query tblCustomers Query", _
      SQLStatement:="SELECT * FROM [tblCustomers Query]"
   objWord.MailMerge.Destination = wdSendToNewDocument
objWord.MailMerge.Execute

'The following line must follow the Execute statement because the
'PrintBackground property is available only when a document window i
'active. Without this line of code, the function will end before Word
'can print the merged document.

objWord.Application.Options.PrintBackground = False
objWord.Application.ActiveDocument.PrintOut
End Function

[פריץ]

פארוואס פרינטסטו נישט גראד די לעבעלס פון עקסעס
גיי צי ריפארטס גיי צי NEW
גיי צי לעבל וויזארד

[פריץ]

פרוביר אויס צי עס ארבעט אויב די נעמסט ארויס דעי שורה:

objWord.MailMerge.Execute

און דאס איז די גאנצע קאוד אן דעי שורה

קאוד: וועל אויס אלע

Function MergeIt()
   Dim objWord As Word.Document
   Set objWord = GetObject("C:\Database\labels.doc", "Word.Document")
   ' Make Word visible.
   objWord.Application.Visible = True
   ' Set the mail merge data source as the Northwind database.
   objWord.MailMerge.OpenDataSource _
      Name:="C:\Database\MyDatabase.mdb", _
      LinkToSource:=True, _
      Connection:="Query tblCustomers Query", _
      SQLStatement:="SELECT * FROM [tblCustomers Query]"
   objWord.MailMerge.Destination = wdSendToNewDocument


'The following line must follow the Execute statement because the
'PrintBackground property is available only when a document window i
'active. Without this line of code, the function will end before Word
'can print the merged document.

objWord.Application.Options.PrintBackground = False
objWord.Application.ActiveDocument.PrintOut
End Function

[פריץ]

יעצט גיי צי די ווארד פייל גיי צי טולס גיי צי לעטערס ענד מעילינג גיי צי מעיל מערדזש
וועט ארויסקומען די וויזארד אויף די רעכטע זייט גיי אונטען און דריק ערנדזש לעבלס און דריק די באטטאן אפדעיט אלל לעבלס וועט עס גיין


ביי די וועי איך ווייסנישט פארוואס ביי מיר האט ער נישט געטראפן די אבזעקט "ווארד"
איך האב עס געדארפט אליינס דיפיינען דורך צילייגען די שורה

קאוד: וועל אויס אלע

Dim objWord As Object
Set objWord = CreateObject("Word.Application")

[פויער]

יעצט קומט ארויף די מעסעדזש

[פריץ]

די קואד קען נישט ראנען אויב עקסעס איז אין דיזיין סטעיט דארפסט צימאכען די דעטעבעיס און עס סעיוון און עס צוריק עפענען

[פויער]

שכוח פריץ

אבער יעצט וויל ער פרינטן א ליידיגע פעידש

[פויער]

יעצט איז אקעי

אבער ער נעמט נישט ארויס די גאנצע אינפארמעישאן פון די קווערי נאר די לעצטע שורות די סיטי מיט די זיפ קאוד