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

[rooz]

السلام عليكم ورحمة الله وبركاته

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

ارغب التعديل عليه فتضهر الرسالة بالشكل التالي ( هذا الرقم مسجل سابقا باسم / .................................. فضلا تاكد من الرقم الصحيح ) ويظهر اسم الشخص المسجل بهذا الرقم فمثلا الرقم 888 مسجل سابقا باسم محمد عبد الرحمن محمد حسن فتظهر الرسالة التالية (هذا الرقم مسجل سابقا باسم / محمد عبد الرحمن محمد حسن  فضلا تاكد من الرقم الصحيح) مع العلم ان حقل الاسم هو [gname]

Private Sub imageid_BeforeUpdate(Cancel As Integer)
Dim x
x = DLookup("[id]", "[alnzeel]", "[NMPAR] =form![NMPAR]")

If (Eval("DLookUp(""[NMPAR]"",""[alnzeel]"",""[NMPAR] =form![NMPAR]"") Is Not Null")) Then
Beep
MsgBox " رقم الرقم مسجل سابقاً ؟ فضلاُ تاكد من الرقم الصحيح ", vbInformation, "مثال عملي"

 
   Me.Undo

End If
End Sub

وشكرا لكم 

والسلام عليكم ورحمة الله وبركاته

[co2002co]

1 hour ago, rooz said:

والسلام عليكم ورحمة الله وبركاته

وعليكم السلام ورحمة الله وبركاته

فضلا وليس امرا

ارفق مثال للتعديل عليه

لان ممكن يحصل خطأ بالمسميات

 

او تقدر انت تغير فقط المسميات

[rooz]

الان, co2002co said:

وعليكم السلام ورحمة الله وبركاته

فضلا وليس امرا

ارفق مثال للتعديل عليه

لان ممكن يحصل خطأ بالمسميات

 

او تقدر انت تغير فقط المسميات

هذا مثال حملته من الموقع لو تكرمت عدل عليه وشاكرة ومقدرة لكم

مثال عملي.rar

[النجاشي]

منذ ساعه, rooz said:

السلام عليكم ورحمة الله وبركاته

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

ارغب التعديل عليه فتضهر الرسالة بالشكل التالي ( هذا الرقم مسجل سابقا باسم / .................................. فضلا تاكد من الرقم الصحيح ) ويظهر اسم الشخص المسجل بهذا الرقم فمثلا الرقم 888 مسجل سابقا باسم محمد عبد الرحمن محمد حسن فتظهر الرسالة التالية (هذا الرقم مسجل سابقا باسم / محمد عبد الرحمن محمد حسن  فضلا تاكد من الرقم الصحيح) مع العلم ان حقل الاسم هو [gname]

Private Sub imageid_BeforeUpdate(Cancel As Integer)
Dim x
x = DLookup("[id]", "[alnzeel]", "[NMPAR] =form![NMPAR]")

If (Eval("DLookUp(""[NMPAR]"",""[alnzeel]"",""[NMPAR] =form![NMPAR]"") Is Not Null")) Then
Beep
MsgBox " رقم الرقم مسجل سابقاً ؟ فضلاُ تاكد من الرقم الصحيح ", vbInformation, "مثال عملي"

 
   Me.Undo

End If
End Sub

وشكرا لكم 

والسلام عليكم ورحمة الله وبركاته

  If DCount("[Rajmsanf]", "Alsnaf", "[Rajmsanf]=[forms]![اضافه صنف]![Rajmsanf]") >= 1 Then
        
        MsgBox "  هذا الاسم موجود باسم   " & DLookup("[Sanf]", "Alsnaf", "[Rajmsanf] = Forms![اضافه صنف]![Rajmsanf]")
        DoCmd.CancelEvent
        Me.Undo
        End If
شوف هذا الكود نفس طلبك عدل المسميات

[co2002co]

6 minutes ago, rooz said:

هذا مثال حملته من الموقع لو تكرمت عدل عليه وشاكرة ومقدرة لكم

 

test4-6-209.rar

[النجاشي]

هذه لزياده ا لخير  بعد اذن الاستاتذه 

189.rar

[rooz]

الان, co2002co said:

 

test4-6-209.rar

 

الان, ابو زاهر said:

هذه لزياده ا لخير  بعد اذن الاستاتذه 

189.rar

الف شكر  تمت الاجابة شاكرة ومقدرة لكم وللمنتدى الكريم 

[co2002co]

5 minutes ago, rooz said:

للمنتدى الكريم

 

بالخدمه

[rooz]

الان, ابو زاهر said:

هذه لزياده ا لخير  بعد اذن الاستاتذه 

189.rar

لو تكرمت اخوي ابو زاهر في الرسالة العنوان مايكرو سوفت اكسس كيف اغيره الى "مثال عملي" 

للتوضيح الصورة المرفقة الدائرة الحمراء 

وشكرا لكم

[co2002co]

MsgBox "xxxx", vbInformation + vbOKOnly, ""