01-11-17, 02:03 PM (آخر تعديل لهذه المشاركة : 01-11-17, 02:26 PM {2} بواسطة الاصيله.)
اما بالنسبة لنقل معلومات جدول الى اخر فالكود كالتالي
كود :
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
(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 للطباعة مثل هذه الطريقة
انا لدّي اقتراح اخر هو ارسال ناتج الاستعلام الى الاداة الداتا قريد في الفورم الثاني
و بعد ذلك يتم طباعة الناتج مباشرة الى التقرير سواء داتا ريبورت او اكتيف ريبورت .
(01-11-17, 03:42 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله
انا لدّي اقتراح اخر هو ارسال ناتج الاستعلام الى الاداة الداتا قريد في الفورم الثاني
و بعد ذلك يتم طباعة الناتج مباشرة الى التقرير سواء داتا ريبورت او اكتيف ريبورت .
اهلا استاذ أمير اشكرك عل الرد
ولكن المشكلة انا لم اجرب مطلقا طريقة الداتا ريبورت او الاكتف ريبورت
وخاصة انني اعمل بهذا الاداة Adodc
هل يمكنك مساعدتي بعمل المثال بسيط لكي اتعلمها
وشكرا جزيلا لك
02-11-17, 11:41 AM (آخر تعديل لهذه المشاركة : 02-11-17, 12:11 PM {2} بواسطة hannileo.)
(01-11-17, 04:33 PM)Amir_alzubidy كتب : السلام عليكم ورحمة الله
اهلا بك اخي هاني
هذا تعديل باضافة التقرير الى المشروع :
بارك الله بك وبجهودك استاذ امير
الامر جدا بسيط لم اتوقع ان يكون بهذه السهولة
ولكن هل يمكن وضع كل رقم باص في صفحة طباعة يعني عندما وضعت الارقام 10 الى 15 مثلا اريده ان يظهر كل list للباص في صفحة لطباعته بدل اظهارها جميعاً
ان كان هذا الامر صعباً فلا مشكلة بكل الاحوال
انا اسف على التأخير
لم انتبه حتى الان بأنك قمت بتعديل الرد .
تحتاج في هذه الحالة الى شيء يسمى ب Grouping
ان شاء الله سأقوم بالتعديل المناسب باقرب وقت .