[ تمت الإجابة ]السجل موجود

أخي الغالي

ريماس الرياض

اعتقد ان استدعاء جميع بيانات المستفيد كاملة علي النموذج في حالة وجود تكرار افضل من اظهار ذلك في مسج بوكس تحمل اسم المستفيد

عموما في حقل NO_SREL ( رقم المستفيد ) ضع هذا الكود ثم قم بتشغيل النموذج وحاول وضع رقم مكرر ثم اضغط علي انتر من لوحة المفاتيح

بعدها ستظهر لك رسالة بان رقم المستفيد مكرر وسيتم عرض بيانات المستفيد المكرر بعد ظهور الرسالة علي النموذج

جرب مرفقك بعد التعديل ولاحظ النتيجة

Private Sub NO_SREL_Exit(Cancel As Integer)
NO_SRELfield = Me.NO_SREL
Dim a
a = DLookup("[NO_SREL]", "MSTFAD", "[NO_SREL]='" & Me.NO_SREL & "'")
If Not (IsNull(a)) Then
MsgBox "رقم مستفيد مكرر", vbCritical, "تنبية"
Cancel = True
Me.Undo
DoCmd.FindRecord NO_SRELfield
End If

_____9_____db1_up.rar

مشكور استاذي حل ممتاز10000 شكرا جزاك الرحمن كل خير

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

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

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

مشرفنا الغالي ابو احمد

سلمت يمينك

كنت عملت مثال على نفس المطلوب ولكن طريقتك هي الافضل بدون شك

واذا سمحت لي ان اضع المثال للفائدة فقط

مع الشكر والتقدير،،،

_____9_____db1.rar

السلام عليكم

حتى طريقتك أخي يوسف رائعة سلمت يمناك

هذا كود يوسف

Dim s As String
Dim m As String
Dim g As String
Dim f As String
Dim h As String
Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("MSTFAD")
s = DLookup("[NO_SREL]", "MSTFAD", "[NO_SREL]=" & Me.TxtSN)
m = Nz(DLookup("[NEMA]", "MSTFAD", "[NO_SREL]=" & Me.TxtSN))
g = Nz(DLookup("[NEMA2]", "MSTFAD", "[NO_SREL]=" & Me.TxtSN))
f = Nz(DLookup("[NEMA3]", "MSTFAD", "[NO_SREL]=" & Me.TxtSN))
h = Nz(DLookup("[NEMA4]", "MSTFAD", "[NO_SREL]=" & Me.TxtSN))

	If Me.TxtSN = s Then
	MsgBox "  موجود باسم " & " " & m & " " & g & " " & f & " " & h, vbOKOnly + vbCritical + vbMsgBoxRight, "الرقم : تنبية" & " " & s
  End If
	Me.Undo
	rs.Close
	db.Close

والشكر موصولا لأخي محمد فؤاد

EKSEER

بارك الله فيك يا أخي الغالي يوسف أحمد

الاخ الغالي اكسير

تم تعديل المسميات التي باللغة العربية داخل الكود لانها ظهرت بلغة غريبة كهكذا

If Me.TxtSN = s Then
	MsgBox "  ãæÌæÏ ÈÇÓã " & " " & m & " " & g & " " & f & " " & h, vbOKOnly + vbCritical + vbMsgBoxRight, "ÊäÈíå : ÇáÑÞã" & " " & s