نقل جميع البيانات من النموذج إلى جدول

يمكنك أن تجرب التعديل التالي في كود هذا الزر:

Private Sub ÃãÑ23_Click()
    If MsgBox("هل تريد بالتأكيد حفظ البيانات؟", vbInformation + vbYesNo, "حفظ") = vbYes Then
        With Me.RecordsetClone
            .MoveFirst
            While Not .EOF
                DBEngine(0)(0).Execute "INSERT INTO proce (id, adate, amount) " & _
                                       "VALUES (" & .Fields("id") & ", '" & Me.d & "', " & Me.s & ")"
                .MoveNext
            Wend
        End With
    End If
End Sub

كما في الملف المرفق... والله أعلم.

مثال.rar

بارك الله فيك أخ أحمد وكل عام وأنت بخير

أريد أن أدخل لكل عميل مبلغ مختلف عن الآخر فهل يمكن ذلك ؟

وفيك بارك الله أخي... نعم يمكن ذلك لكن عبر تحايل بسيط، وذلك بضافة حقل في جدول Customerinfo فقط من أجل استخدامه في النموذج، ولا يؤثر على بقية أجزاء البرنامج... أرجو الاطلاع على الملف المرفق

مثال.rar

يعطيك العافية أخ أحمد

إذا ممكن تسمح لي بسؤال أخير : إذا أردت أن يتم ادراج جميع أسماء العملاء لجميع المحصلين فكيف يتم ذلك ؟