تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] دمج المراسلات Word مع قاعدة بيانات MDB
#1
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 وما اريده هل هناك كود احسن وشكرا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية اضافة استعلام وحفظه في قاعدة بيانات أبوسعود 4 93 17-05-17, 02:56 PM
آخر رد: أبوسعود
  [سؤال] معرفة اسماء الجداول الموجودة داخل قاعدة بيانات أبوسعود 5 172 15-05-17, 11:28 PM
آخر رد: Ahmed_Mansoor
  [سؤال] كود اضافة سجلات لجدول موجود في قاعدة بيانات باستخدام الاداة adox أبوسعود 2 79 04-05-17, 03:28 AM
آخر رد: أبوسعود
  ارجو المساعدة في اقرب وقت (حول ملأ الكمبو بوكس من جدول في قاعدة البيانات) larbihamri 6 183 01-05-17, 03:06 PM
آخر رد: mosamosa
  [vb6.0] ارجوا المساعدة في اظهار بيانات الفورم الأول في الفورم الثالث عبدالقادرعواد 2 98 22-04-17, 11:00 AM
آخر رد: عبدالقادرعواد
  [سؤال] ادوات ربط قواعد بيانات اكسس أبوسعود 3 120 19-04-17, 02:53 PM
آخر رد: عبد العزيز البسكري
  [vb6.0] طريقة ترقيم عمود في الداتا قريد و حل مشكلة الترقيم التلقائي في قاعدة البيانات larbihamri 9 235 16-04-17, 08:28 PM
آخر رد: larbihamri
  [vb6.0] ممكن شرح طريقة ربط في قاعدة بيانات واحدة بجدولين MSHFlexGrid2+MSHFlexGrid1 عبدالقادرعواد 3 108 11-04-17, 06:08 PM
آخر رد: sendbad100
  هل من الممكن تعديل بيانات عدد من السجلات في الجدول دفعة واحدة كنونو 6 190 01-04-17, 03:56 PM
آخر رد: كنونو
  [ تمّ الحل ] : التّعامل مع بيانات جداول مختلفة عبد العزيز البسكري 5 157 18-03-17, 05:39 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم