doulostheou
Registered User.
- Local time
- Today, 13:53
- Joined
- Feb 8, 2002
- Messages
- 314
Is there any reason the code below might not work in Access 2000? I was at one of my jobs that uses 97 and this worked perfectly. I went to my other job to implement the change (who uses 2000) and it only shows the first line.
Function AddressBlock$ (AName, Addr1, Addr2, City, State, Zip)
Dim A1$, A2$, A3$, A4$, CR$
CR$ = Chr(13) & Chr(10) 'Carriage return and line feed.
A1$ = IIf(ISB(AName),"",AName & CR$)
A2$ = IIf(ISB(Addr1),"",Addr1 & CR$)
A3$ = IIf(ISB(Addr2),"",Addr2 & CR$)
A4$ = City & ", " & State & " " & Zip
AddressBlock = A1$ & A2$ & A3$ & A4$ 'Concatenate the strings.
End Function
Function ISB (V) As Integer
If IsNull(V) or V = "" Then ISB = True Else ISB = False
End Function
Function AddressBlock$ (AName, Addr1, Addr2, City, State, Zip)
Dim A1$, A2$, A3$, A4$, CR$
CR$ = Chr(13) & Chr(10) 'Carriage return and line feed.
A1$ = IIf(ISB(AName),"",AName & CR$)
A2$ = IIf(ISB(Addr1),"",Addr1 & CR$)
A3$ = IIf(ISB(Addr2),"",Addr2 & CR$)
A4$ = City & ", " & State & " " & Zip
AddressBlock = A1$ & A2$ & A3$ & A4$ 'Concatenate the strings.
End Function
Function ISB (V) As Integer
If IsNull(V) or V = "" Then ISB = True Else ISB = False
End Function