07-05-18, 05:42 PM
[attachment=17935]السلام عليكم الاخوة الاعزاء ارفق اليكم الكود الخاص بفاتورة العميل وصورة الخطا
اتمنى منكم معرفة لسبب حيث لما اكتب كود الماد واضغط انتر بيطلع هذي الرسالة وشكرا لكم
الكود
صورة الخطا
اتمنى منكم معرفة لسبب حيث لما اكتب كود الماد واضغط انتر بيطلع هذي الرسالة وشكرا لكم
الكود
كود :
Private Sub Textpro_KeyDown_1(sender As Object, e As KeyEventArgs) Handles Textpro.KeyDown
If e.KeyCode = Keys.Enter Then
Try
cmd = New OleDbCommand("Select SellingPrice_q, MaterialName from Materials where MaterialBarCode = " & Textpro.Text, Conn)
Conn.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
Textpro.Text = dr(1)
Textprice.Text = dr(5)
Textnum.Focus()
Else
MsgBox("هذا المنتج غير موجود في سجلاتك ", MsgBoxStyle.Exclamation, "تنبيه")
Textpro.Clear()
Textprice.Clear()
Textnum.Clear()
Textpro.Focus()
End If
dr.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
Conn.Close()
End Try
End If
End Subصورة الخطا
