برگشت به فرم

[smderfan]

سلام
می خواستم ببینم جهت خروج از یک رویداد باید از چه کدی استفاده کرد؟
در روال زیر بجای علامت سوال باید از چه کدی استفاده کنم که از اجرای ادامه کدها جلوگیری شود و پس از نمایش پیام به فرم برگردد.


Private Sub Command1_Click()

If IsNull(TEXT1) Then
MsgBox "Please : Enter Code"
TEXT1.SetFocus
????
End If

DoCmd.OpenReport stDocName, acPreview, , , acDialog

End Sub

[morteza_lll]

سلام
به جای علامت سوال بنویس End
مشکلت حل میشه

[شاپرک]

دستور Exit Sub

[smderfan]

با تشکر
حالا اگر بخوام بصورت روال زیر از یک فرم فعال خارج بشم به چه صورت عمل کنم
بجای علامت سوال چه کدی رو وارد کنم.


Private Sub Form_Load()

If Text81.Value = 0 Then
?????
End If

End Sub

[شاپرک]

DoCmd.Close

[morteza_lll]

docmd.close