ACCESS FEED: Re: [MS_AccessPros] Remove the blank line from mailing label

Kamis, 26 Maret 2015

Re: [MS_AccessPros] Remove the blank line from mailing label

Thank you very much Mr. Viesca and Duane

I have modified the code in the label's control source like what Mr. Viesca recommended - use a Null and the "&". It is now working very good.

I've also tried out the function in the thread which Duane Hookom mentioned. I first placed this code

=CanShrinkLines(IIf([Cname]='0',Null,Trim([Cname])),IIf([ctitle]='0',Null,Trim(c[title])),IIf([coname]='0',Null,Trim([coName])),IIf([streetline1]='0',Null,Trim([streetline1])),IIf([streetline2]='0',Null,Trim([streetline2])),IIf([city]='0',Null,Trim([city])),IIf([state]='0',Null,Trim([state])),IIf([zip]='0',Null,Trim([zip])))

in the label's control source, I then added an If statement to the function (see below), so the City State and Zip will be printed on the same line instead of dropdown, printed on a separate line.That seems to be working fine, however I am wondering if this is the correct way to do or there's an appropriate, better way to do?

Thanks

Phucon

Public Function CanShrinkLines(ParamArray arrLines())

' Pass this function the lines to be combined

' For example: strAddress =

' CanShrinkLines(Name, Address1, Address2, City, State, Zip)

Dim X As Integer, strLine As String

For X = 0 To UBound(arrLines)

If Not IsNull(arrLines(X)) And Trim(arrLines(X)) <> "" Then

If X = 6 Or X = 7 Then

strLine = strLine & "" & arrLines(X)

Else