Leeg tekstvak controle

[Abel Visscher]

Hallo,

Ik wil graag dat er via een msgbox een controle word uitgevoerd dat bepaalde tekstvakken niet leeg mogen zijn.
Nu heb ik al gezocht en ben ook bepaalde dingen tegen gekomen, maar ik krijg het niet werkend.
Wat doe ik verkeerd?
Ik voeg een voorbeeld bij

Bekijk bijlage LeegTekstvakControle.rar

 

[edmoor]

Maak er eens dit van:
If Me.TxtTest1 = vbNullString Then GoTo Case1

 

[Abel Visscher]

Werkt ook niet helaas.

 

[edmoor]

?
Ik heb het aangepast in je voorbeeld en daar werkt het prima.

 

[edmoor]

Wellicht dat dit wat completer is voor je:

Private Sub CmdControle_Click()
    Me.TxtTest1.SetFocus
    If Me.TxtTest1.Text = vbNullString Then
        GoTo Case1
    Else
        Exit Sub
    End If

 

[OctaFish]

Volgens mi bedoel je zoiets..

 

[Abel Visscher]

Beide heren bedankt,
Dit is wat ik zocht, Ik ga de oplossing van Octafish gebruiken puur omdat de code voor mij kort en krachtig is.
Nogmaals bedankt.