رسالة تحذير بتكرار الاسم

رجاء استخدام هذا الكود بدلا عن الذي عندك في الحدث قبل التحديث:

Private Sub Txt1_BeforeUpdate(Cancel As Integer)

a = DLookup("[Name]", "main", "[Name]='" & Me.Txt1.Text & "'")
If IsNull(a) = False Then
MsgBox "سبق إدخال هذا الاسم "
Cancel = True
End If

End Sub

جعفر

عندما نكون قد كتبنا شيئا في اجد الخانات وتم تخزين هذه المعلومة ، فيمكننا قراءة المعلومة هكذا:

Me.Txt1

بينما عندما لا تكون مخزنة في الجدول بعد ، فيجب قراتها هكذا:

Me.Txt1.Text

جعفر

أستاذ جعفر ممكن لو تكرمت مثال عملى

شكراً لاهتمامك

حياك الله اخي :)

المثال السابق ، انت عندما تكتب في الحقل Txt1 ، انت أمرت الحقل في الحدث قبل التحديث (اي قبل ان تسجل هذا البيان في الجدول) ، فهذا معناه ان الذي كتبته لا يزال في النموذج ولم يحفظ في الجدول بعد :)

جعفر

أخى العزيز أنا عملت نفس اللى قلت عليه ولكن النتيجة فشلت

فأرجو منك التطبيق عملى