Office: (Office 2007) Datensatz aus Unterformular löschen

Hallo liebe Access-Gemeinde,

vielleicht findet sich jemand der mir Rookie helfen kann.

Ich versuche ein Formular für den Verkauf von Artikel zu erstellen. Also eine Art Kassensystem.

In einem Unterformular („ufrm_artikel_scannen“) frage ich mittels eines EAN-Scanner die „ID_Artikel“ ab. Das Unterformular ist mit der Tabelle „tbl_verkauf“ verknüpft und die gescannten Artikel-ID werden dort gespeichert.

Beim Verlassen des Einlesefeldes wird mittels VBA in einem weiteren Unterformular („ufrm_artikel_verkauf“) der Artikel mit seinen Informationen angezeigt. Dieses Unterformular ist mit der Abfrage „abfr_verkauf“ verknüpft. In der Abfrage werden über die Tabelle „tbl_verkauf“ die Informationen zum Artikel und zur Artikelgruppe ermittelt. Es handelt sich um ein Endlosformular. Mit jedem neuen Scan wird in der Tabelle „tbl_verkauf“ ein weiterer Artikel hinzugefügt und im anderen Unterformular angezeigt. Auch wird dort bereits die Gesamtsumme angezeigt.

Nun möchte ich im Unterformular „ufrm_artikel_verkauf“ einen Löschbutton hinter dem Satz einfügen mit welchem ich den Artikel ggf. wieder aus der Verkaufsliste entfernen kann. Man kann sich ja mal irren und möchte den Artikel stornieren.

Es darf aber nicht der Datensatz über die Abfrage gelöscht werden, da mir dann alle Informationen zum Artikel gelöscht werden. So z.B. auch die Beschreibung aus der Artikelgruppe usw. Es sollte über den Button nur die entsprechende „ID_Artikel“ in der Tabelle „tbl_verkauf“ gelöscht werden und das Unterformular „ufrm_artikel_verkauf“ aktualisiert werden.

Kann mir hier jemand mit einem VBA-Code weiterhelfen.

Bitte habt Verständnis und versucht es mir den Code so genau wie möglich zu beschreiben da ich VBA nicht gelernt habe und wirklich Rookie bin.

Euch schon mal „Vielen Dank“!

:)

 

Hallo,
das lässt sich am besten mit einer Löschabfrage erledigen. Setze einen kleinen Löschbutton mit Papierkorb in den Detailbereich, so dass er bei jedem DS sichtbar ist. Dann legst du unter Eigenschaften/Ereignis im Ereignis des Buttons "Klick" eine Ereignisprozedur an und wechselst mit den ... in den VBA-Editor.
Dort gibst du dann in der Sub/Prozedur folgenden Code ein:
Code:

Edit: Achtung! Du wirst für die Löschabfrage noch ein weiteres Kriterium brauchen, sonst wird jeder Artikel mit dieser ID aus Verkauf gelöscht und nicht nur der aktuelle. Aus deiner Beschreibung kann ich grad nicht erkennen, was das evtl. sein könnte. Hat die Tabelle Verkauf noch eine eigene ID? Dann wäre das die Alternative.
maike

 

Servus Rookie123,

Es werden beim Löschen über die Abfrage nur die ZEIGER zu den Artikeln gelöscht und nicht die Artikel selbst. So ist es zumindest bei einem sauberen Tabellenmodell.
Es wäre vielleicht sinnvoll, eine abgespeckte Demo DB mit ein paar anonymisierten Daten als zip oder rar hier einzustellen.
Als Hinweis sei gesagt, dass Bilder als Formularhintergrund usw. eine DB unheimlich aufblasen.

Ahh..Ich sehe, dass Maikek schon geantwortet hat.

 

Hallo Maike,

vielen Dank, war genau das was ich gesucht habe.
Es funktioniert!

LG

 

Hast du meinen Nachtrag noch gesehen?
maike

 

Hat so schon gepasst.
Es kann ja vorkommen, dass erst zum Abschluss die Liste mit den Artikel überprüft wird und dann der erste oder letzte Eintrag gelöscht wird.
Den Artikel gibt es immer nur einmal. Es handelt sich um einen Skibasar. Waren werden in Kommission angenommen und dann ehrenhalber verkauft.

Schönen Abend noch!