rooz

لو تكرمت اخوي ابو زاهر في الرسالة العنوان مايكرو سوفت اكسس كيف اغيره الى "مثال عملي" للتوضيح الصورة المرفقة الدائرة الحمراء وشكرا لكم

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

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

السلام عليكم ورحمة الله وبركاته هذا الكود عند تكرار الرقم تظهر الرسالة ( هذا الرقم مسجل سابقا فضلا تاكد من الرقم الصحيح) ارغب التعديل عليه فتضهر الرسالة بالشكل التالي ( هذا الرقم مسجل سابقا باسم / .................................. فضلا تاكد من الرقم الصحيح ) ويظهر اسم الشخص المسجل بهذا الرقم فمثلا الرقم 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 وشكرا لكم والسلام عليكم ورحمة الله وبركاته

حبيبي جعفر وشكرا لك تمت الاجابة

مرفق مثال اتمنى اجد الحل hhhh.rar

لا يمكن اختيار الخيار المشار عليه باللون الاصفر لانه غير مفعل يعني الموضوع مستحيل ما احد يقدر يكتب هذا الكود ؟؟؟؟؟؟؟؟؟؟

هل من مجيب الموضوع بكل بساطه عملت الكود اعلاه عن طريق منشئ الماكرو ويعمل ما فيه اي مشكلة ارغب كتابته عن طريق منشئ التعليمات البرمجية مثل التالي وشكرا لكم Private Sub Combo3_AfterUpdate() End Sub

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