Klassemodul

Ja da, men normalt designer man tekstbokse individuelt i deres egenskabsark. Det er følgende egenskaber der påtvinger netop 4 cifre uden decimaler:
format , eng. property format
antal decimaler, eng. decimalPlaces
input maske, eng. inputmask

Et klassemodul dannes automatisk når man tilføjer event til en form eller dens kontrolelementer

Følgende er på formens 'ved åbning' event.

Private Sub Form_Open(Cancel As Integer)
  format4d Me
End Sub

Private Sub format4d(frm As Form)
    Dim cntl As control
    For Each cntl In frm.Controls
        If cntl.ControlType = acTextBox Then
            cntl.Properties("format") = "General Number"
            cntl.Properties("decimalPlaces") = 0
            cntl.Properties("inputmask") = "0000"
        End If
        If cntl.ControlType = acSubform Then format4d cntl.Form
    Next
End Sub

Se det giver meget god mening det hele, og skriver jeg evt. 3,4 ændre den det også til 3, men klikker jeg så med musen i min tekstboks viser den igen 3,4? :/

Lukker