اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

  • Like 1
قام بنشر

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

 

Beep

If MsgBox("ستقوم الآن بحذف السجل التالي  :" & vbCrLf _
& "(" & [الهوية_الشخصية] & ")" & vbCrLf _
& " " & vbCrLf _
& "هل أنت متأكد ؟" & vbCrLf _
& " " & vbCrLf _
& "أضغط (نعم) للإستمرار أو (لا) لإلغاء الأمر.", vbCritical + vbYesNo _
+ vbMsgBoxRight + vbMsgBoxRtlReading, "تحذيــر   !") = vbYes Then

Application.SetOption "Confirm Record Changes", False

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70


End If
 

قام بنشر

الاستاذ عبد اللطيف سلوم المحترم

اشكر لحضرتكم الاجابة ...

يظهر لي مباشرة مسج 
run-time error 2465
تعذر على البرنامج العثور على الحقل المشار اليه في التعبير الذي استخدمته
زر end     زر  debug   زر help
 

قام بنشر
On Error GoTo ErrHandler
Beep
If MsgBox("ستقوم الآن بحذف السجل التالي  :" & vbCrLf _
& "(" & [FatoraId] & ")" & vbCrLf _
& " " & vbCrLf _
& "هل أنت متأكد ؟" & vbCrLf _
& " " & vbCrLf _
& "أضغط (نعم) للإستمرار أو (لا) لإلغاء الأمر.", vbCritical + vbYesNo _
+ vbMsgBoxRight + vbMsgBoxRtlReading, "تحذيــر   !") = vbYes Then

Application.SetOption "Confirm Record Changes", False

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70


End If
ErrHandler:
   If err.Number = 3200 Then
MsgBox "عذراً لم تتم عملية الحذف ، السجل مرتبط"
    Exit Sub
End If

جرب الآن 

قام بنشر
27 دقائق مضت, عذاب الزمان said:

الاخوة الكرام مازلت منتظرا اجاباتكم جزاكم الله خير

بما أن الحلول السابقة لم تنجح معك ولا نعلم هل استخدمتها بشكل صحيح أم لا 

لماذا لا تسهل الامر على نفسك وعلى الاعضاء وتضع مثال للتطبيق عليه 

::بالتوفيق::

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information