[kafi]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

لدي نموذج بسيط، فيه داتاجريد فيو تعمل على عرض اسماء المواد مع سعر الشراء وسعر المبيع وحقل ملاحظات

تم برمجة زر الاضافة وفق الكود التالي
[HTML]
' 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[/HTML]

الكود يعمل بصورة جيدة، مع مشكلة بسيطة تتمثل في حال كان حقول سعر الشراء او سعر المبيع .....فارغة.......... فتظهر رسالة
نوع البيانات غير متطابق في تعبير المعايير

ارجو من الاخوة الافاضل تصويب الكود السابق

والف شكر

[kafi]

[ATTACH=CONFIG]3357[/ATTACH]

صورة اوضح لرسالة الخطأ

[سعود]

شوف التعديل هذا

كود :

cmd.CommandText = "INSERT INTO [Beda]" & "([Beda_Name],[Shra_Price],[Mabie_Price],[Beda_Note]) VALUES" &  "('" & txt_beda_Name.Text & "','" & Val(txt_Shra_Price.Text) & "','" & Val(txt_Mabie_Price.Text) & "','" & txt_Beda_Note.Text & "')"

[سعود]

السر في وضع كلمة val قبل مربع النص الرقمي

كود :

Val(txt_Mabie_Price.Text)

[kafi]

الف شكر اخي
سعود على اجابتك

بارك الله فيك وبامثالك

والسلام عليكم