Pad Field With Spaces? (a2k (9.0.6926) SP-3 Jet 4.0 SP-8)

Topic

New Reply

I have the following code that is not working

If strLastName is a length of 3 I want to pad 1 space between the 3 characters and the strSSN in strVendorNum

If strLastName is a length of 2 I want to pad 2 spaces between the 2 characters and the strSSN in strVendorNum

Thanks, John

If Len(Me.strLastName = 4) Then
    Me.strVendorNum = UCase(Left(Me.strLastName.Text, 4)) _
    & Left(Me.strSSN, 3) & "-" & MID(Me.strSSN, 5, 2) & "-" & Right(Me.strSSN, 4)
Else
If Len(Me.strLastName = 3) Then
    Me.strVendorNum = UCase(Left$(Me.strLastName.Text, 4)) & " " _
    & Left(Me.strSSN, 3) & "-" & MID(Me.strSSN, 5, 2) & "-" & Right(Me.strSSN, 4)
Else
If Len(Me.strLastName = 2) Then
    Me.strVendorNum = UCase(Left$(Me.strLastName.Text, 4)) & "  " _
    & Left(Me.strSSN, 3) & "-" & MID(Me.strSSN, 5, 2) & "-" & Right(Me.strSSN, 4)
Else
If Len(Me.strLastName = 1) Then
    Me.strVendorNum = UCase(Left$(Me.strLastName.Text, 4)) & "   " _
    & Left(Me.strSSN, 3) & "-" & MID(Me.strSSN, 5, 2) & "-" & Right(Me.strSSN, 4)
End If
End If
End If
End If

Reply | Quote

Replies

In what sense is it not working?

Reply | Quote

Last name Bay and social security number 111-22-3333 comes out as:

Bay111-22-3333

I want it to be

Bay 111-22-3333

Reply | Quote

Oh wait – an expression such as

If Len(Me.strLastName = 4) Then

makes no sense of course, except if someone’s last name happens to be “4”. It should be

If Len(Me.strLastName) = 4 Then

and if strLastName is the active control, you should use

If Len(Me.strLastName.Text) = 4 Then

And similarly for the others.

Reply | Quote

Thanks for your help!

Reply | Quote