Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: chappi am Januar 21, 2018, 15:35:38

Titel: Löschen alles Datensätze im Unterformular
Beitrag von: chappi am Januar 21, 2018, 15:35:38
Hallo,

ich hoffe mir kann mal kurz jemand helfen.
Ich habe in einem Formular Produktdaten und ein Unterformular wo ich Serienummern erstell.
Die Tabellen heißen tabPro und tabSer und sind verküpft über Fa und IDFA.
Zur Zeit habe ich eine Schaltfläche Löschen im Unterformular mit folgendem Code:
CurrentDb.Execute "DELETE * FROM tabSer"
Das hat den nachteil das die ganze Tabelle gelöscht wird.
Mein zweiter ansatz sieht so aus
CurrentDb.Execute "DELETE * FROM tabSer WHERE [IDFA] = " & Forms!formPro![FA]
Es sollen nur diese Seriennummer gelöscht werden die mit der FA verknüpft sind.
leider funktioniert es nicht, finde aber den fehler nicht.

Danke
Titel: Re: Löschen alles Datensätze im Unterformular
Beitrag von: MzKlMu am Januar 21, 2018, 15:38:42
Hallo,
welcher Datentyp ist Fa bzw. IDFA ?
Befindet sich FA auf dem Ufo und wo ist der Button zum Löschen ?
Willst Du einen Datensatz im Unterformular löschen ?
Titel: Re: Löschen alles Datensätze im Unterformular
Beitrag von: chappi am Januar 21, 2018, 15:48:16
Hallo Klaus,
beide Datentypen sind Text.
Fa ist im Hauptformular und IDFA im Unterformular.
Der Button Löschen ist im Unterformular.
Ich möchte alle Datensätze auf einmal Löschen da dohrt offt viele Seriennummern stehen,
die durch eine Schleife erzeugt werden.
Titel: Re: Löschen alles Datensätze im Unterformular
Beitrag von: Beaker s.a. am Januar 21, 2018, 16:13:49
Hallo,
Zitatbeide Datentypen sind Text.
Eher suboptimal für ID-Felder.
Ansonsten
CurrentDb.Execute "DELETE * FROM tabSer WHERE [IDFA] = '" & Forms!formPro![FA] & "'"
gruss ekkehard
Titel: Re: Löschen alles Datensätze im Unterformular
Beitrag von: chappi am Januar 21, 2018, 16:25:43
Danke so hat es funkitoniert.
Ich weiß das es suboptimal ist, es ist eine altlast dich ich noch nicht behoben habe.
Titel: Re: Löschen alles Datensätze im Unterformular
Beitrag von: MzKlMu am Januar 21, 2018, 17:26:11
Hallo,
wenn IDFA und Button im Ufo sind geht es auch so:
CurrentDb.Execute "DELETE * FROM tabSer WHERE [IDFA] = '" & Me.[IDFA] & "'", dbFailOnError
Habe noch ein dbFailOnError angehängt das für ordentliche Fehlermeldungen sorgt wenn etwas schief läuft.