Userform veld verplicht met 10 cijfers

[bjack61]

Ik heb een invulveld in een userform en wil graag dat je hier geen letters maar alleen cijfers kan typen.
Dan zou je hier ook nog verplicht een getal van 10 cijfers moeten invullen. Bv 1054011890.
Graag de vba code hiervoor en waar deze code plaatsen? Merci.

 

[edmoor]

Zo:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 48 To 57
        Case Else: KeyAscii = 0
    End Select
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox1.Text) < 10 Then
        MsgBox "10 cijfers invullen", vbCritical
        Cancel = True
    End If
End Sub

De code plaats je uiteraard in de Userform.
Stel van dat tekstveld in de eigenschappen de MaxLength in op 10.

 

[bjack61]

Merci !

 

[huijb]

Aangezien helpers op meerdere forums actief zijn is het zinvol om hier te melden dat je je vraag al ergens anders ook heb geplaatst. Wel zo netjes naar de helpers toe.

 

[bjack61]

Ik had deze vraag al op een ander forum gesteld, aangezien dit een heel klein simpel deel was , dacht ik dat dit wel kon, mag. Mijn excuses hier voor. Jullie mogen deze vraag volledig afsluiten, mij lukt dit niet.

Ik hou hier zeker rekening mee in de toekomst, zal niet meer gebeuren.