Input masks

[Audiojoe]

I am designing a form and in one of the text boxes I would like to have something like an input mask, like the ones used in Access. Basically I need all the users to put in a seven digit number. If they dont and put a six digit or eight digit etc, then I need a msgbox to appear saying "This field needs to contain seven digits"

Can anyone help?

[ This Message was edited by: Audiojoe on 2002-03-07 08:45 ]

[KniteMare]

On 2002-03-07 08:17, Audiojoe wrote:
I am designing a form and in one of the text boxes I would like to have something like an input mask, like the ones used in Access. Basically I need all the users to put in a seven digit number. If they dont and put a six digit or eight digit etc, then I need a msgbox to appear saying "This field needs to contain seven digits"

Can anyone help?

[ This Message was edited by: Audiojoe on 2002-03-07 08:45 ]

Option Explicit


Dim MyStr1 As String, MyLen

Sub DetermineLength()
MyStr1 = InputBox("Insert Seven Digits")
MyLen = Len(MyStr1)
If MyLen <> 7 Then
MsgBox ("not 7 digits")
Range("A1").Value = ""
Else
MsgBox ("Cool")
Range("A1").Value = MyStr1
End If


End Sub

As an alternative, if you don't require a text box, you can use data validation to specify the text length in an individual cell. On the data menu select validation, for a validation criteria select text length, then set the minimum and maximum length for 7.