نسخ من نموذج الى جدول

[m.saber1981]

السلام عليكم ورحمة الله وبركاته 

 

احتاج تعديل الكود التالي للنسخ من نموذج لجدول

Private Sub Command107_Click()
DoCmd.RunSQL "INSERT INTO trans_head  " & "(trans_num,trans_date) VALUES " & "(trnum, invoice_date);"
   DoCmd.RunSQL "INSERT INTO trans  " & "(trans_num1,acount_num1,debit_amount) VALUES " & "(trnum,me.AX,me.Text36);"
   'DoCmd.RunSQL "INSERT INTO trans  " & "(trans_num1,acount_name1,credit_amount) VALUES " & "(trnum, 'ÇáãÈíÚÇÊ',Text19);"
   MsgBox "POST DONE THANKS"
End Sub
 

حيث ان اسم الجدول في الصور التالية

تم تعديل نوفمبر 15, 2017 بواسطه m.saber1981