Function AdresseHolen(rs As Recordset) As String
Dim strAdr As String
On Error GoTo EndeProc
strAdr = Choose(rs(„Anrede“), „Herrn“, „Frau“, „Firma“) + vbCrLf
If Not IsNull(rs(„ZusatzAnr“)) Then strAdr = strAdr + rs(„ZusatzAnr“) + “ „
If Not IsNull(rs(„Firma“)) Then strAdr = strAdr + rs(„Firma“) + vbCrLf
If Not IsNull(rs(„ZusatzAdr“)) Then strAdr = strAdr + rs(„ZusatzAdr“) + vbCrLf
If Not IsNull(rs(„Vorname“)) And Not IsNull(rs(„Nachname“)) Then
strAdr = strAdr + rs(„Vorname“) + “ “ + rs(„Nachname“) + vbCrLf
ElseIf Not IsNull(rs(„Nachname“)) Then
strAdr = strAdr + rs(„Nachname“) + vbCrLf
End If
If Not IsNull(rs(„Straße“)) Then strAdr = strAdr + rs(„Straße“) + vbCrLf + vbCrLf
If Not IsNull(rs(„PLZ“)) And Not IsNull(rs(„Ort“)) Then
strAdr = strAdr + rs(„PLZ“) + “ “ + rs(„Ort“) + vbCrLf
Else
If Not IsNull(rs(„PLZ“)) Then
strAdr = strAdr + rs(„PLZ“) + vbCrLf
ElseIf Not IsNull(rs(„Ort“)) Then
strAdr = strAdr + rs(„Ort“) + vbCrLf
End If
End If
If Not IsNull(rs(„Land“)) Then strAdr = strAdr + rs(„Land“) + vbCrLf
EndeProc:
AdresseHolen = strAdr
End Function