+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] دمج المراسلات Word مع قاعدة بيانات MDB (/showthread.php?tid=12736)
دمج المراسلات Word مع قاعدة بيانات MDB - massih - 13-07-15
Dim Wd As New Word.Application
Dim wdMMail As Word.MailMerge
Set Wd = CreateObject("Word.Application")
Wd.Documents.Open App.Path & "\eau.doc"
Set wdMMail = Wd.ActiveDocument.MailMerge
With Wd
.ActiveWindow.Visible = True
.DisplayAlerts = False
wdMMail.OpenDataSource Name:=App.Path & "\base.mdb", _
Format:=wdOpenFormatEncodedText, ConfirmConversions:=True, ReadOnly:=True, sqlstatement:="select * from [table]"
' , ReadOnly:=False, LinkToSource:=True ', Encoding:=1252
wdMMail.Destination = wdSendToNewDocument
wdMMail.Execute pause:=False
'
'Impression
' .ActiveDocument.PrintOut
' .ActiveDocument.PrintPreview
'Fermeture du document et de Word
.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges ' True
'.Quit
End With
استعملت هدا الكود من اجل عمل دمج المراسلات Word مع قاعدة بيانات mdb وما اريده هل هناك كود احسن وشكرا