وعليكم السلام
في جدول customer_account_sub
اعمل رقم الفاتورة Invoice_No مفتاح اساسي
قم بعمل زر لالحاق جميع البيانات الى الجدول customer account sub dollar من الجدول customer_account_sub ثم ضع الكود التالي
DoCmd.SetWarnings False
Dim strSQL As String
strSQL = "INSERT INTO customer_account_sub ( Customer_Name, [Date], Invoice_No, Invoice_Value ) " & vbCrLf & _
"SELECT [customer account sub dollar].[اسم العميل], [customer account sub dollar].التاريخ, [customer account sub dollar].[رقم الفاتورة], [customer account sub dollar].[قيمة الفاتورة] " & vbCrLf & _
"FROM [customer account sub dollar] ;"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True