Autom. Ermitteln der Anrede anhand des Vornamens Meist werden in Adressenverwaltungen die Anreden nicht richtig gepflegt. Die nachfolgende Funktion schafft mit 90% Abhilfe, indem die Anrede anhand ...
Autor:   Michael Becker	Bewertung:	Views:  37.086
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Meist werden in Adressenverwaltungen die Anreden nicht richtig gepflegt. Die nachfolgende Funktion schafft mit 90% Abhilfe, indem die Anrede anhand des letzten Buchstabens des Vornamens automatisch zugeordnet wird.

Public Function Anrede(ByVal Vorname As String) As String
  Vorname = Trim$(Vorname)
  If UCase$(Right$(Vorname, 1)) = "A" _
    Or UCase$(Right$(Vorname, 1)) = "E" _
    Or UCase$(Right$(Vorname, 1)) = "I" _
    Or UCase$(Right$(Vorname, 1)) = "O" _
    Or UCase$(Right$(Vorname, 1)) = "U" Then     
      Anrede = "Frau"
  Else 
      Anrede = "Herr"
  End If
End Function

Aufruf der Funktion durch ...

MsgBox Anrede("Michael")

oder wenn Datenbankfeld(1) = Anrede dann ....

SQL = "SELECT id,anrede,name,vname FROM tbladressen ORDER BY name"
rs.Open SQL, adocn.connection, adOpenForwardOnly, adLockReadOnly
If rs.State = adStateOpen Then
  If nz(rs(1)) = "" Then txtAnrede.text = Anrede(rs(1))
End If 
rs.Close
Set rs = Nothing  
 
' Funktion nz beseitigt NULL-Felder 
' siehe hierzu in vb@rchiv TIPP: Datenbanken Laufzeitfehler 94
Public nz(s as string) As String
  If IsNull(s) = True Then
    nz = ""
  Else
    nz = Trim$(s)
  End If
End Function

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.