Spaces in front of text

B

bladelock

I have three fields on a form, txt1, txt2, txt3. When user enters data
sometimes they accidently put a space in front of the text. How can I trim
these text fields so the users don't make these mistakes. Thanks again
 
6

'69 Camaro

Hi.
How can I trim
these text fields so the users don't make these mistakes.
Click to expand...

In the form's OnBeforeUpdate( ) event, use the LTrim( ) function on the
values of these text boxes to remove the leading space. Try:

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo ErrHandler

Me!txt1.Value = LTrim(Me!txt1.Value)
Me!txt2.Value = LTrim(Me!txt2.Value)
Me!txt3.Value = LTrim(Me!txt3.Value)

Exit Sub

ErrHandler:

MsgBox "Error in Form_BeforeUpdate( ) in" & vbCrLf & Me.Name & _
" form." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & Err.Description
Err.Clear

End Sub

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.

(Please remove ZERO_SPAM from my reply E-mail address so that a message will
be forwarded to me.)
- - -
If my answer has helped you, please sign in and answer yes to the question
"Did this post answer your question?" at the bottom of the message, which
adds your question and the answers to the database of answers. Remember that
questions answered the quickest are often from those who have a history of
rewarding the contributors who have taken the time to answer questions
correctly.
 
B

bladelock

I get an error message "The macro or function set to BeforeUpdate or
ValidationRule property for this field is preventing Microsoft Access from
saving data in the field"

I did what you told me to do, did I screw it up?
 
B

bladelock

It works, sorry

'69 Camaro said:
Hi.


In the form's OnBeforeUpdate( ) event, use the LTrim( ) function on the
values of these text boxes to remove the leading space. Try:

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo ErrHandler

Me!txt1.Value = LTrim(Me!txt1.Value)
Me!txt2.Value = LTrim(Me!txt2.Value)
Me!txt3.Value = LTrim(Me!txt3.Value)

Exit Sub

ErrHandler:

MsgBox "Error in Form_BeforeUpdate( ) in" & vbCrLf & Me.Name & _
" form." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & Err.Description
Err.Clear

End Sub

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.

(Please remove ZERO_SPAM from my reply E-mail address so that a message will
be forwarded to me.)
- - -
If my answer has helped you, please sign in and answer yes to the question
"Did this post answer your question?" at the bottom of the message, which
adds your question and the answers to the database of answers. Remember that
questions answered the quickest are often from those who have a history of
rewarding the contributors who have taken the time to answer questions
correctly.
Click to expand...
 
Top