هل هذه الجملة الشرطية صحيحةأم فيها خطأ ؟

[abofayez1]

السلام عليكم 

هذا مثال بسيط لجملة شرطية واجهتني غالبا تعمل لكن آحيانا لا يتم تنفيذ الشرط . أين الخطأ فيها؟

if me.aa = 1 then 
GoTo oo
      Else
        MsgBox "يجب كتابة رقم صحيح"
    End If
Exit Sub

oo:
DoCmd.open acForm, "bb"

End sub

 

تم تعديل مارس 26 بواسطه abofayez1
....

[محمد احمد لطفى]

تفضل بالتوفيق 

 

If me.aa = 1 Then
    DoCmd.OpenForm "bb"
Else
    MsgBox "يجب كتابة رقم صحيح"
End If

 

[abofayez1]

أخوي محمد ...وفقك الله

أعرف أن الصواب هو ما ذكرت . لكن أريد استخدام  goto

هل هو صحيح فيي المثال أم خطأ؟

وإذا  كانت خطأ فهل لها بديل بقوم بنفس العمل؟

وفقك الله

[Foksh]

مشاركة مع الأستاذ @محمد احمد لطفى ..

اخي الكريم الأخطاء بسيطة ، فمثلاً الأمر Exit Sub يجب وضعها قبل اغلاق الجملة الشرطية لا بعدها ، ثم جملة فتح النموذج غير صحيحة والصحيح يصبح كالآتي :-

If Me.aa = 1 Then
    GoTo oo
Else
    MsgBox "يجب كتابة رقم صحيح"
    Exit Sub
End If

oo:
DoCmd.OpenForm "bb"
End Sub

لاحظ الفروقات لتتضح الصورة عندك 😊

[abofayez1]

جزاكم الله خيرا وبارك فيكم