Hallo
Ich habe folgendes Problem.
Ich möchte per Code eine CheckBox.Value auf True setzen ohne das darauf der Code in der Cklick-Sub der betreffenden CheckBox durchlaufen wird.
Ich verlasse die Sub im Augenblick mit - Exit Sub - das funzt aber nicht.
Hier der Code dazu -
If Me.chk_Besondere_Vork.Value = True Then
Call init_frmeingabe(Titel_fra:="Besonderes Vorkommnis", _
Farbe:=Me.lbl_besonders_vork.BackColor)
'String muß mit Leerzeichen übergeben werden,
'damit dierser durch Split getrennt werden kann
frm_eingabe.Tag = "chk_Besondere_Vork txt_bevor"
'Freigabe der ChekBox Erledigt
Me.chk_bevor_erl.Enabled = True
Me.txt_bevor.Enabled = True
'Aufruf frm_eingabe
frm_eingabe.Show
Else
If MsgBox("Wollen Sie die Eingaben im Ereigniss löschen?", _
vbYesNo, "Rücknahme Ereignis") = vbNo Then
Me.chk_Besondere_Vork.Value = True
Exit Sub
Else
With Me.chk_bevor_erl
.Enabled = False
.Value = False
End With
With Me.txt_bevor
.Text = "Kein Eintrag"
.Enabled = False
End With
End If
End If
Wie stelle ich das am besten an?
Vielen Dank im Voraus
Olaf