12-02-20, 05:11 PM
السلام عليكم لدي داتاقريد فيو عند الضغط عليها تقوم بتعبئة التيكست بوكس
ولكن عند الضغط داخل التيكست بوكس تضهر رسالة خطأ بأن
"هذاالإسم مدخل مسبقا تأكد من ذلك" بالرغم أن الإسم غير مكرر في الداتاقريد التي تحمل محتوى الجدول
أنا أستعمل الكود الموالي حتى لا تكرر الأسماء في الجدول
بحيث أريد من هذا الكود يشتغل فقط في عملية الحفظ إذا كان الإسم المدخل مكرر
والسلام عليكم ورحمة الله وبركاته
ولكن عند الضغط داخل التيكست بوكس تضهر رسالة خطأ بأن
"هذاالإسم مدخل مسبقا تأكد من ذلك" بالرغم أن الإسم غير مكرر في الداتاقريد التي تحمل محتوى الجدول
أنا أستعمل الكود الموالي حتى لا تكرر الأسماء في الجدول
كود :
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والسلام عليكم ورحمة الله وبركاته