Office: (Office 2016) access Datensatz aus Formular löschen

Guten Abend,
komme jetzt nicht weiter.
Ich möchte gern einen Datensatz im Unterformular (Reparaturen) löschen.
Habe mal eine Befehlsschaltfläche erstellt.
Anbei Muster
mfg kurt k

:)

 

Hallo,
wenn Du einen Datensatz im Ufo löschen willst, sollte der Button dazu in das Ufo.
Habe ich aber dort nix von einem Button gesehen.
Du hast beide Formulare (Hafo und Ufo) wieder auf Datenbaltt stehen, warum ?

 

Hallo Klaus,
Befehlsschaltfläche ist auf Hauptformular sichtbar auf Unterformular nicht,
krieg es nicht dort plaziert.
Das ist die Datei die Du mir mal kontr. und entsprechend geändert hast,
damit diese einwandfrei läuft, siehe Dateiname.

gruß kurt k

 

Hallo,
das Hafo muss als einzelnes Formular und das Ufo asl Endlosformular geöffnet werden. Nur dann sind Formularköpfe zu sehen und damit auch die Schaltflächen. Das kannst Du in den Formateigenschaften einstellen.

Das würde Dir schon mal erklärt.

 

Hallo Klaus,
jo, hast Recht, kann ich ja ändern.
Wie sieht das Makro aus ?

Gruß Kurt k

 

Hallo,
zum Hundersten mal, hier gibt es keine Makros, hier gibt es nur VBA Code. und der hat mit Makros nix zu tun. Könntest Du Dir das bitte mal endlich merken ?

Ich würde keinen Button anlegen zum Löschen, es besteht die Gefahr, dass Du einen falschen DS löschst, denn Du musst sicher sein, das der richtige DS ausgewählt ist.
Du brauchst auch keinen extra Botton. Klicke den Datensatzmarkierer an und drücke Entf, dann ist der DS weg und zwar genau der den Du angeklickt hast.

PS:
Ich habe mir das gerade noch mal angesehen, in meinem Beispeil waren beide Formular nicht auf Datenblatt eingestellt, die stehen auf Einzelnes Formular" und Endlosformular und alle Texte sind zu sehen. Du musst das also geändert haben.
https://www.ms-office-forum.net/foru...=370686&page=2
Beitrag #27 ist mein Beispiel zu finden, kannst Dich überzeugen.

 

Hallo,
ok.
Gruß Kurt k

 

Guten Morgen Klaus,
habe nochmal ein wenig Gegoogelt und dies gefunden:

Private Sub Datensatz_löschen_Click()
If MsgBox("Wirklich löschen", vbYesNo + vbExclamation, "Löschvorgang") = vbYes Then
Me!KD_Reparaturen.SetFocus
Application.RunCommand acCmdDeleteRecord
End If
End Sub

funktioniert einwandfrei !
Gelöschte Reparaturen werden in der Tabelle KD_Reparaturen und
KD_Formular gelöscht.

mfg
kurt k