بسم الله الرحمن الرحيم
بارك الله في جهودكم وأسأل الله أن ينفع بكل ماتقدموه خصوصا الطلبة المبتدئين في البرمجة
واجهتني مشكله عند عمل مشروعي وهي أني قمت بعمل form خاصة بحجز المواعيد
وتم ربطها بالأكسس كما هو موضح في أسفل النافذة وعند عمل برمجة تأكيد الحجز تم برمجتا بالشكل التالي
Me.OleDbConnection1.Open()
Me.OleDbCommand1.CommandText = "insert into حجز المواعيد values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "'," & Val(ComboBox3.Text) & "," & Val(ComboBox4.Text) & "," & Val(TextBox3.Text) & "," & Val(TextBox5.Text) & ",'" & TextBox6.Text & "'," & Val(TextBox4.Text) & ",'" & TextBox7.Text & "'," & Val(ComboBox6.Text) & ",'" & ComboBox5.Text & "'," & Val(ComboBox7.Text) & ")"
Me.OleDbCommand1.ExecuteNonQuery()
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox4.Text = ""
TextBox7.Text = ""
ComboBox5.Text = ""
ComboBox6.Text = ""
ComboBox7.Text = ""
Me.OleDbConnection1.Close()
End Sub
ولكن عند تشغيل البرنامج يعطي خطأفي البرمجة أرجو أفادتتي حيث أنني لأول مره استخدم دالة Combo Boxوأتوقع أن يكون الخطأ في برمجتها