استبدال رسالة حقل مطلوب

[hh88]

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

اساتذتي الكرام

هل اقدر استبدل الرساله التي تظهر للمستخدم بان حقل مطلوب برسالة افضل من رسالة النظام

حيث ان هذه الرسالة ممكن تدخل المستخدم على الاكواد 

ولكم الشكر

[عبدالسلام ابوالعوافي]

استخدم  Error Handling 

[jjafferr]

وعليكم السلام

 

مثل ما قال اخونا عبدالسلام ، هكذا:

private sub cmd_click()
on error goto err_cmd_click

..
..
..
..

exit_cmd_click:
exit sub
err_cmd_click:

    if err.number=3314 then
        msgbox "هنا تضع صيغة رسالتك"
        resume exit_cmd_click
    else
        msgbox err.number & vbcrlf & err.description
    endif

end sub

 

جعفر

[hh88]

19 minutes ago, jjafferr said:

وعليكم السلام

 

مثل ما قال اخونا عبدالسلام ، هكذا:

private sub cmd_click()
on error goto err_cmd_click

..
..
..
..

exit_cmd_click:
exit sub
err_cmd_click:

    if err.number=3314 then
        msgbox "هنا تضع صيغة رسالتك"
        resume exit_cmd_click
    else
        msgbox err.number & vbcrlf & err.description
    endif

end sub

 

جعفر

الف شكر لكم جميعا يا أساتذتي الكرام

استاذي جعفر

١.

هل هذا الكود ينطبق على جميع الحقول المطلوبه والتي تم وضع شرط بأنها مطلوبه في الجول الأساسي 

٢. 

في حالة هناك اكثر من حقل مطلوب كيف يعرف المستخدم ان الرسالة تتعلق بهذا الحقل 

 

واسال الله لكم الاحر 

[jjafferr]

19 دقائق مضت, hh88 said:

١. هل هذا الكود ينطبق على جميع الحقول المطلوبه والتي تم وضع شرط بأنها مطلوبه في الجول الأساسي 

٢. في حالة هناك اكثر من حقل مطلوب كيف يعرف المستخدم ان الرسالة تتعلق بهذا الحقل 

1. هذا الكود لا يتعلق بحقل او جدول ، وانما بالعمليات الحسابية في هذه الوحدة Sub ،

لذلك كل وحدة Sub يجب ان يكون عندها اسم آخر لإصطياد رسائل الخطأ ، يعني ما تقدر تستخدم err_cmd_click لجميع Subs اللي عندك ،

2. انت كمبرمج يجب ان تبرمج على الحقل الصحيح ، مثلا (وهذا المثال لا علاقة له برسالة الخطأ ، وانما له علاقة بسؤالك) :

عندك حقلين: Date_From و Date_To وتريد ان تستخدمهم لتقرير ،

ومن المعروف بانه اذا احد الحقلين فاضي فقد تحصل على رسالة خطأ من الاستعلام (وطبعا ستحصل على نتيجة خطأ من الاستعلام) ،

لذلك ، يجب عليك التأكد ان هذه الحقول غير فارغة ، لذلك

وعلى حدث النقر على زر فتح/معاينة التقرير ، اكتب هذا الكود:

if len(me.Date_From & "")=0 then
  msgbox "رجاء ادخال قيمة في حقل: تاريخ_من"
  me.Date_From.setfocus
  exit sub

elseif len(me.Date_To & "")=0 then
  msgbox "رجاء ادخال قيمة في حقل: تاريخ_الى"
  me.Date_To.setfocus
  exit sub
endif

 

جعفر

[hh88]

10 hours ago, jjafferr said:

1. هذا الكود لا يتعلق بحقل او جدول ، وانما بالعمليات الحسابية في هذه الوحدة Sub ،

لذلك كل وحدة Sub يجب ان يكون عندها اسم آخر لإصطياد رسائل الخطأ ، يعني ما تقدر تستخدم err_cmd_click لجميع Subs اللي عندك ،

2. انت كمبرمج يجب ان تبرمج على الحقل الصحيح ، مثلا (وهذا المثال لا علاقة له برسالة الخطأ ، وانما له علاقة بسؤالك) :

عندك حقلين: Date_From و Date_To وتريد ان تستخدمهم لتقرير ،

ومن المعروف بانه اذا احد الحقلين فاضي فقد تحصل على رسالة خطأ من الاستعلام (وطبعا ستحصل على نتيجة خطأ من الاستعلام) ،

لذلك ، يجب عليك التأكد ان هذه الحقول غير فارغة ، لذلك

وعلى حدث النقر على زر فتح/معاينة التقرير ، اكتب هذا الكود:

if len(me.Date_From & "")=0 then
  msgbox "رجاء ادخال قيمة في حقل: تاريخ_من"
  me.Date_From.setfocus
  exit sub

elseif len(me.Date_To & "")=0 then
  msgbox "رجاء ادخال قيمة في حقل: تاريخ_الى"
  me.Date_To.setfocus
  exit sub
endif

 

جعفر

استاذي الكريم جعفر

اسال الله لك التوفيق

شرح كافي ووافي

الله يعطيك العافيه ويجزاك خير

وتقبل خالص تحياتي