MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access - Code Archiv
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 28.05.2019, 08:15   #1
Agapi123
Neuer Benutzer
Neuer Benutzer
Traurig Codebeispiel - Datensatz löschen nicht möglich

Hallo zusammen,

ich bin Neuanfänger in Access (2007-2013) und komme nicht weiter. Ich habe mich in verschiedenen Foren belesen aber ich finde trotzdem keine Lösung. Kann mir jemand helfen? Ich habe die Befehlsschaltsfläche "Datensatz löschen" eingefügt, doch die Löschfunktion ist nicht möglich. Mit dem voreingebauten Makro kommt die Nachricht: "Der Befehlt oder die Aktion "Datensatz löschen" ist zurzeit nicht verfügbar." Nun habe ich es mit einer Ereignisprozedur mit folgenden Codes versucht, doch auch da kommen Fehlermeldungen, siehe unten:

Code mit Sicherheitsabfrage:
Private Sub btnDatensatzLoeschen_Click()
Dim StrMsg As String
StrMsg = "Soll der Datensatz " & Me!ID & _
" wirklich gelöscht werden?"
If (MsgBox(StrMsg, 292, "Löschen")) = vbYes Then
Else
Exit Sub
End If
DoCmd.RunCommand acCmdDeleteRecord
Me.Requery
End Sub

Fehlermeldung: Laufzeitfehler '2046': Der Befehlt oder die Aktion "Datensatz löschen" ist zurzeit nicht verfügbar.

Auch ohne Sicherheitsabfrage:
Private Sub btnDatensatzLoeschen_Click()
DoCmd.RunCommand acCmdDeleteRecord
End Sub

bekomme ich eine Fehlermeldung: "Laufzeitfehler: Access Datenbank oder Objekt ist schreibgeschützt". Es ist aber nichts schreibgeschützt eingestellt, ich habe alles geprüft.

Hilfe...
Agapi123 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 31.05.2019, 19:11   #2
Peerli
MOF User
MOF User
Standard

Zitat: von Agapi123 Beitrag anzeigen

Code mit Sicherheitsabfrage:
Private Sub btnDatensatzLoeschen_Click()
Dim StrMsg As String
StrMsg = "Soll der Datensatz " & Me!ID & _
" wirklich gelöscht werden?"
If (MsgBox(StrMsg, 292, "Löschen")) = vbYes Then ?????
Else
Exit Sub
End If
DoCmd.RunCommand acCmdDeleteRecord
Me.Requery
End Sub
(

Ich bin zwar auch kein Profi, aber was kommt nach "then"?

__________________

Win7 Pro 64bit; MSO 2010/2017
Peerli ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:55 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.