Waarom moet ik 2x klikken na een fout antwoord?

[noobnick]

Hoi Lezer,
Ik heb een controleknop die ingevoerde tekst vergelijkt met tekst uit een lijst. Alles goed, maar als er eerst een foute invoer is die daarna verbeterd wordt moet er 2 keer op de knop geklikt worden voor die verbetering goedgekeurd wordt. Hoezo?

Private Sub ControleKnop_Click()
If keuze = 1 Then
     keuze = 2
Else
     keuze = 1
End If
invoer = InvoerVeld.text
If invoer = lijst(x, keuze) Then
     UitvoerLbl.Caption = "Dat is GOED!"
    ControleKnop.Enabled = False
  Else
    UitvoerLbl.Caption = "Jammer, das fout, probeer iets anders"
    InvoerVeld.SetFocus
End If
NogeensKnop.Enabled = True
End Sub

Wie kan me helpen??

 

[noobnick]

Vervolg

mmmm, merkwaardig, als ik de knop isoleer in een nieuw formulier werkt het wel goed.
....?

 

[noobnick]

maar met deze code wel

Met de volgende code heb ik het probleem van 2x op de knop klikken wel! Help...

Dim i, j, x, keuze As Integer
Dim lijst(30, 2), invoer As String

Private Sub UserForm_Activate()
lijstophalen
End Sub

Private Sub lijstophalen()
    i = 0 'regelteller vooraf op 0
    Open ActiveDocument.Path & "\Landhoofdstadlijst.txt" For Input As #1
        Do While Not EOF(1)
        i = i + 1
         
            For j = 1 To 2
              Input #1, lijst(i, j)
            Next j
        Loop
    Close #1
        
End Sub

Private Sub LandOptionKnop_Click()
keuze = 1
verder
End Sub

Private Sub StadOptionKnop_Click()
keuze = 2
verder
End Sub

Private Sub verder()
Randomize
x = Int(Rnd * i) + 1
GegevenLbl.Caption = lijst(x, keuze)
StadOptionKnop.Enabled = False
LandOptionKnop.Enabled = False
If keuze = 1 Then
    VulinLbl.Caption = "Vul de hoofdstad in:"
Else
    VulinLbl.Caption = "Vul het land in:"
End If
ControleKnop.Enabled = True
InvoerVeld.SetFocus
End Sub

Private Sub ControleKnop_Click()
If keuze = 1 Then
     keuze = 2
Else
     keuze = 1
End If
invoer = InvoerVeld.text
If invoer = lijst(x, keuze) Then
    UitvoerLbl.Caption = "Dat is GOED!"
    ControleKnop.Enabled = False
  Else
    UitvoerLbl.Caption = "Jammer, das fout, probeer iets anders"
    InvoerVeld.SetFocus
End If
End Sub

 

[noobnick]

stomme fout

ohh, wat een stomme fout heb ik daar gemaakt (var 'keuze' veranderd). Sorry voor het lastig vallen, ik schaam me diep!