Hi hab mal eine function geschrieben die folgendermaßen aussieht.
Function TestSelectCase(strWort As String) As String
Select Case True
Case strWort Like "Wüs*"
TextMitSelectCase = "Wüstenrot Versicherung"
Case strWort Like "A1*"
TextMitSelectCase = "A1 Telekom"
Case strWort Like "Uniq*"
TextMitSelectCase = "Uniqa Versicherung"
' Case strWort = ""
' TextMitSelectCase = ""
End Select
End Function
Leider habe ich eine Fehler #Fehler wenn die Zeile leer ist..
Habe mit is Null und is Empty probiert aber bekomme den Fehler leider nicht weg.
Könnte mir jemand bitte mal sagen wie dieser Code geändert werden muss damit diese Fehlermeldung nicht mehr aufträten würde.
Hab schon gesucht aber leider vieles nur für If statements gesehen und vieles nur für Excel.
Danke für Eure Hilfe!
LG
Albert
Hallo,
versuche es so:
Function TestSelectCase(strWort As [color=red]Variant[/color]) As String
If IsNull(strWort) Then
Exit Sub
End If
Select Case True
.
.
Hallo,
danke für Deine Antwort!
Leider funktioniert es so nicht.. :(
Wenn ich es strWort zu Variant ändere dann functioniert der nachfolgende Code leider nicht mehr.
Ich verwende diese Funktion in einer Abfrage und das berechnete Feld zeigt mir #Fehler ... na klar da es eben in der anderen Spalte Zeilen ohne Inhalt gibt.
Darum dachte ich das ich einen Leerstring einfach im berechneten Feld bekommen sollte wenn diese Zeile leer ist.
Danke
LG
Hallo,
ruf die Funktion in der Abfrage etwa so auf:
Feld: TestSelectCase(nz([Tabellenfeld];""))
Hall Franz,
ja so funktioniert es! Vielen Dank!!
Super!
Lg
Eine Frage hätte ich leider noch.
Wenn das Feld Umsatztext leer ist würde ich gerne das Feld von Buchungstext in die neue Spalte aufnehmen.
So habe ich es probiert.... keine Fehlermeldung aber auch keine Felder eingefügt
UmsText: TextMitSelectCase(Nz([Umsatztext];[Buchungstext]))
kann man es überhaupt so in einer auswahlabfrage realisieren?
LG
Albert
Hallo,
das geht doch nicht mit einer Auswahlabfrage....
Dazu ist eine AKTUALISIERUNGS-Abfrage erforderlich:
update tblDeineTabelle set Umsatztext = Buchungstext where Umsatztext is null and Buchungstext is not null
Hallo Franz,
ja war etwas unglücklich formuliert .. dachte ob man es in einem rutsch machen kann..
Aber danke ich werde es so wie Du es beschrieben hast erledigen!