[hannileo]

(01-11-17, 02:03 PM)الاصيله كتب : اما بالنسبة لنقل معلومات جدول الى اخر فالكود كالتالي

كود :

If RS.State = adStateOpen Then RS.Close
RS.Open "Insert Into Table2 In'" & App.Path & "\db1.mdb" & "'" & _
" Select * From Table1 Where Name Not IN (Select Name From Table2 IN'" & App.Path & _
"\db1.mdb" & "')", DB, adOpenDynamic, adLockOptimistic
MsgBox "تمت العملية بنجاح", vbInformation

---

وهذا طلبك في المثال

شكرا لكم الاخت الأصيلة والاخ سندباد عل المساعدة
بارك الله بكم 
ولكن يوجد عندي مشكلة صغيرة ظهرت بعد الطباعة
هي حجم datagrid بعد الطباعة اذا كانت تحتوي عىل عدد كبير من الحقول فانه يجب ان تاخذ الحجم المناسب للطباعة لكي تظهر الحقول المخفية واخفاء السكرول 
وهل هناك اداة افضل من DATA GRID للطباعة مثل هذه الطريقة  


وشكراً جزيلاً لكم