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

[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]

  في 24‏/1‏/2018 at 18:57, rooz said:

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

Expand  

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

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

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

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

 

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

[rooz]

  في 24‏/1‏/2018 at 20:08, co2002co said:

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

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

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

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

 

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

Expand  

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

مثال عملي.rar

[النجاشي]

  في 24‏/1‏/2018 at 18:57, 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

وشكرا لكم 

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

Expand  

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

[co2002co]

  في 24‏/1‏/2018 at 20:27, rooz said:

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

Expand  

 

test4-6-209.rar

[النجاشي]

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

189.rar

[rooz]

  في 24‏/1‏/2018 at 20:35, co2002co said:

 

test4-6-209.rarFetching info...

Expand  

 

  في 24‏/1‏/2018 at 20:39, ابو زاهر said:

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

189.rarFetching info...

Expand  

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

[co2002co]

  في 24‏/1‏/2018 at 20:46, rooz said:

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

Expand  

 

بالخدمه

[rooz]

  في 24‏/1‏/2018 at 20:39, ابو زاهر said:

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

189.rarFetching info...

Expand  

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

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

وشكرا لكم

[co2002co]

MsgBox "xxxx", vbInformation + vbOKOnly, ""