الغاء رسالة النص الذي ادخلته غير موجود في القائمة

[ابو عبد الله العراقي]

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

عيد اضحى مبارك وكل عام وأنتم بألف خير

في قاعدة بيانات المرفقة وفي نموذج البلدان  عند ادخال البلد ونريد بعدها ادخال المدينة مثلا إذا كانت المدينة موجودة ليس هناك أي مشكلة اما اذا كانت المدينة غير موجودة تظهر رسالة الاكسس بأنه قد تم ادخال بيانات غير موجودة في جدول المدينة وباللغة الإنكليزية الرسالة ، لذلك قمت بوضع رسالة باللغة العربية لكن المشكلة كيف استطيع الغي رسالة الاكسس باللغة الإنكليزية كذلك اريد عمل تحديث تلقائي لنموذج البلدان بحيث بعد غلق نموذج المدن تظهر مباشرة المدينة التي تمت اضافتها تلقائيا ؟ ارجو المساعدة ؟

sptialtest.rar

[ابو البشر]

23 ساعات مضت, ابو عبد الله العراقي said:

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

عيد اضحى مبارك وكل عام وأنتم بألف خير

في قاعدة بيانات المرفقة وفي نموذج البلدان  عند ادخال البلد ونريد بعدها ادخال المدينة مثلا إذا كانت المدينة موجودة ليس هناك أي مشكلة اما اذا كانت المدينة غير موجودة تظهر رسالة الاكسس بأنه قد تم ادخال بيانات غير موجودة في جدول المدينة وباللغة الإنكليزية الرسالة ، لذلك قمت بوضع رسالة باللغة العربية لكن المشكلة كيف استطيع الغي رسالة الاكسس باللغة الإنكليزية كذلك اريد عمل تحديث تلقائي لنموذج البلدان بحيث بعد غلق نموذج المدن تظهر مباشرة المدينة التي تمت اضافتها تلقائيا ؟ ارجو المساعدة ؟

انظر الصورة واستخدم هذا بدل الموجود لديك """"""

MsgBox "هذه البيانات غير موجود يرجى اعادة ادخالها"
DoCmd.OpenForm "tawfrm", acNormal
Response = acDataErrContinue

 

[ابو عبد الله العراقي]

السلام عليكم 

عاشت ايدك استاذ وهو المطلوب

ممنون منك

بس ياريت توضيح السطر البرمجي 

Response = acDataErrContinue

ماهو  المقصود منه ؟ وكيف نعرف هذه الاوامر البرمجية ؟؟

[ابو البشر]

31 دقائق مضت, ابو عبد الله العراقي said:

السلام عليكم 

بس ياريت توضيح السطر البرمجي 

Response = acDataErrContinue

ماهو  المقصود منه ؟ وكيف نعرف هذه الاوامر البرمجية ؟؟

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

هذه تعني تجاهل الخطأ والمواصلة

ممكن تتزود بمعلومات اضافية من موق مايكروسوفت نفسة 

من هنا

[ابو البشر]

بالمناسب يمكن الغاء النموذج tawfrm وذلك باستخدام هذا مكان الكود السابق الذكر .... جرب ..... حيث يتم عرض رسالة باضافة المدينة أو عدم الاضافة وعند الموافقة يتم اضافة المدينة بدون النموذج ..... وهذا يختصر عليك الوقت في اعادة كتابة المدينة مرة اخرى والعودة للنموذج الرئيسي ...

Dim strMsg As String
    strMsg = "هل تريد إضافة " & NewData & " إلى القائمة؟"
    If MsgBox(strMsg, vbQuestion + vbYesNo) = vbYes Then
        Response = acDataErrAdded
        DoCmd.RunCommand acCmdSaveRecord
    Else
        Response = acDataErrContinue
    End If

 

[ابو عبد الله العراقي]

ممتاز عاشت اخوي العزيز 

لكن حاولت اطبق الكود على نفس المثال لكن ظهر لي خطأ !  تعبتك معاي لكن الغرض التعلم والافادة لي وللجميع😟

sptialtest.rar

[ابو عبد الله العراقي]

تم تعديل كود الاضافة بعد السؤال عن الاضافة وحبيت ارفعها على الموقع للاستفادة من هذا الموضوع 

 .تحياتي للجميع ، ولكل من يحب العلم والتعلم 

sptialtest.rar