hallo,
Ik schrijf:
Private Sub Knp_Admin_C_Click()
Me.Txt_datum.Visible = True
Me.Bijschrift_datum.Visible = True
Me.Bijschrift_datum.Caption = "Niet turnen tot:"
Me.Txt_datum.SetFocus
If IsNull(Me.Txt_datum) = True Then
If MsgBox("Correspondentiedatum invullen! ", vbExclamation + vbOKOnly, " ") = vbOK Then
Me.Txt_datum.SetFocus
End If
Else
......
op deze manier blijkt me.txt_datum altijd leeg te zijn omdat het programma niet "wacht" op mijn input
Hoe los ik dit op?
JP
Ik schrijf:
Private Sub Knp_Admin_C_Click()
Me.Txt_datum.Visible = True
Me.Bijschrift_datum.Visible = True
Me.Bijschrift_datum.Caption = "Niet turnen tot:"
Me.Txt_datum.SetFocus
If IsNull(Me.Txt_datum) = True Then
If MsgBox("Correspondentiedatum invullen! ", vbExclamation + vbOKOnly, " ") = vbOK Then
Me.Txt_datum.SetFocus
End If
Else
......
op deze manier blijkt me.txt_datum altijd leeg te zijn omdat het programma niet "wacht" op mijn input
Hoe los ik dit op?
JP