Office: Leere Datensätze löschen

Liebes Forum,

bei der Dateneingabe in Formularen werden oft versehentlich neue Datensätze angelegt, die dann als leere Zeile in der dazugehörigen Tabelle auftauchen.

Gibt es eine Möglichkeit diese (leeren) Datensätze automatisch zu löschen? In etwa: Wenn alle Felder des angelegten Datenstzes leer sind, dann Datensatz löschen.

Gruß

Rüdiger

:)

 

Hallo Rüdiger,
das müsste doch mit einer Löschabfrage zu machen sein. Lasse doch eine Löschabfrage beim schliessen des Programmes laufen mit der Bedingung bzw. Kriterium wenn = 0 oder Ist Null oder "". ( Kommt auf das Feld an, Text oder Zahl )Ich gehe davon aus das du alle Felder der Tabelle in die Abfrage ziehen musst und die Bedingung bzw. Kriterium in alle Felder schreiben musst. Müsste man mal testen. Ich würde es über eine Löschabfrage versuchen. Geht aber auch bestimmt über VBA, habe dafür aber keine Lösung parat.
Gruß Eric

 

Servus, schon wieder Du *wink.gif*

Am einfachsten würde sich ein Button anbieten, beim Klicken Ereignisprozedur:
Code:

Löscht die letzten Eingaben (d.h. Fehleingaben können stehen bleiben) und setzt den DS zurück. Ich weiß aber nicht, ob es das ist, was Du möchtest?

 

Hallo

Habe mal eine Funktion , die überprüft, ob bestimmte Felder ausgefüllt wurden, oder nicht, bzw. ob die Anzahl an Zeichen in diesem Feld eine bestimmte Anzahl überschreitet. Wenn von z.b von 5 zu überprüfenden Feldern 3 ausgefüllt sind, soll der DS angelegt werden, sonst soll dieser wieder gelöscht werden.

Code:

 

Euch allen herzlichen Dank für die Tipps. Das mit der Löschabfrage funktioniert prizipiell, aber ich schaffe es nicht, die Abfrage ereignisabhängig aufzurufen. Außerdem stören die Meldungen (Wollen Sie wirklich . . . u.s.w.).

Liebe Brigitte, dein Vorschlag sieht genial einfach aus, klappt aber leider nicht (konnte nicht nachvollziehen, wo's klemmt).

Die Variante von Nelix geht wohl in die richtige Richtung, aber mit meinen begrenzten Fähigkeiten ist es mir noch nicht gelungen, die erforderlichen Anpassungen für meine Anwendung vorzunehmen.

Ich arbeite dran und melde mich wieder wenn's funktioniert (oder nicht!)

Gruß

Rüdiger

 

Was genau klappt denn nicht?

Button mit dem Assi erstellen (im HF, sofern du UF auch hast), nicht weiterok, sondern einfach auf abbrechen. Dann hast nur den Button dort, gehst auf Eigenschaften --> Beim Klicken , (die vorhandene [Ereignisprozedur] lösch einfach, die hat der Assi gmacht), --> Code Editor (die ...) dort kopierst meinen Code rein.

förtig *biggrin.gif*

Gute Nacht.

 

Hi Rüdiger,

warum stellst Du nicht einfach die Eigenschaft "Eingabe erforderlich" der Tabellenfelder, die Pflichtfelder sein sollen, auf "Ja"? Dann kann erst garkein Datensatz angelegt werden, der nicht die erforderlichen Eingaben enthält.

Ansonsten löschst Du per VBA am einfachsten mit dem Execute-Statement, z.B.:

CurrentDb.Execute("DELETE FROM TabelleXY WHERE IsNull(Feld1) AND IsNull(Feld2)")

 

hi...eventuell lästige warnmeldungen kannst du doch einfach vor einer funktion mit
docmd.setwarnings false
ausschalten.
Allerdings solltest du sie danach mit
docmd.setwarnings true
wieder anschalten, denn ganz so unnötig sind sie ja wohl doch nicht.
Bernd

 

Hallo

Sorry habe jetzt erst gesehen, dass ich eine Funktion vergessen hatte hier zu posten, die ebenfalls aufgerufen wird:

Code:

Grüße

Nelix

 

Hi Bernd,

O.K. wieder was gelernt. Danke!
Aber da ich die Abfrage sozusagen nicht "automatisch" über Eigenschaften/Ereignis starten kann, ist dieses Problem eher sekundärer Natur.

Gruß

Rüdiger

 

Liebe Brigitte,

mit dem Button klappt's - sozusagen manuell. Ich möchte den Löschvorgang aber gerne automatisch, z.B. als Ereignis "Nach Eingabe" starten. Dein Code macht das zwar auch, allerdings wird dann grundsätzlich jeder neu angelegte Datensatz gelöscht - egal ob er leer ist oder nicht.

Gruß

Rüdiger

 

Jo mei Rüdiger, da soll man ja auch nur draufdrücken, wenn man löschen will *tongue.gif*

Schade, hätt' Dir gern weitergeholfen, aber Dein Anliegen übersteigt bei weitem meine Kenntnisse *frown.gif*

 

Hi Johnny,

der Vorschlag mit CurrentDb.Execute führt offensichtlich zur Lösung. Wenn ich den Code z.B. per Button starte klappt's. Aber ich schaffe es nicht, den Code über ein Ereignis des UFO's zu starten.
Und dann noch eine kleine Ergänzung: Nachdem der Datensatz gelöscht ist, sollte das UFO aktualisiert werden, damit die Wirkung auch sichtbar wird. Ist das lösbar?

Gruß

Rüdiger

 

Hi Rüdiger,

da ich Deinen Code nicht kenne und auch nicht weiß, bei welchem Ereignis er ausgelöst werden soll, kann ich Dir auch nicht konkret sagen, warum er in einem Ereignis im UFo nicht funktioniert. Grundsätzlich funktioniert ein Execute-Befehl aus jeder Prozedur heraus, sofern das SQL-Statement korrekt ist (per MsgBox vor dem Execute überprüfen) und der zu bearbeitende Datensatz nicht grade bearbeitet wird.

Die Datenherkunft eines UFo's aktualisierst Du...

...aus dem UFo mit
Me.Requery

...aus dem HFo mit
Me!NameDesUFoControls.Form.Requery


Dennoch würde ich mir an Deiner Stelle Gedanken darüber machen, wie Du vermeiden kannst, leere Datensätze anzulegen, anstatt diese durch Kontrollroutinen zu löschen. Es ist möglich Pflichtfelder im BeforeUpdate-Ereignis des Forms abzufangen, bzw. in den Tabelleneigenschaften vorzugeben.

 

Hi Johnny,

sicher habe ich mich zu undeutlich ausgedrückt. Ich versuche zu präzisieren: In einem UFo werden zwei Felder (ID und Bes_Dat aus Tabelle Besuche) als Endlosformular gezeigt. Um weitere Daten einzugeben, können für ID aus einem Kombifeld Werte übernommen werden. Bes_Dat wird manuell eingegeben.

Erfolgt für ID bzw. Bes_Dat versehentlich ein Eintrag, kann ich die Daten zwar jeweils im Steuerelemt löschen, aber dafür bleibt ein leerer Datensatz in der Tabelle Besuche stehen, den mir das UFo natürlich auch anzeigt.

Wende ich per Button (Bei Klick) Deinen Code an, wird der Satz zuverlässig gelöscht und ich sehe im Steuerelement den Eintrag #Gelöscht. Me.Requery bringt nicht den gewünschten Erfolg. Erst wenn ich das HFo schließe und wieder öffne, ist der leere Datensatz verschwunden.

Um den Vorgang zu automatisieren habe ich den Code verschiedenen Ereignissen (Bei Deaktivierung, Beim Löschen, Nach Aktualisierung u.s.w.) in den Eigenschaften meines UFo's zugeordnet, aber ohne Erfolg.

Ich hoffe, dass ich dich jetzt nicht total verwirrt habe.

Gruß

Rüdiger