code laten stoppen

Status
Niet open voor verdere reacties.
J

JEPEDEWE

Terugkerende gebruiker
Lid geworden
14 jun 2006
Berichten
1.682
Ik schrijf:
Code: 
       If MsgBox("Behandelingscode aanpassen", vbExclamation + vbYesNo, "Let op!!!") = vbYes Then
            Me.code_behandeling.SetFocus
        Else
            DoCmd.Close acForm, "weergave voorschrift"
            DoCmd.Close acForm, "lijst voorschriften"
        End If

als ik "Yes" klik wil ik naar het veld "code_behandeling" om hier iets te veranderen, maar de code loopt er gewoon over
Hoe los ik dit op

Bedankt
 
Ben je misschien gewoon vergeten om Exit Sub bij Yes op te geven?
 
Zelfs met exit sub stopt die code toch nog niet (heb ik het gevoel)
 
Dat bestaat niet:
Code: 
       If MsgBox("Behandelingscode aanpassen", vbExclamation + vbYesNo, "Let op!!!") = vbYes Then
            Me.code_behandeling.SetFocus
            [COLOR="#FF0000"]Exit Sub[/COLOR]
        Else
            DoCmd.Close acForm, "weergave voorschrift"
            DoCmd.Close acForm, "lijst voorschriften"
        End If
 
en als dat niet helpt, dan begin je maar aan de favoriete bezigheid van de programmeur: door de code steppen.
 
Start de code misschien op code_behandeling? En op welke gebeurtenis trigger je de handeling?
 
Altijd de complete code laten zien, nooit alleen een klein stukje waar verder geen probleem in zit.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan