Peter Parker
Mitglied
Hallo Forum,
ich sitze jetzt schon Stunden an meinem Problem und komme nicht weiter.
Ich habe ein Formular in dem eich einen Termin eingeben möchte.
Damit der User diesen Termin nicht von Hand eingeben muß, soll neben dem Eingabefeld ein Button sein mit dem ich ein neues Formular öffen und damit einen Kalender (ActiveX). Dort kann ich bequem den dermit aussuchen.
Ich habe nun das Problem, wenn der User auf den Button drückt, öffnet sich das Formular, schließt sich aber gleich dannach wieder, ohne das der User einen Termin auswählen konnte.
Mein Code:
Private sub button_terminAuswahl_Click()
Dim form as New FormKalender
Dim termin as String
form.visible = True
Hier benötige ich etwas, dass das Programm wartet bis die Eingabe im Kalender erfolgte (angeclickt wurde)?
'hole ausgewähltes Datum
termin = form.Kalender.value
End Sub
ich sitze jetzt schon Stunden an meinem Problem und komme nicht weiter.
Ich habe ein Formular in dem eich einen Termin eingeben möchte.
Damit der User diesen Termin nicht von Hand eingeben muß, soll neben dem Eingabefeld ein Button sein mit dem ich ein neues Formular öffen und damit einen Kalender (ActiveX). Dort kann ich bequem den dermit aussuchen.
Ich habe nun das Problem, wenn der User auf den Button drückt, öffnet sich das Formular, schließt sich aber gleich dannach wieder, ohne das der User einen Termin auswählen konnte.
Mein Code:
Private sub button_terminAuswahl_Click()
Dim form as New FormKalender
Dim termin as String
form.visible = True
Hier benötige ich etwas, dass das Programm wartet bis die Eingabe im Kalender erfolgte (angeclickt wurde)?
'hole ausgewähltes Datum
termin = form.Kalender.value
End Sub
