[ تمت الإجابة ]اريد شرح كود عدم تكرار السجلات في النموذج

من الافضل وضع قاعدة البيانات ليتم عمل اللازم

على كل حال تستطيع من خلال الدالة

dlookup

او الدالة

dcount

ان تفعل ذلك

لنفرض ان مصدر النموذج جدول اسمه tbl1

ويجد به حقل رقم العميل وهو id

ولانريد تكرار هذا الرقم

نضع في حدث بعد التحديث للحقل id

هذا الكود

Dim int1 As Integer
int1 = DCount("id", "tbl1", "[id]=forms![frm1]![id]")

If int1 = 1 Then
MsgBox "الرقم المدخل مسجل من قبل بالبرنامج", vbInformation, "البرنامج"
'------------------------------------------------
 Dim rst As Recordset
 Dim strSearchName As Double
	Set rst = Me.RecordsetClone
	strSearchName = CInt(Me!id)
	rst.FindFirst "id = " & strSearchName
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
			Me.Bookmark = rst.Bookmark
	rst.Close
End If

على اعتبار ان اسم النمودج هو frm1

ويقوم الكود ايضا باحضار السجل الموجود بهدا الرقم

بارك الله فيك اخي hema وانا حاولت اضع مثال

لتطبيق الكود الذي وضعت لكن يمكن موجود خطاء في المثال ارجو تصحيحه ولك جزيل الشكر

re.rar

الملف بعد التعديل

لاحظ التعديل

Dim int1 As Integer
int1 = DCount("bb", "aaa", "[bb]=forms![aaa]![bb]")

If int1 = 1 Then
MsgBox "ÇáÑÞã ÇáãÏÎá ãÓÌá ãä ÞÈá ÈÇáÈÑäÇãÌ", vbInformation, "ÇáÈÑäÇãÌ"
'------------------------------------------------
Dim rst As Recordset
Dim strSearchName As String
	Set rst = Me.RecordsetClone
	strSearchName = Me!bb
	rst.FindFirst "bb = " & "' & strSearchName & '"
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
			Me.Bookmark = rst.Bookmark
	rst.Close
End If

لانك محدد نوع الحقل bb

على انه نص

وانا في مثالي السابق افترضت انه رقم

لدا اقتضى التعديل

المرفق يعملل 100%

re.rar

شكرا جزيلا استاذنا hema الذي كلك همه ونشاط

تسلم ياغالي

اخي hema

اشكرك جدا جزيل الشكر والله يوفقك في حياتك

وشكرا ل اخي ابو عمر

المثال كفى ووفى إن شاء الله

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة