verplicht invoer 3 cijfers uitbreiding met meerdere velden!!

[ExcelTonnie]

Dag allen

heb 35 invoervelden genaamd TxtLength1 t/m TxtLength35 waarbij elk veld 3 cijfers verplicht moet invoeren.
Nu kan ik 35 maal hetzelfde code invoeren maar kan dit makkelijker.

If Len(TxtLength1.Value) <> 3 Then
MsgBox "Lengte bestaat uit 3 cijfers.", vbCritical
Exit Sub
     End If
If Len(TxtLength2.Value) <> 3 Then
MsgBox "Lengte bestaat uit 3 cijfers.", vbCritical
Exit Sub
    End If

 

[OctaFish]

Inderdaad.

For i = 1 to 35
     If Len(Me(“TxtLength” & i).Value) <> 3 Then
          MsgBox "Lengte bestaat uit 3 cijfers.", vbCritical
          Exit Sub
     End If
Next i

 

[ExcelTonnie]

Octafish

That's it
thx

 

[OctaFish]

Nog eventueel uit te breiden met:

For i = 1 to 35
     If Len(Me("TxtLength" & i).Value) <> 3 Then
          MsgBox "Lengte van '" & Me("TxtLength" & i).Name &  "'bestaat uit 3 cijfers.", vbCritical
          Me("TxtLength" & i).SetFocus
          Exit Sub
     End If
Next i

 

[snb]

Wat voor 'invoervelden' zijn dit ?

- cellen
- benoemde gebieden
- form controls
- activeX-controls