Hallo ihr Lieben.

Warum genau tut mein Code nicht?

Option Compare Database

Public Function update_data()
    anrede.Value = DLookup("[Anrede]", "Personen", "[id] = " & functions.id)
    nachname.Value = DLookup("[Name]", "Personen", "[id] = " & functions.id)
    vorname.Value = DLookup("[Vorname]", "Personen", "[id] = " & functions.id)
    firma.Value = DLookup("[Firma]", "Personen", "[id] = " & functions.id)
    strasse.Value = DLookup("[Strasse]", "Personen", "[id] = " & functions.id)
    plz.Value = DLookup("[plz]", "Personen", "[id] = " & functions.id)
    ort.Value = DLookup("[ort]", "Personen", "[id] = " & functions.id)
    telefon.Value = DLookup("[telefon]", "Personen", "[id] = " & functions.id)
    email.Value = DLookup("[email]", "Personen", "[id] = " & functions.id)
    eldaszert.Value = DLookup("[eldaszert]", "Personen", "[id] = " & functions.id)
    dialogzert.Value = DLookup("[dialogzert]", "Personen", "[id] = " & functions.id)
    bildzert.Value = DLookup("[bildzert]", "Personen", "[id] = " & functions.id)
    
    For x = teamleiter.ListCount - 1 To 0 Step -1
        teamleiter.RemoveItem (x)
    Next
    Set rs = CurrentDb.OpenRecordset("SELECT id FROM personen WHERE team=-1")
    teamleiter.AddItem ("Teamleiter")
    Do While Not rs.EOF
        teamleiter.AddItem DLookup("[Name]", "Personen", "[id] = " & (rs!id))
        rs.MoveNext
    Loop

    If DLookup("[team]", "Personen", "[id] = " & functions.id) > 0 Then
        teamleiter.Value = DLookup("[Name]", "Personen", "[id] = " & DLookup("[team]", "Personen", "[id] = " & functions.id))
    Else
        teamleiter.Value = ""
    End If
    
    If DLookup("[team]", "Personen", "[id] = " & functions.id) = -1 Then
        teamleiter.Value = "Teamleiter"
    End If
    
    For x = erforderliche_qualis.ListCount - 1 To 0 Step -1
        erforderliche_qualis.RemoveItem (x)
    Next
    Set rs = CurrentDb.OpenRecordset("SELECT qualifikation FROM erforderliche_qualifikationen WHERE person=" & functions.id)
    Do While Not rs.EOF
        erforderliche_qualis.AddItem (rs!qualifikation)
        rs.MoveNext
    Loop
End Function

Private Sub Neu_Click()
    insertquery = "INSERT INTO personen (anrede,  name, vorname, firma, strasse, plz, ort, telefon, email, dialogzert, eldaszert, bildzert) VALUES (""" & anrede.Value & """,  """ & nachname.Value & """, """ & vorname.Value & """, """ & firma.Value & """, """ & strasse.Value & """, """ & plz.Value & """, """ & ort.Value & """, """ & telefon.Value & """, """ & email.Value & """, """ & dialogzert.Value & """, """ & eldaszert.Value & """, """ & bildzert.Value & """)"
    DoCmd.RunSQL insertquery
    MsgBox "Datensatz eingefügt!"
End Sub

Private Sub qualifikation_add_Click()
    If alle_qualis.Value <> -1 Then
        addquery = "INSERT INTO erforderliche_qualifikationen (person, qualifikation) VALUES (" & functions.id & ", """ & alle_qualis.Value & """) "
        DoCmd.RunSQL addquery
        update_data
    Else
        MsgBox ("Wählen Sie bitte eine Qualifikation zum Hinzufügen aus.")
    End If
End Sub

Private Sub qualifikation_del_Click()
    If erforderliche_qualis.Value <> -1 Then
        removequery = "DELETE FROM erforderliche_qualifikationen WHERE person=" & functions.id & " AND qualifikation=""" & erforderliche_qualis.Value & """"
        DoCmd.RunSQL removequery
        update_data
    Else
        MsgBox ("Wählen Sie bitte eine Qualifikation zum Löschen aus.")
    End If
End Sub

Private Sub Speichern_Click()
    changequery = "UPDATE personen SET anrede=""" & anrede.Value & """,  name=""" & nachname.Value & """, vorname=""" & vorname.Value & """, firma=""" & firma.Value & """, strasse=""" & strasse.Value & """, plz=""" & plz.Value & """, ort=""" & ort.Value & """, telefon=""" & telefon.Value & """, email=""" & email.Value & """, dialogzert=""" & dialogzert.Value & """ , eldaszert=""" & eldaszert.Value & """ , bildzert=""" & bildzert.Value & """  WHERE id = " & functions.id
    DoCmd.RunSQL changequery
    MsgBox "Datensatz geändert!"
End Sub

LG Krissi