Hallo,
in einem Endlosformular möchte ich die Gelegenheit haben, Datensätze zu löschen.
Am Ende eines jeden Datensatzes befindet sich eine Schaltfläche zum Löschen des jeweiligen Datensates. Habe es schon mit Makro und VBA probiert.
Es kommt immer die Meldung "Run-Time-Error 2046 - The command or action 'DeleteRecord' isn't available now".
Mit folgender VBA-Anweisung habe ich es probiert:
Application.RunCommand acCmdDeleteRecord
Vielleicht kann mir jemand weiterhelfen. Vielen Dank.
Gruss
Claus
Hi,
vermutlich ist die Datensatzquelle des Formulars nicht änderbar.
Zeig doch mal den SQL-Code der Abfrage.
Hi MaggieMay,
der SQL-Code lautet:
SELECT tblDelNoteIntHead.DelNoteIntHeadID, tblDelNoteIntHead.DateDNI, tblDelNoteIntHead.ShipperNameDNI, tblConsignee.ConsigMatch, tblConsigneeDepartment.ConsigDepartName, tblDelNoteIntHead.ConsigNameDNI, tblDelNoteIntHead.PriorityID
FROM (tblDelNoteIntHead INNER JOIN tblConsignee ON tblDelNoteIntHead.ConsigIDDNI = tblConsignee.ConsigneeID) INNER JOIN tblConsigneeDepartment ON tblDelNoteIntHead.ConsigDepartID = tblConsigneeDepartment.ConsigDepartID
ORDER BY tblDelNoteIntHead.DelNoteIntHeadID DESC;
Liegt es vielleicht daran, dass ich mittels INNER JOIN zwei Tabellen verknüpft habe?
Gruss
Claus
Hi,
tatsächlich hast du drei Tabellen miteinander verknüpft, da wird's schon schwieriger, aber ich vermute, es könnte an den fehlenden Datensatzschlüsseln liegen. Probiere mal aus ob sich was ändert, wenn du die Primärschlüssel aller beteiligten Tabellen mit in die Abfrage nimmst.
Hi,
habe den Fehler gefunden!
Das Endlosformular hatte bei der Eigenschaft "Allow Deletions" ein "No" eingestellt. Sorry für die Umstände.
Gruss
Claus
;D