[فراس الغزي]

[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

صورة الخطا