تقييم الموضوع :
  • 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 وما اريده هل هناك كود احسن وشكرا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة : قاعدة بيانات البرنامج بعد التنصيب لا تصبح بشكل ملف للقراءة فقط haiderkh 11 300 30-12-16, 11:25 PM
آخر رد: AL_BRNS
  ضغط و إصلاح قاعدة البيانات عبد العزيز البسكري 14 327 12-12-16, 03:00 PM
آخر رد: عبد العزيز البسكري
  كيفية ربط قاعدة البيانات القوائم المنسدلة bidaya 12 306 05-12-16, 01:54 PM
آخر رد: bidaya
  فتح برنامج مبرمج بالفيجوال بيسك6 و قاعدة بيانات MYSQL Ahmed Salem12 1 149 01-12-16, 03:40 PM
آخر رد: sendbad100
  [سؤال] برجاء المساعده في تغيير إسم جدول في قاعدة بيانات SQl Server بالفيجول بيسك6 engabuhema 2 97 24-11-16, 01:49 AM
آخر رد: ahmedabdelaliem
  [سؤال] اظهار بيانات Combo1 في Text iisys 3 212 07-11-16, 06:16 AM
آخر رد: AL_BRNS
  [سؤال] رفع فيديو في قاعدة البيانات jihad20003000 0 93 04-11-16, 02:35 PM
آخر رد: jihad20003000
  احتاج كود لعمل نسخة من قاعدة بيانات اكسس اثناء الاتصال بها sendbad100 3 181 01-11-16, 08:57 AM
آخر رد: sendbad100
  البحث المتقدم في قاعدة بيانات اكسس haniblack 4 223 31-10-16, 10:00 PM
آخر رد: moamen said
Exclamation [سؤال] كيفية تحديث بيانات جدول داخل قاعدة بيانات sql 2000 engabuhema 6 276 27-10-16, 11:28 AM
آخر رد: engabuhema

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


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