Input Box Validation

[backfromthebush]

Hi all,

I have a form which asks the user for a contract number via an input box.

The format of this number should be xxx-xxxxxxx-xxx.

Is there a code I can add that will validate the number so that it is entered in the above format e.g. 123-1234567-123.

If the contract number is correct it will skip to the next part of the code. If it is incorrect then it will bring up an error message giving the user the option to override the error, or return to the contract number input box.

Any suggestions?

 

[mikerickson]

Something like this perhaps

Sub test()
        Dim uiString As String
        uiString = "123-1234567-123"
NumberEntry:
        uiString = Application.InputBox("Enter", Default:=uiString, Type:=2)
        If uiString = "False" Then Exit Sub: Rem cancel
        
        If Not (uiString Like "[0-9][0-9][0-9]-[0-9][0-9][0-9][0-9][0-9][0-9][0-9]-[0-9][0-9][0-9]") Then
            Select Case MsgBox("entry does not match the pattern", vbAbortRetryIgnore)
                Case vbAbort
                    Exit Sub
                Case vbRetry
                    GoTo NumberEntry
                Case vbIgnore
                    Rem 'next part of the code'
            End Select
        End If
End Sub