GoTo
15.10.2003 11:53:06
Susanna
ich habe in einem Makro eine Terminabfrage (Calendar-Formular) mit "ok" und "Abbrechen". In etwa so:
-------------------------------------------------------------------------
Modul1:
Sub zeitabfragemakro()
...
formular_terminabfrage.Show
startdatum = DateSerial(I_jahr, I_monat, I_tag)
endedatum = DateSerial(I_jahr_2, I_monat_2, I_tag_2)
...
End Sub
Formulare: Form_1:
Private Sub ok_Click()
I_tag = CInt(Calendar1.Day)
I_monat = CInt(Calendar1.Month)
I_jahr = CInt(Calendar1.Year)
I_tag_2 = CInt(Calendar2.Day)
I_monat_2 = CInt(Calendar2.Month)
I_jahr_2 = CInt(Calendar2.Year)
Unload Me
End Sub
Private Sub abbrechen_Click()
Unload zeitraum
'hier soll er aus zeitabfragemakro raus...
'MsgBox "abgebrochen"
End Sub
----------------------------------------------------------------------------
- Ich möchte gerne bei abbrechen_Click, dass er das Makro zeitabragemakro abbricht? Aber wie? Bei Exit Sub, geht er ja nur aus abbrechen_click() raus?!
- Ich möchte bei ok_Click() eine Plausibilitäsabfrage einbauen. Falls die Daten sinnlos sind, dann soll das Formular erneut angezeigt werden.
Kann mir jemand hierbei helfen?
Susanna