Tekstvak afvragen

[gst]

Geacht forum,

In bijgevoegd voorbeeld is te zien hoe ik een tekstvak afvraag of er alleen cijfers ingevuld worden.
Wanneer er een letter ingevuld wordt komt er een melding dat er alleen cijfers ingevuld mogen worden.
Hoe voorkom ik dat deze melding 2x in beeld komt.
(De tweede melding wordt veroorzaakt doordat ik na de melding het tekstvlak leeg maak)

 

[Niels28]

Andere insteek, zonder vervelende melding die je weg moet klikken.

Bekijk bijlage Test_Tekstvak change_Niels.xlsm


Als je wel een melding wilt dan kan het zo

Private Sub txtPersoneelsNummer_Change()

  If Not IsNumeric(txtPersoneelsNummer.Value) And txtPersoneelsNummer.Value <> "" Then
     txtPersoneelsNummer.Value = ""
     MsgBox ("Alleen cijfers invullen!")
  End If

End Sub

Niels

 

[gst]

Niels, dank voor je suggesties!
Voor mijn toepassing is de tweede suggestie het beste te gebruiken.
De eerste is trouwens ook een mooie oplossing!
Dank voor het meedenken.