[MS Access] Anzeige von Spaltenwerten in Textfeldern nach Selektion eines Datensatzes

Ziel: es soll auf einem Formular im Kombinationsfeld (k_username) ein Benutzername ausgewählt werden und dazu Adressdaten angezeigt werden

1. Datensatzherkunft des Kombinationsfeldes k_username

SELECT user.ID, user.name, user.strasse, user.telefon
FROM users
ORDER BY user.name;

2. Gebundene Spalte: 1
3. Spaltenanzahl: 4
4. Spaltenbreiten: 0cm;2,542cm;0cm;0cm
5. auf der Form nun entsprechende Bezeichnungsfelder für die anzuzeigenden Spaltenwerte einfügen (Name, Straße, Telefon)
6. nun die Ereignisprozeduren („Beim Anzeigen“ und „Nach Aktualisierung“), welche die Spaltenwerte in die Bezeichnungsfelder schreiben, editieren

' Beim Anzeigen
Private Sub Form_Current()
    If Not IsNull(Me!k_username) Or Not Me!k_username= "" Then
        bzf_username.Caption = Me![k_username].Column(2)
        bzf_strasse.Caption = Me![k_username].Column(3)
        bzf_telefon.Caption = Me![k_username].Column(5)
    Else
        bzf_username.Caption = ""
        bzf_strasse.Caption = ""
        bzf_telefon.Caption = ""
    End If
End Sub

' Nach Aktualisierung
Private Sub k_username_AfterUpdate()
    If Not IsNull(Me!k_username) Or Not Me!k_username= "" Then
        bzf_username.Caption = Me![k_username].Column(2)
        bzf_strasse.Caption = Me![k_username].Column(3)
        bzf_telefon.Caption = Me![k_username].Column(5)
    Else
        bzf_username.Caption = ""
        bzf_strasse.Caption = ""
        bzf_telefon.Caption = ""
    End If
End Sub