منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

كود :
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