hh88 قام بنشر أغسطس 2, 2017 قام بنشر أغسطس 2, 2017 السلام عليكم ورحمة الله وبركاتة اساتذتي الكرام هل اقدر استبدل الرساله التي تظهر للمستخدم بان حقل مطلوب برسالة افضل من رسالة النظام حيث ان هذه الرسالة ممكن تدخل المستخدم على الاكواد ولكم الشكر
jjafferr قام بنشر أغسطس 2, 2017 قام بنشر أغسطس 2, 2017 وعليكم السلام مثل ما قال اخونا عبدالسلام ، هكذا: 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 جعفر 2
hh88 قام بنشر أغسطس 2, 2017 الكاتب قام بنشر أغسطس 2, 2017 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 قام بنشر أغسطس 2, 2017 أفضل إجابة قام بنشر أغسطس 2, 2017 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 جعفر 2
hh88 قام بنشر أغسطس 3, 2017 الكاتب قام بنشر أغسطس 3, 2017 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 جعفر استاذي الكريم جعفر اسال الله لك التوفيق شرح كافي ووافي الله يعطيك العافيه ويجزاك خير وتقبل خالص تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.