[kafi]

اخي ابو ايهاب

اما بتمرر له قيمة فارغه

هل ما تقصده بتمرير قيمة فارغة هو مايلي
Try[HTML]
Dim Tabl As DB.Beda = New DB.Beda

With Tabl
.Beda_Name = txt_beda.Text
.Beda_Note = txt_Note.Text
.Mabee_Price = IIf(txt_Mabee.Text = "", System.DBNull.Value, txt_Mabee.Text)
.Shra_Price = IIf(txt_shra.Text = "", System.DBNull.Value, txt_shra.Text)
End With

_AddingNew(Tabl)
MessageBox.Show("Saved Successfull >>>>> ", "Saved", MessageBoxButtons.OK, MessageBoxIcon.Information)
Broom()

Catch ex As Exception

End Try[/HTML]

تم فحص قيمة متغير سعر الشراء ومتغير سعر المبيع
واسناد قيمة فارغة لهما في حال كانا فارغين

الا ان الكود لم يعد يعمل

الف شكر على تواصلك معي