توليد سند قسط من قاتورة بيع اوشراء

[m.saber1981]

السلام عليكم السؤال لمحترفي الاكسس
المطلوب فكرة توليد قيد الي لفاتورة البيع اوالشراء مع حجز رقم في سند القيد؟؟؟

[Elsayed Bn Gemy]

اخى الكريم ارجو ارفاق مثالا معغ الشرح عليه

[m.saber1981]

http://recordit.co/2fIJvFNMC6
 

[Elsayed Bn Gemy]

اخى الكريم تم استعمال الاكواد التالية

If Me.Combo5 = "مبيع" Then
DoCmd.SetWarnings False
   DoCmd.RunSQL "INSERT INTO trans_head  " & "(trans_num,trans_date) VALUES " & "(trnum, invoice_date);"
   DoCmd.RunSQL "INSERT INTO trans  " & "(trans_num1,acount_name1,debit_amount) VALUES " & "(trnum, 'الصندوق',Text19);"
   DoCmd.RunSQL "INSERT INTO trans  " & "(trans_num1,acount_name1,credit_amount) VALUES " & "(trnum, 'المبيعات',Text19);"
   DoCmd.SetWarnings True
MsgBox "تم ترحيل القيد بنجاح", vbInformation, "قيد مبيعات"


Else

If Me.Combo5 = "شراء" Then
DoCmd.SetWarnings False

   DoCmd.RunSQL "INSERT INTO trans_head  " & "(trans_num,trans_date) VALUES " & "(trnum, invoice_date);"
   DoCmd.RunSQL "INSERT INTO trans  " & "(trans_num1,acount_name1,debit_amount) VALUES " & "(trnum, 'المشتريات',Text19);"
   DoCmd.RunSQL "INSERT INTO trans  " & "(trans_num1,acount_name1,credit_amount) VALUES " & "(trnum, 'الصندوق',Text19);"
   DoCmd.SetWarnings True
MsgBox "تم ترحيل القيد بنجاح", vbInformation, "قيد شراء"
End If
End If

 

 

طريقة العمل

http://g.recordit.co/CHybNVntER.gif

 

المرفق

fruit twig(2).rar

تم تعديل مايو 24, 2016 بواسطه Elsayed Bn Gemy

[m.saber1981]

السيد بن جيمي
مشكووووووور وشغل رائع جدا جزيت الف خير عليه

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

[Elsayed Bn Gemy]

المعزرة لك يااخى

 

fruit twig.rar

[m.saber1981]

جزيت خير elsayed bn gemy

 

تم تعديل مايو 25, 2016 بواسطه m.saber1981