Textbox verplicht invullen

[zeppeke]

Hoi,
Ik heb een invulformulier gemaakt om gegevens in te voeren in een lijst.
Maar het eerste veld moet ze verplicht ingevullen, dus mag niet leeg zijn.
Heb de volgende code reeds staan om dubbele invoer te vermijden.
Wie kan mij helpen?
Alvast bedankt

Private Sub txt1_Change()
Dim findstring As String, rng As Range
findstring = Txt1.Value
If findstring <> "" Then
With Sheets("Kaarten").Range("A5:a65536")
    Set rng = .Find(What:=findstring, LookIn:=xlValues, lookat:=xlWhole, _
    Searchorder:=xlByRows, searchdirection:=xlPrevious, MatchCase:=False)
    
If Not rng Is Nothing Then
    MsgBox ("Dit nummer " + Txt1.Value + " is al aanwezig " & vbCr & "in database")
    '
    Txt1 = ""
    Txt1.SetFocus
    Else
    Exit Sub
End If
End With
End If
End Sub

 

[MagicBiglia]

je kan mss nog een if maken met if txt1_text = "" then ...MsgBox ("Gelieve een waarde in te vullen")

de volledige vba syntax zal wellicht niet juist zijn ( te gewoon geworden aan C# )

 

[E v R]

Je kunt een extra sub toevoegen (Exit)

Private Sub Txt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Txt1.Text = vbNullString Then MsgBox "Gelieve een waarde in te geven!"
End Sub

Zelf zou ik (afhankelijk van het aantal controls op jouw userform) pas de controles laten plaatsvinden als er op een OK knop wordt gedrukt.

 

[zeppeke]

Textbox veerplicht invullen

Hoi,
Bedankt voor de snelle reactie en oplossing voor mijn probleem.
Eric, die oplossing werkt perfect en inderdaad er moet een kontrole komen op vier velden, ik wou dat oplossen direkt na ieder veld.
Maar dit kan dan gebeuren wanneer er op de knop "Opslaan" wordt gedrukt, maar dat is weer een ander paar mouwen.
Nogmaals bedankt.
Gr Jef