Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

Vraag over VBA

Alebeekje
6 antwoorden
  • Ik heb een userform gemaakt, waarin de gebruikers een aantal velden moeten invullen. Als ze een veld NIET invullen verschijnt er NADAT op de verzendknop gedrukt is een melding dat ze alsnog een waarde moeten invullen. Drukt men dan echter op OKE, dan wordt het formulier verstuurd zonder dat het betreffende veld is ingevuld. Wie weet hoe ik kan afdwingen dat gebruikers velden MOETEN invullen.
    De regel die ik nu heb gemaakt ziet er als volgt uit:

    If TextBox1 = "" Then MsgBox "U heeft geen naam ingevuld", vbOKOnly, Error

    Dit werkt dus niet voldoende. Wie weet de oplossing?
    Groeten;
    Theo van Alebeek
  • [quote:684acb51e5]
    Op 26-03-2002 10:54, schreef Alebeekje:

    If TextBox1 = "" Then MsgBox "U heeft geen naam ingevuld", vbOKOnly, Error

    [/quote:684acb51e5]

    Wat je hier doet is alleen maar een melding geven. Ik gebruik alleen vb en geen vba, maar dit zal vast wel werken:

    if textbox1.text = "" then
    msgbox "U heeft geen naam ingevuld", vbOKOnly, "Error:"
    Exit Sub
    End if

    Wat jij deed was gewoon verder gaan met de sub, maar die moet je afbreken want niet alles is ingevuld.
  • Ook dat werkt niet helemaal naar behoren.
    Hier volgt mijn volledige code, misschien dat jullie dan iets meer kunnen.

    Private Sub CommandButton1_Click()
    If TextBox1 = "" Then MsgBox "U heeft geen naam ingevuld", vbOKOnly, Error Else End If
    If TextBox2 = "" Then MsgBox "U heeft geen telefoonnummer of piepernummer ingevuld", vbOKOnly, Error
    If TextBox3 = "" Then MsgBox "U heeft geen tijd ingevuld", vbOKOnly, Error
    If TextBox4 = "" Then MsgBox "U heeft geen datum ingevuld", vbOKOnly, Error
    If TextBox5 = "" Then MsgBox "U heeft geen gebouw/unit ingevuld", vbOKOnly, Error
    If TextBox6 = "" Then MsgBox "U heeft geen afdeling of ruimte ingevuld", vbOKOnly, Error
    If TextBox8 = "" Then MsgBox "U heeft geen omschrijving van de klacht ingevuld", vbOKOnly, Error
    Selection.GoTo What:=wdGoToBookmark, Name:="naam"
    Selection.TypeText TextBox1
    Selection.GoTo What:=wdGoToBookmark, Name:="telefoon"
    Selection.TypeText TextBox2
    Selection.GoTo What:=wdGoToBookmark, Name:="datum"
    Selection.TypeText TextBox4
    Selection.GoTo What:=wdGoToBookmark, Name:="tijd"
    Selection.TypeText TextBox3
    Selection.GoTo What:=wdGoToBookmark, Name:="gebouw"
    Selection.TypeText TextBox5
    Selection.GoTo What:=wdGoToBookmark, Name:="afdeling"
    Selection.TypeText TextBox6
    Selection.GoTo What:=wdGoToBookmark, Name:="klacht"
    Selection.TypeText TextBox8

    Groetjes;

    Theo
  • Dit:
    "If TextBox1 = "" Then MsgBox "U heeft geen naam ingevuld", vbOKOnly, Error Else End If "

    Is compleet fout. else en end if achter elkaar????
    Je hebt else niet eens nodig.
    En mijn code staat er niet in. Wat voor fout krijg je als je die erin zet?
  • Probeer dit eens:

    If TextBox1 = "" Then
    MsgBox "U heeft geen naam ingevuld", vbOkOnly, "Validatiefout"
    textbox1.SetFocus
    End If

    Succes
    Leen
  • We zijn er al uit.
    Via e-mail..
    Je moet het op de manier doen die ik al zei.

    if textbox1.text = "" then
    msgbox "geen naam" bla bla
    exit sub
    end if

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.