PopUp-Form beim Öffnen gleich wieder schließen

21/02/2011 - 12:56 von Michael Alexander | Report spam
Hallo!

Ich möchte ein PopUp-Form gleich wieder schließen, wenn eine Bedinung nicht
zutreffend ist.

If Date > #2/20/2011# Then
MsgBox "Datum unpassend"
DoCmd.Close acForm, Me
Exit Sub
End If


Weder im Form_Current noch im form_Load wird das frm wieder geschlossen.
Die msgbox kommt zwar, aber der Code schließt das frm nicht.

Was stimmt da nicht?

Danke
Michael

A2k SP3, Win XP Pro SP2
 

Lesen sie die antworten

#1 Gunter Avenius
21/02/2011 - 13:05 | Warnen spam
Hallo Michael Alexander,

Michael Alexander schrieb folgendes:
Hallo!

Ich möchte ein PopUp-Form gleich wieder schließen, wenn eine Bedinung nicht
zutreffend ist.

If Date > #2/20/2011# Then
MsgBox "Datum unpassend"
DoCmd.Close acForm, Me
Exit Sub
End If

Weder im Form_Current noch im form_Load wird das frm wieder geschlossen.
Die msgbox kommt zwar, aber der Code schließt das frm nicht.

Was stimmt da nicht?



Bei Form_Open
Cancel=True
setzen.

Private Sub Form_Open(Cancel As Integer)
If Date > #2/20/2011# Then
MsgBox "Datum unpassend"
Cancel=True
End If
End Sub

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com

http://www.avenius.de - http://www.AccessRibbon.de
http://www.ribboncreator.de - http://www.ribboncreator2010.de

Ähnliche fragen