VBS sign voor om "value" te herkennen

[Rap261]

Hallo,

Ik zit met het volgende:

Ik heb een lege text box en als men daar iets invoerd wil ik dat er een msgbox verschijnt met een waarschuwing.
Volgens mij moet ik het omgekeerde hebben van

textbox.value = "" then Msgbox "Waarschuwing"

weet iemand de oplossing?

Alvast bedankt

 

[edmoor]

Wil je dat op het moment dat men iets invoert of op het moment dat men iets heeft ingevoerd en het veld verlaat?

 

[Rap261]

VBS sign voor om "value" te herkennen

Hi Edmoor,


Het mooiste zou zijn als het veld verlaten wordt..

 

[edmoor]

Deze dus, waarbij je vet gedrukte TextBox1 vervangt door de naam van je TextBox:

Private Sub [B]TextBox1[/B]_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If [B]TextBox1[/B].Value = "" Then
        MsgBox "Waarschuwing"
    End If
End Sub

 

[Rap261]

VBS sign voor om "value" te herkennen

Helaas, code werkt niet en krijg ook geen Msgbox
heb wat variaties geprobeerd maar geen succes..

 

[edmoor]

Die code werkt prima. Ik ben uitgegaan van een formulier.
Waar gebruik je het in en waar heb je die code geplaatst?

 

[Rap261]

Ik gebruik het in een Excel sheet in een Textbox...

 

[Rap261]

code hangt onder de Textbox..

 

[edmoor]

Ok, dus niet in een Form in VBA?

 

[Rap261]

Nee, sorry

 

[edmoor]

Dan is het inderdaad anders:

Private Sub TextBox1_LostFocus()
    If TextBox1.Value = "" Then
        MsgBox "Waarschuwing"
    End If
End Sub

 

[Rap261]

Edmoor,

Dit begint te werken alleen net andersom.
Er moet juist een melding verschijnen wanneer er íets wordt ingevuld

Is er geen algemene sign voor iets zoals er wel is voor niets, ""

 

[edmoor]

Ik had je eerste bericht kennelijk niet goed begrepen.
Vervang het = teken door <>

 

[Rap261]

Perfect!!

kan ik <> beschouwen als iets? (voor in de toekomst)

Thanks voor je hulp

 

[edmoor]

Ja, het staat voor "ongelijk aan".
Graag gedaan

 

[Rap261]

thank you!