ترحيل سجلات

[WESAMZALL1177]

السلام عليكم كيف حالكم شباب

عندي جدولين / جدول الفواتير/ جدول الفواتير المسدده

اريد ترحيل الفواتير التي تم سداها على جدول الفواتير المسدده مع حذفها من جدول الفواتير ياريت يكون كود برمجي وليس استعلام حذف الحاق

[Khalid Jnb]

السلام عليكم

اخي العزيز الافضل ان ترفق لنا ملفك او مثال لغرض التعديل

اولا :  مثال عن كود لالحاق البيانات بشرط؟ 

' هذا هو كود الالحاق بشرط ان نحتاره مع تغيير اسماء الجداول والحقول
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO table2 ( ت, [اسم الموظف], [مجموع الراتب] )SELECT table1.ت, table1.[اسم الموظف], table1.[مجموع الراتب]FROM table1 WHERE (((table1.ت)=[Forms]![form1]![ت]));"
DoCmd.SetWarnings True
Beep
MsgBox "تم الحاق البيانات بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد"
End Sub

ثانيا : مثال عن كود حذف بيانت الجدول 

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM table2;"
DoCmd.SetWarnings True
MsgBox "تم افراغ الجدول بنجاح", vbMsgBoxRight + vbOKOnly, "تأكيد"
Me.table2.Requery

تحياتي 

ملف مرفق لاحد الاخوة بالموقع

استعلام الحاق و.rar

تم تعديل فبراير 2, 2020 بواسطه خالد سيسكو

[WESAMZALL1177]

يعطيك الف عافيه اخي 

اريد التوضيح قصدي عند سداد فاتوره ويصبح المبلغ صفر يتم ترحيل هذه الفاتوره لجدول الفواتير المسدده وحذفها من جدول الفواتير ولك جزيل الشكر