السلام عليكــم ورحمـة الله وبركاتــه ،،
عند الضغط على زر الحفظ أريد أن تظهر رساله لتأكيد الحفظ بشرط أن يكون الحقل به بيان ولو كان فارغ لا تظهر
لو أفترضنا أن الحقل اسمه number
هذا الكود اللي كتبته وما نفع اتمنى مساعدتكم
if Not IsNull(Number.me) Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim strMsg As Integer
strMsg = MsgBox(" Save The Record ", vbExclamation, "تم الحفظ")
End Ifتم تعديل هذه المشاركة بواسطة saad11 في 21 مايو 2009 في 06:07
وعليكــم السـلام ورحمة الله وبركاتـه..
اخي الكريم الكود صحيح ولكن يبدو ان اسم الحقل فيه المشكلة ماذا تعني .Me ولا انصحك باستخدام اسماء معروفة ويستخدمها النظام مثل Numder .
تستخدم Me هكذا
Me![txt1]
تم تغيير اسم الحقل واليك الكود بعد التعديل
If Not IsNull(N_Number) And Not IsEmpty(N_Number) Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim strMsg As Integer
strMsg = MsgBox(" Save The Record ", vbExclamation, "تم الحفظ")
End If
أشكرك أخي محمد وبارك الله بك
بالفعل استفدت من ملاحظات بشأن اسم الحقل أو كلمة ME
طبقت الكود كما فعلت ظهرت في البداية مشكلة وهي أنني كنت أكتب في حدث عند الفتح هذا الكود وهو خاص بعدم التعديل
Me.AllowEdits = False
وعندما الغيت الكود أصبح كل شيء على مايرام .
فهل يوجد طريقة لعدم التعديل على النموذج
وشكرا لكم .
حياك الله اخي الكريم
تستطيع ان تدع الكود
Me.AllowEdits = False
كما هو ولكن قبل تنفيدذ مفتاح الحفظ اكتب عكس الكود
Me.AllowEdits = True
وفي نهاية امر الحفظ ارج القيمة كما كانت
Me.AllowEdits = False
ولكن اخي الكريم بهده الحالة لن تستطيع ادخال اي بيان داخل النموذج قبل الحفظ .....انا اجبتك على سؤالك لحماية النموذج ولكن اعتقد ان النمودج عندك يحتاج الى اعادة ترتيب منطقي...
ارجو لك التوفيق ..
تسلم أناملك يالغالي
بالفعل حل مثالي
أستطيع الأضافه على النموذج لأن الكود عمله عدم التعديل فقط
شكرا لك .
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…