Validation Rule : Only characters

[yaks]

I want to ensure that a field contains only Characters without numbers .... Do you know the validation rule ? thank you ! ( I'm new at ms access)

[JConsulting]

I want to ensure that a field contains only Characters without numbers .... Do you know the validation rule ? thank you ! ( I'm new at ms access)

put this in your text box's Before_Update event and change the name where appropriate to your textbox.
J

dim j as integer
'---- loop through characters is box ----
for j = 1 to len(me.textbox.text)
     '------ look for anything not acceptable -------------------------
    if mid(me.textbox.text,j,1) < "A" or mid(me.textbox.text,j,1) > "Z" THEN
            '--- if found - warn user ------------------
         msgbox "Enter Warning Message Here"
         cancel=true
           exit for
    end if
next j
 
 

[yaks]

>>>Private Sub Name_BeforeUpdate(Cancel As Integer)<<<
It gets yellow and it says that i have a bug... :/ any solutions?


Dim j As Integer
'---- loop through characters is box ----
For j = 1 To Len(Me.Name.Text)
'------ look for anything not acceptable -------------------------
If Mid(Me.Name.Text, j, 1) < "A" Or Mid(Me.TextBox.Text, j, 1) > "Z" Then
'--- if found - warn user ------------------
MsgBox "It must contain only characters"
Cancel = True
Exit For
End If
Next j

End Sub

[JConsulting]

>>>Private Sub Name_BeforeUpdate(Cancel As Integer)<<<
It gets yellow and it says that i have a bug... :/ any solutions?


Dim j As Integer
'---- loop through characters is box ----
For j = 1 To Len(Me.Name.Text)
'------ look for anything not acceptable -------------------------
If Mid(Me.Name.Text, j, 1) < "A" Or Mid(Me.TextBox.Text, j, 1) > "Z" Then
'--- if found - warn user ------------------
MsgBox "It must contain only characters"
Cancel = True
Exit For
End If
Next j

End Sub

>>Private Sub Name_BeforeUpdate(Cancel As Integer)

Replace Name with the name of your textbox. If your textbox is called name...rename it to txtName and use that.
J

[JConsulting]

>>>Private Sub Name_BeforeUpdate(Cancel As Integer)<<<
It gets yellow and it says that i have a bug... :/ any solutions?


Dim j As Integer
'---- loop through characters is box ----
For j = 1 To Len(Me.Name.Text)
'------ look for anything not acceptable -------------------------
If Mid(Me.Name.Text, j, 1) < "A" Or Mid(Me.TextBox.Text, j, 1) > "Z" Then
'--- if found - warn user ------------------
MsgBox "It must contain only characters"
Cancel = True
Exit For
End If
Next j

End Sub

also, read through the code, there are other places where you need to change the name of the textbox.
J

[JConsulting]

also, read through the code, there are other places where you need to change the name of the textbox.
J

change the name of your textbox to txtName

Private Sub txtName_BeforeUpdate(Cancel As Integer)
Dim j As Integer
'---- loop through characters is box ----
For j = 1 To Len(Me.txtName)
'------ look for anything not acceptable -------------------------
If Mid(Me.txtName, j, 1) < "A" Or Mid(Me.txtName, j, 1) > "Z" Then
'--- if found - warn user ------------------
MsgBox "It must contain only characters"
Cancel = True
End If
Exit For
Next j
End Sub
 

[ADezii]

I want to ensure that a field contains only Characters without numbers .... Do you know the validation rule ? thank you ! ( I'm new at ms access)

This is a code free, very easy, and probably the most efficient solution, since it limits the entry into a Field to only Characters at the Table Level. If you have multiple Forms each referencing this Field, you would have to duplicate the Validation Code, whereas setting the Input Mask at the Table Level will be universal. You would not even be able to enter a number in the Field making this approach pro-active instead of reactive. Set The Input Mask of your Field in Table Design View to the following. The actual number of ?s is irrelevant as long as there is 1 more ? than the longest possible entry. If you need further explanation, let us know:

?????????????????????????????????;1;" "