قم بتعديل الكود الى التالي وسيعمل باذن الله
كود :
cmd.CommandText = "Select * from tblCustomers where CivilRegNum=@n"
cmd.Parameters.Add("@n", OleDbType.VarChar).Value = txtCRN.Text.ToString
لبسلام عليكم
الكود يشتغل تمام بس لما اضغط على مفتاح TAB يظهر Error
![[صورة مرفقة: koTmoe.jpg]](http://im67.gulfup.com/koTmoe.jpg)
تمام االله يعافيك
اذا ممكن تعطيني كود يمنع المستخدم انه يكتب في أي تكست بوكس اذا كان السجل المدني فارغ
تحياتي لك
في الحدث 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
الله يسلمك مشكور وما قصرت