Opgelost controle werkt niet

[erpee]

Ik wil bij een textbox controleren of er een "V" of een "G" is ingevuld. Andere waarden zijn niet toegestaan.
Ik dacht goed te zitten met de onderstaande code maar ookal vul ik wél een V of een G in, hij blijft aangeven dat het niet klopt.

    ElseIf Not frmBeheer.txtAdVG.Value = "V" Or Not frmBeheer.txtAdVG.Value = "G" Then
        MsgBox "Vul het juiste TYPE goederen in. V of G.", vbInformation, "Er mist een waarde."
        Exit Sub

 

[AHulpje]

In jouw geval is een van beide altijd True, maak er dit van:

[COLOR=#3E3E3E]ElseIf Not (frmBeheer.txtAdVG.Value = "V" Or frmBeheer.txtAdVG.Value = "G") Then[/COLOR]

 

[erpee]

Werkt perfect, dank je

 

[edmoor]

Misschien een leuke extra controle.
Zo KAN er alleen maar een V of een G worden ingegeven en is het resultaat altijd een hoofdletter:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 71, 86
        Case 103:   KeyAscii = 71
        Case 118:   KeyAscii = 86
        Case Else:  KeyAscii = 0
    End Select
End Sub

 

[erpee]

Dat is een heel mooie benadering, ga ik zeker uitproberen. Dank daarvoor.

Ik had die hoofdletter zelf al opgelost via:

Private Sub txt1_Change()
txt1.Value = Trim(UCase(txt1.Value))
End Sub