+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : رسالة خطأ بمجرد الضغط داخل التكست بوكس (/showthread.php?tid=33381)
رسالة خطأ بمجرد الضغط داخل التكست بوكس - ahmedfa71 - 12-02-20
السلام عليكم لدي داتاقريد فيو عند الضغط عليها تقوم بتعبئة التيكست بوكس
ولكن عند الضغط داخل التيكست بوكس تضهر رسالة خطأ بأن
"هذاالإسم مدخل مسبقا تأكد من ذلك" بالرغم أن الإسم غير مكرر في الداتاقريد التي تحمل محتوى الجدول
أنا أستعمل الكود الموالي حتى لا تكرر الأسماء في الجدول
كود :
Private Sub TextBoxNomPren_LostFocus(ByVal sender As Object, ByVal e As EventArgs) Handles TextBoxNomPren.LostFocus
Try
If con.State = ConnectionState.Closed Then con.Open()
Dim cmd As New OleDbCommand(" Select nom From TableEmp Where nom='" & TextBoxNomPren.Text & "'", con)
Dim sda As OleDbDataReader = cmd.ExecuteReader
If sda.HasRows Then
MsgBox("هذاالإسم مدخل مسبقا تأكد من ذلك", InfoOkOnly, AppTitle)
TextBoxNomPren.SelectAll()
TextBoxNomPren.Focus()
Exit Sub
If con.State = ConnectionState.Open Then con.Close()
End If
Catch ex As Exception
End Try
End Subوالسلام عليكم ورحمة الله وبركاته