[AccessD] Removing blank line from a report

This might be the long way around but I use this function to get my address


Public Function GetAddress(xName, xAddress1, xAddress2, xAddress3, xCity,
xState, xZip)

If IsNull(xAddress2) Then
    GetAddress = xName & Chr(13) & Chr(10) & xAddress1 & Chr(13) & Chr(10) &
xCity & ", " & xState & "  " & xZip
ElseIf IsNull(xAddress3) Then
    GetAddress = xName & Chr(13) & Chr(10) & xAddress1 & Chr(13) & Chr(10) &
xAddress2 & Chr(13) & Chr(10) & xCity & ", " & xState & "  " & xZip
Else
    GetAddress = xName & Chr(13) & Chr(10) & xAddress1 & Chr(13) & Chr(10) &
xAddress2 & Chr(13) & Chr(10) & xAddress3 & Chr(13) & Chr(10) & xCity & ", "
& xState & "  " & xZip
End If

Not sure why I didn't use the vbcrlf instead of the chr(13), etc -  there
was some reason though! :-)

End Function

Jeanine

-----Original Message-----
From: accessd-admin at databaseadvisors.com
[mailto:accessd-admin at databaseadvisors.com]On Behalf Of Mark Boyd
Sent: Tuesday, February 11, 2003 8:25 AM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Removing blank line from a report

I have a report that is formatted like a business letter.
In the address section (which is in the page header), I have the following 4
fields:
[BillingName]
[Addr1]
[Addr2]
[CityStZip]

How can I force the [CityStZip] up a line when [Addr2] is blank?
Most of the addresses look like this:

John Smith
123 Main St.

City, St  12345


I tried setting the CanShrink property of [Addr2] to 'Yes', but this doesn't
work.
Any ideas?


Mark Boyd
Sr. Systems Analyst
McBee Associates, Inc.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030211/c3e29a74/attachment-0002.html>