حمادة عثمان قام بنشر مايو 12, 2017 قام بنشر مايو 12, 2017 فى القاعدة المرفقة وهى عبارة عن نموذجين للطلاب والسادا اريد عند الظغط على زر حفظ او الضغط على زر انشاء جديد تظهر لى رسالة انه توجد حقول ضرورية فارغة 6.rar
أمير2008 قام بنشر مايو 13, 2017 قام بنشر مايو 13, 2017 هههههههههه كيفك أستاذ حماده ؟ أنا قبل تسجيل الدخول كنت على الانترنت و سمعت ضجيجاً وصراخاً داخل منتدى أوفيسينا فقلت أدخل المنتدى يمكن يكون هناك أعضاء يتعاركون أو شيئ من هذا القبيل فوجدتك تصرخ طالباً المساعدة هههههههه على العموم على حد علمي فأنت تحتاج للاستخدام دالة If وفي مثالك جرب التالي عند الضغط على زر الحفظ : On Error Resume Next DoCmd.SetWarnings False If MsgBox("هل تريد حغظ التغييرات", vbYesNo, "الجفظ") = vbNo Then Cancel = -1 Me.Undo DoCmd.SetWarnings True Else If Nz(Me.student_name, 0) = 0 Or Nz(Me.gender, 0) = 0 Or Nz(Me.faculty, 0) = 0 Or Nz(Me.class, 0) = 0 Or Nz(Me.entry_data, 0) = 0 Then MsgBox ("هناك حقول لم يتم كتابتها") If Nz(Me.entry_data, 0) = 0 Then Me.entry_data.SetFocus If Nz(Me.class, 0) = 0 Then Me.class.SetFocus If Nz(Me.faculty, 0) = 0 Then Me.faculty.SetFocus If Nz(Me.gender, 0) = 0 Then Me.gender.SetFocus If Nz(Me.student_name, 0) = 0 Then Me.student_name.SetFocus Else DoCmd.GoToRecord , , acNewRec End If End If 1
حمادة عثمان قام بنشر مايو 13, 2017 الكاتب قام بنشر مايو 13, 2017 43 minutes ago, أمير2008 said: هههههههههه كيفك أستاذ حماده ؟ أنا قبل تسجيل الدخول كنت على الانترنت و سمعت ضجيجاً وصراخاً داخل منتدى أوفيسينا فقلت أدخل المنتدى يمكن يكون هناك أعضاء يتعاركون أو شيئ من هذا القبيل فوجدتك تصرخ طالباً المساعدة هههههههه على العموم على حد علمي فأنت تحتاج للاستخدام دالة If وفي مثالك جرب التالي عند الضغط على زر الحفظ : On Error Resume Next DoCmd.SetWarnings False If MsgBox("هل تريد حغظ التغييرات", vbYesNo, "الجفظ") = vbNo Then Cancel = -1 Me.Undo DoCmd.SetWarnings True Else If Nz(Me.student_name, 0) = 0 Or Nz(Me.gender, 0) = 0 Or Nz(Me.faculty, 0) = 0 Or Nz(Me.class, 0) = 0 Or Nz(Me.entry_data, 0) = 0 Then MsgBox ("هناك حقول لم يتم كتابتها") If Nz(Me.entry_data, 0) = 0 Then Me.entry_data.SetFocus If Nz(Me.class, 0) = 0 Then Me.class.SetFocus If Nz(Me.faculty, 0) = 0 Then Me.faculty.SetFocus If Nz(Me.gender, 0) = 0 Then Me.gender.SetFocus If Nz(Me.student_name, 0) = 0 Then Me.student_name.SetFocus Else DoCmd.GoToRecord , , acNewRec End If End If تسلم ايدك وشكرا على الاستجابة لبسريعة هههههههههههه
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.