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
|