السلام عليكم
لدي مربع نص يقوم بالحساب (طرح)
أريد أن أضع شرطا بحيث لا يحسب إلا في حالة كون حقل الاسم الأول firstname والاسم الأخير familyname مدخلان؟
فإذا لم يكونا مدخلين لا يحفظ السجل وينتقل للسجل الأول
حاليا استخدم هذا الكود والذي يسبب إنشاء سجل فارغ
[2otalTxtBox] = Int([fTxtBox]) - ([dTxtBox])
تم تعديل هذه المشاركة بواسطة ساري الليل في 11 مايو 2004 في 23:41
الأسهل أن تعين خاصية مطلوب في هذان الحقلان من خلال خصائصهما في تصميم الجدول إلى قيمة نعم
ولكن خاصية مطلوب تتسبب في إظهار رسالة مزعجة للمستخدم بالإضافة إلى رسالة debug التي تدخل المستخدم إلى متاهة كود vba
في هذه الحالة إذاً يفضل استخدام الحدث قبل التحديث كما يلي :
Private Sub Form_BeforeUpdate(Cancel As Integer) If insull(firstname) or isnull(familyname) then msgbox "يجب عليك ملء خانات الاسم واسم العائلة أولاً" Cancel = True End sub
بهذا الأسلوب لن يحدث معلومات السجل الحالي إلا بعد إدخال الاسم واسم العائلة
تم تعديل هذه المشاركة بواسطة مهند عبادي في 12 مايو 2004 في 10:53
تصحيح للكود
If IsNull(firstname) Or IsNull(familyname) Then MsgBox "يجب عليك ملء خانات الاسم واسم العائلة أولاً" Cancel = True End If
تحياتي ..
شرفت أخ فهد وأتمنى عليك التواصل الدائم.
تحية من الأعماق لجميع المخلصين.
شكراً أخ فهد على تصحيح الكود
لأني نسيت بسبب العجلة إنهاء الشرط بـ End IF
أهلاً بكما أستاذي المزيني وأستاذي مهند عبادي
وأهلاً بجميع أعضاء المنتدى الرائع المتجدد
هلا بلاخوه
نور المنتدي
وين هل غيبه الطويله
لبنان / قب الياس
/index.php?showtopic=37977
موقع كتب الحاسب العربيه
http://www.cb4a.com/books/
-------------------
هذا الموضوع مغلق.
