Access Form and Character Limit

[scgamecock]

Microsoft Access 2003
Windows XP

I need a way to create a code for a form that if the text that is entered does not contain 7 characters, then the user will get an error message and the text field will clear.

Here is the code I have as of now:

Private Sub sampleno_BeforeUpdate(cancel As Integer
 
Private Sub sampleno_BeforeUpdate(cancel As Integer)
 
Dim sampleno As String
 
If Not sampleno Like "???????" Then
 
Me.Undo
 
MsgBox "Warning Sample Number " _
        & sampleno & " was not the required length.", _
        vbInformation, "InvalidInformation"
 
End If
 
End sub

Any help with this issue will be graetly appreciated.

[MindBender77]

Does this have to be written in code? You could create a custom input mask on the text box which uses 7 characters. Any more or any less will prompt with an error.

[Scott Price]

Explore the Len() function... It returns the length of a string, usable in vba code.

Regards,
Scott