تعديل على كود الاسم مدخل سابقا

[يونس محمد الخطابي]

في النموذج   N1  عند ادخال بيانات شخص والانتقال الى النموذج الفرعي وتظهر رساله تفيد بان اسمه مدخل سابقا  .  لايمكن الرجوع الى اسمه الموجود في لوحة البحث واختيار الاسم وتكملة بياناته . مثال / الاسم احمد اذا قمنا بادخال اسمه مجددا سهوا وذهبنا الى النموذج الفرعي لتكملة البيانات تظهر رساله تفيد بان الاسم مدخل سابقا كيف استطيع الاستغناء عن السجل الحالي والذهاب الى اسم احمد في قائمة البحث واختيار اسم احمد وادخال بيانات في النموذج الفرعي التابع له . وجزاكم الله خير .

الاسم موجود سابقا.accdb

[ابوخليل]

بعد الرسالة اكتب : Undo

الاسم موجود سابقا2.rar

[يونس محمد الخطابي]

سيدي الفاضل ابو خليل المحترم -- شكرا جزيلا على سرعة الاستجابه . اللهم يجعل ذلك في ميزان حسناتك . تم حل 90% من المشكله والباقي مهما عظم فهو بالنسبة لكم يسير
اذا يلاحظ جنابكم الكريم سابقا عندما تظهر الرساله . كنت قبل ضغط زر موافق . اقارن بين البيانات الجديده مثلا رقم الهاتف فاذا كانت مختلفه ارجع واعدل بالاسم مثلا اضيف الاسم الرباعي وينتهي الامر . لكن المشكله كانت تواجهني اذا كانت البيانات مطابقه الاسم ورقم الهاتف وباقي البيانات . لانستطيع الرجوع  ونبقى في دواره .                                                                                                 بعد التعديل  فقدنا ميزة الرجوع والتعديل اذا كان ليس هو الشخص المقصود  وبمجرد الضغط على الزر موافق نفقد كل البيانات التي ادخلناها  ويتطلب منا الرجوع وادخال البيانات من جديد بعد ان نضيف الاسم الرباعي مثلا . مثال - سابقا عندما اضيف اسم (علي) رقم الهاتف( 77777 ) وتظهر رساله الاسم مدخل سابقا  وقبل ضغط زر موافق في الرساله .اتحقق هل رقم الهاتف والعنوان ايضا مطابق فاذا كانت غير مطابقه ارجع واعدل الاسم  وتسير الامور . لكن اذا كانت مطابقه تحصل المشكله . اعتقد اني اسهبت لكن لتوضح الفكره . وتعطيني امكانية الرجوع والتعديل على البيانات اذا لم يكن هو المقصود قبل ان نفقد كل البيانات التي ادخلناها . وجزاك الله خير

[ابوخليل]

تفضل تم تغيير الحدث

Dim x As Integer
x = Nz(DCount("asm", "tbl1", "asm='" & Me.asm & "'"), 0)
If x > 0 Then
Beep
MsgBox "هذا الاسم موجود سابقا", , ""
DoCmd.CancelEvent
Exit Sub
End If

 

الاسم موجود سابقا3.rar

[يونس محمد الخطابي]

الله عليك يا استاذي ابو خليل تقلع المشكله من جذورها اللهم يوفقك في الدنيا والاخيره ويرحم والديك . شكرررررررررررررررررررررا جزيلا