Hallo, ich habe folgendes Problem ich habe 2 Buttons der eine löscht auf dem Form_frm_Teilnehmerdaten eine Zuordnung und der andere löscht auf dem Form_frm_Sozialarbeiter einen Datensatz. Alleine funktionieren beide wunderbar nur wenn ich erst die Zuordnung lösche und dann den Account löscht er mir mit dem 2ten Button ein völlig falschen Datensatz in der Tabelle Teilnehmerdaten. Die Buttons stehen beide auf Form_frm_Sozialarbeiter.
Hier mal der Quellcode von den Buttons:
Hoffe mir kann jemand weiterhelfen!
Mit freundlichen Grüßen
Julian
Edit by Manschula: Für Codeabschnitte bitte den entsprechenden Tag verwenden --> VB-Tag eingefügt
Hier mal der Quellcode von den Buttons:
Visual Basic-Quellcode
- Private Sub Befehl9_Click()
- On Error GoTo Err_Befehl9_Click
- 'Zuordnung prüfen und gegebenfalls Datenfeld Teilnehmerdaten Zuordnung zum Sozialarbeiter löschen
- Form_frm_Teilnehmerdaten.Recordset.FindFirst "[ID-SA] = '" & Me![Liste6] & "'"
- If Form_frm_Teilnehmerdaten.Recordset.NoMatch = False Then
- Form_frm_Teilnehmerdaten.Recordset.Edit
- Form_frm_Teilnehmerdaten.Recordset![ID-SA].Value = Null
- Form_frm_Teilnehmerdaten.Recordset.Update
- Form_frm_Teilnehmerdaten.Recordset.FindNext "[ID-SA] = '" & Me![Liste6] & "'"
- If Form_frm_Teilnehmerdaten.Recordset.NoMatch = False Then
- Form_frm_Teilnehmerdaten.Recordset.Edit
- Form_frm_Teilnehmerdaten.Recordset![ID-SA].Value = Null
- Form_frm_Teilnehmerdaten.Recordset.Update
- End If
- End If
- 'Aktuallisieren
- DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
- End Sub
- 'Das hier ist dann der 2te Button zum löschen
- Private Sub Befehl14_Click()
- On Error GoTo Err_Befehl14_Click
- 'Sozialarbeiter löschen
- Dim zuordnung As String
- Form_frm_Teilnehmerdaten.Recordset.FindFirst "[ID-SA] = '" & Me![Liste6] & "'"
- If Form_frm_Teilnehmerdaten.Recordset.NoMatch = False Then
- zuordnung = MsgBox("Bitte löschen Sie erst die Zuordnung/en!", vbCritical, "Zuordnungen vorhanden") = vbOK
- Else
- Form_frm_Sozialarbeiter.Recordset.FindFirst "[ID-SA] = '" & Me![Liste6] & "'"
- If Form_frm_Sozialarbeiter.Recordset.NoMatch = False Then
- DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
- DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
- End If
- End If
- 'Aktuallisieren
- DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
- End Sub
Hoffe mir kann jemand weiterhelfen!
Mit freundlichen Grüßen
Julian
Edit by Manschula: Für Codeabschnitte bitte den entsprechenden Tag verwenden --> VB-Tag eingefügt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Manschula“ ()