قم بتعديل الكود الى التالي وسيعمل باذن الله
كود :
cmd.CommandText = "Select * from tblCustomers where CivilRegNum=@n"
cmd.Parameters.Add("@n", OleDbType.VarChar).Value = txtCRN.Text.ToString
لبسلام عليكم
الكود يشتغل تمام بس لما اضغط على مفتاح TAB يظهر Error
تمام االله يعافيك
اذا ممكن تعطيني كود يمنع المستخدم انه يكتب في أي تكست بوكس اذا كان السجل المدني فارغ
تحياتي لك
في الحدث Form1_Load اكتب الكود التالي
كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If txtCRN.Text = "" Then
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
End If
End Sub
وفي الحدث txtCRN_TextChanged اكتب هذا الكود
كود :
Private Sub txtCRN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCRN.TextChanged
If txtCRN.Text = "" Then
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
Else
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
End If
End Sub
الله يسلمك مشكور وما قصرت