Enter Ereignis hier richtig?
Joe
hab ein Problem... will durch Anklicken des aktuellen Textfeld BxE im Hauptformular frmdate ein Datum über Kalenderformular frmcalendar setzen.
Rufe Kalender auf über...
Private Sub BxE_enter()
frmCalendar.Show
End Sub
Über debugging sehe ich das Nachdem das Kalender ausgeführt wird mit ...
Private Sub userform_initialize()
If IsDate(frmDating.ActiveControl) Then
Calendar1.Value = DateValue(ActiveControl.Value)
Else
Calendar1.Value = Date
End If
End Sub
Private Sub Calendar1_Click()
frmDating.ActiveControl = Calendar1.Value
Unload Me
End Sub
wird das Datum gesetzt und über unload me des frmCalendar geschlossen
soweit so gut...
wenn die Prozedur mit nächster Step zurückehrt zu
Private Sub BxE_enter()
frmCalendar.Show
End Sub
dann schließt auch das Hauprformular frm date (und verliert somit auch den Datumeintrag)...
Ich denke das hat mit Enter Ereignis zu tun...
Nur über andere Ereignisse(Change,Click,..) ließ sich das Kalender nicht aufrufen..
Wer hat hier eine Idee für mich ..
Danke..vorab.
Joe