inhoud textboxen controleren

[RB_online]

Op het forum heb ik onderstaande code gevonden
Deze controleert de inhoud van textbox1 op invoer.

Private Sub TextBox1_Change()

If TextBox1.Value = "" Then
Exit Sub
End If
If IsNumeric(TextBox1.Value) Then
Exit Sub
Else
MsgBox ("Je mag alleen cijers invullen!")
TextBox1.Value = ("")

End If
End Sub

Ik heb echter een aantal userforms met 10 tot 15 textboxen per form.
Hoe kan ik bovenstaande code aanpassen om zo met één code alle textboxen op 1 userform te controleren?

Ik kom er niet geheel uit.
Ik heb al zitten prutsen met een for .. next routine

misschien iemand die het wel werkend kan krijgen?

Goet René

 

[Jack Nouws]

Hallo

Ik heb een voorbeeldje voor je gevonden

Sub tst()
    For i = 1 To 15
      If Me("TextBox" & i).Value = "" Then MsgBox ("Je bent iets vergeten in te vullen")
    Next
End Sub

Met vr gr
Jack

 

[RB_online]

ik ga hier even mee aan de slag.
De code is echter wel beperkt omdat je de volgende regel

For i = 1 To 15

steeds aan moet passen als je een aanpassing doet in je bestand.

in ieder geval bedankt

René

 

[Wigi]

Sub Validatie()
    Dim cCont As Control
    For Each cCont In Me.Controls
        If TypeName(cCont) = "TextBox" Then
            'doe validatie hier
        End If
     Next
End Sub

 

[RB_online]

Wigi,

Ik heb jouw code als volgt aangepast.
en het werkt.

Dim cCont As Control
      For Each cCont In Me.Controls
        If TypeName(cCont) = "TextBox" Then
          
        If cCont.Value <> "" Then
        If IsNumeric(cCont.Value) And cCont.Value >= 0 Then
            Else
            MsgBox ("Je mag alleen cijers invullen groter of gelijk aan 0!")
                cCont.SetFocus
                cCont.SelStart = 0
                cCont.SelLength = Len(cCont)
            Exit Sub
          
        End If
        End If
        End If

Indien hij beter of korter kan dan houd ik mij aanbevolen

Bedankt:thumb:

René

 

[Hoornvan]

Zo even snel gezien ben je Next vergeten.

 

[snb]

Waarom tekstvakken gebruiken voor de invoer van getallen ?

 

[RB_online]

@Snb

Er zijn geen lijsten beschikbaar dus een keuzelijst of combobox leek mij niet voor de hand liggend.
Welk besturingselement zou hiervoor beter zijn?

Groet,

René

 

[snb]

Een combobox ingesteld als drop downlist (style=2)

Combobox1.list=[row(1:40)]

geeft de keuzen 1 t/m 40 in de combobox.

Of een tekstvak met een teller (spinbutton)

Private Sub teller1_Change()
  Textbox1.Text=teller1.value
End Sub

 

[RB_online]

Ik zie het voordeel niet zo.

Zou je dit voor mij in een voorbeeld bestandje willen zetten?

Bvd

René

 

[snb]

Mij lijken mijn vorige suggesties voldoende.