abofayez1 قام بنشر مارس 26 مشاركة قام بنشر مارس 26 (معدل) السلام عليكم هذا مثال بسيط لجملة شرطية واجهتني غالبا تعمل لكن آحيانا لا يتم تنفيذ الشرط . أين الخطأ فيها؟ if me.aa = 1 then GoTo oo Else MsgBox "يجب كتابة رقم صحيح" End If Exit Sub oo: DoCmd.open acForm, "bb" End sub تم تعديل مارس 26 بواسطه abofayez1 .... رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر مارس 26 مشاركة قام بنشر مارس 26 تفضل بالتوفيق If me.aa = 1 Then DoCmd.OpenForm "bb" Else MsgBox "يجب كتابة رقم صحيح" End If رابط هذا التعليق شارك More sharing options...
abofayez1 قام بنشر مارس 26 الكاتب مشاركة قام بنشر مارس 26 أخوي محمد ...وفقك الله أعرف أن الصواب هو ما ذكرت . لكن أريد استخدام goto هل هو صحيح فيي المثال أم خطأ؟ وإذا كانت خطأ فهل لها بديل بقوم بنفس العمل؟ وفقك الله رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر مارس 26 أفضل إجابة مشاركة قام بنشر مارس 26 مشاركة مع الأستاذ @محمد احمد لطفى .. اخي الكريم الأخطاء بسيطة ، فمثلاً الأمر Exit Sub يجب وضعها قبل اغلاق الجملة الشرطية لا بعدها ، ثم جملة فتح النموذج غير صحيحة والصحيح يصبح كالآتي :- If Me.aa = 1 Then GoTo oo Else MsgBox "يجب كتابة رقم صحيح" Exit Sub End If oo: DoCmd.OpenForm "bb" End Sub لاحظ الفروقات لتتضح الصورة عندك 😊 2 رابط هذا التعليق شارك More sharing options...
abofayez1 قام بنشر مارس 26 الكاتب مشاركة قام بنشر مارس 26 جزاكم الله خيرا وبارك فيكم 1 رابط هذا التعليق شارك 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.