رسائل الاكسس الجاهزة في ازرار الحذف ...الخ

raz8081 كتب:

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

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

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

كل شيء وله شيء

مثلا رسائل التحذير التي تتحدث عناها والتي تظهر عند الحذف فيمكنك إستبدالها بوضع الكود التالي:-

Dim Warning As String
Warning = MsgBox("أنت الآن على وشك حذف السجل الحالي فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير")
If Warning = vbYes Then
DoCmd.SetWarnings (False)
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings (True)
Else
DoCmd.CancelEvent
End If

أما رسائل التحذير التي تظهر عند الخطأ في النموذج مثلا لا يمكن ترك بيانات حقل خالي لأن من خصائصه أنه مطلوب فيظهر لك رسالة خطأ فيها مفتاح للذهاب إلى الهلب قم بالضغط عليه وتعرف على رقم الخطأ ويمكنك إستبداله بوضع الكود التالي في حث الفورم عند الخطأ أو On Error مع وضع الرسالة المناسبة من عندك حسب رقم الخطأ

Dim a As String
Debug.Print "dataerr="; DataErr
Select Case DataErr
Case Is = 3022
 a = MsgBox("يوجد قيد سابق يحمل نفس المسلسل ولا يمكن تكرار المسلسل 00 إضغط Esc للتراجع ", vbCritical + vbMsgBoxRight, "خطأ")
Response = acDataErrContinue
Case Is = 3314
a = MsgBox("لا يمكن ترك مسلسل القيد أو أي بيان ضوري بدون إضافة ", vbCritical + vbMsgBoxRight, "خطأ")
Response = acDataErrContinue
Case Is = 2110
a = MsgBox("لا يمكن ترك مسلسل القيد أو أي بيان ضوري بدون إضافة ", vbCritical + vbMsgBoxRight, "خطأ")
Response = acDataErrContinue
Case Is = 3197
DoCmd.Close acForm, "JJ"
DoCmd.OpenForm "JJ"
Response = acDataErrContinue
Case Else
Dim ss As String
 ss = MsgBox("يوجدخطأ في نوعية البيانات التي تم إدخالها .....والآن إضغط مفتاح هروب للتراجع ثم أعد المحاولة مرة أخرى", vbCritical + vbMsgBoxRight, "خطأ")
Response = acDataErrContinue
End Select

essam_abboud كتب:

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

كل شيء وله شيء

مثلا رسائل التحذير التي تتحدث عناها والتي تظهر عند الحذف فيمكنك إستبدالها بوضع الكود التالي:-

Dim Warning As String
Warning = MsgBox("أنت الآن على وشك حذف السجل الحالي فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير")
If Warning = vbYes Then
DoCmd.SetWarnings (False)
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings (True)
Else
DoCmd.CancelEvent
End If

اشكر ردك الجميل ... وبارك الله فيك ... وجزاك الله عني خيرا

raz8081 كتب:

اشكر ردك الجميل ... وبارك الله فيك ... وجزاك الله عني خيرا

اشكر ردك الجميل ... وبارك الله فيك ... وجزاك الله عني خيرا