[Microformt]

الاخوة الكرام
السلام عليكم ورحمة وبركاته
نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اعرف الماذا ؟
ملاحظة هامه المشكلة في استعلام الاضافة نامل المساعدة وجزكم الله خيراً

[Taha Okla]

..

كود :

Private Sub Command1_Click()
   Set db = OpenDatabase(App.Path & "/db1.mdb")
   db.Execute "INSERT INTO aol  VALUES (" & Trim$(Text1.Text) & ",'" & Trim$(Text2.Text) & "','" & Trim$(Val(Text3.Text)) & "'," & "" & Val(Trim$(Text4.Text)) & ",'" & Trim$(Text5.Text) & "','" & Trim$(Text6.Text) & "')"
   ' DoEvents
   MsgBox "تم حفظ الفاتورة بنجاح"
End Sub