MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access - Code Archiv
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 16.09.2009, 21:40   #1
JPA
MOF Koryphäe
MOF Koryphäe
Tipp Codebeispiel - Textverkettung mit Trennzeichen

Häufig müssen Texte mit Trennzeichen Verkettet werden:
[Nachname] & ", " & [Vorname] -> "Allain, Jean Pierre"

Sollte allerdings das Feld [Vorname] null sein, erhält man folgendes:
"Allain, "
Mit IF oder IIF kann man diesen Fall abfangen.

Bei längeren Verkettung wie diese:
[Anrede] & " " & [Titel] & " " & [Vorname] & " " & [Nachname]
wird es schnell unübersichtlich.

Daher habe ich folgende Function dafür erstellt:
Code:

Public Function StrConcatDelim(ParamArray Text()) As String
    Dim tmp As String, i As Long
    tmp = Text(0) & ""
    For i = 1 To UBound(Text) Step 2
        If tmp = "" Or Text(i + 1) & "" = "" Then
            tmp = tmp & Text(i + 1)
        Else
            tmp = tmp & Text(i) & Text(i + 1)
        End If
    Next
    StrConcatDelim = tmp
End Function
Aufrufbeispiel:
Code:

Dim sText As String
sText = StrConcatDelim([Anrede], " ", [Titel], " ", [Vorname], " ", [Nachname])
sText = StrConcatDelim([Nachname], ", ", [Vorname])

Beim Aufruf der Funktion ist darauf zu achten, mindestens 3 Parameter oder 5 oder 7 oder 9 usw.. Parameter zu übergeben.

__________________


MS-Office-Inside
JPA ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:13 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.