بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
لدي نموذج لاسماء المواد يتضمن
داتا جريد فيو تعرض اسم المادة / سعر الشراء / سعر المبيع / ملاحظات
تم برمجة زر للاضافة
وتم كتابة الكود التالي
' one way it work well
Dim cmd As New OleDb.OleDbCommand
Try
DataConnection()
cmd.Connection = Conn
cmd.CommandText = "INSERT INTO [Beda]" & "([Beda_Name],[Shra_Price],[Mabie_Price],[Beda_Note]) VALUES" &
"('" & txt_beda_Name.Text & "','" & txt_Shra_Price.Text & "','" & txt_Mabie_Price.Text & "','" & txt_Beda_Note.Text & "')"
cmd.ExecuteNonQuery()
Conn.Close()
MsgBox("1 Record has been saved correctly")
txt_beda_Name.Text = Nothing
txt_Mabie_Price.Text = Nothing
txt_Shra_Price.Text = Nothing
txt_Beda_Note.Text = Nothing
txt_beda_Name.Focus()
'اصطياد الاخطاء
Catch ex As Exception
'عرض الخطا فى رساله
MsgBox(ex.Message, 16, "خطأ")
End Tryالكود يعمل بصورة جيدة، باستثناء حالة واحدة،
عندما لا يدخل المستثمر قيمة الشراء ا و قيمة المبيع
طبعا انا لست مضطر الى اجباره على ادخال تلك الحقول، فهي اختيارية
عندئد تظهر رسالة خطأ
نوع البيانات غير متطابق في تعبير المعايير
ارجو تصحيح الكود في ظل المشكلة المذكورة
والف الف شكر
