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