السلام عليكم ورحمة الله وبركاته
احتاج تعديل الكود التالي للنسخ من نموذج لجدول
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
حيث ان اسم الجدول في الصور التالية