Code té enthousiast

Status
Niet open voor verdere reacties.

JEPEDEWE

Terugkerende gebruiker
Lid geworden
14 jun 2006
Berichten
1.680
Ik schrijf:

Code:
    AANTAL = TB.RecordCount
    If AANTAL >= 18 Then
            If MsgBox("deze code komt al 18 maal voor!", vbOKOnly, "Let op!") = vbOK Then
            End If
            Me.txtomschrijving.setfocus
    End If
    DoCmd.Close acForm, "Nieuw_formulier"

Ik dacht dat de code mij naar het veld txtomschrijving zou brengen om hier data in te geven en dan de code zou doorlopen... maar er wordt "niet gewacht", en de code loop lekker door, wat niet de bedoeling is..
dus... hoe laat ik de code stoppen en mij toelaten andere data in te voeren

JP
 
Of:
Code:
If TB.RecordCount >= 18 Then
    MsgBox "deze code komt al " & TB.RecordCount & " maal voor!", vbCritical, "Let op!"
    Me.txtomschrijving.SetFocus
Else
    DoCmd.Close acForm, "Nieuw_formulier"
End If
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan