Office: löschen verhindern

arnoldvb · 4. Mai 2004

Hallo

Wie kann ich verhindern das jemand mit der Tastenkombination

Strg -

einen Datensatz nach Nachfrage löschen kann.

:)

Hütti · 6. Mai 2004

in einem formular kannst du die eigenschaft "Löschen zulassen" auf Nein setzen.

arnoldvb · 6. Mai 2004

Hallo Mütti

Danke für deine Antwort. Wäre es auch anders zu lösen.
Da man nun ja auch nicht mehr über einen Löschbutton den Datensatz löschen kann.

WDKA-Jürgen · 6. Mai 2004

du kannst die strg Taste im Formular abfangen ......
setze in deinem Formular bei Taste ab ...

Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 17 Then 'Strg
KeyCode = 0
End If

end if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jetzt ist die Strg `Taste deaktiviert und kann in deinem Formular nicht mehr benutzt werden

mfg

Jürgen

Karlheinz · 6. Mai 2004

Hallo,

mit Hütti Vorschlag und folgendem Code in deinem Löschbuttom Klick Ereignis geht das ganze

Code:

'Löschen zulassen auf Ja einstellen
Me.AllowDeletions = True
'Aktuellen Datensatz Löschen
DoCmd.RunCommand acCmdDeleteRecord
'Löschen zulassen auf Nein einstellen
Me.AllowDeletions = False
'.... weitere Anweisungen wie Datenherkunft aktualisieren etc
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Karlheinz

arnoldvb · 6. Mai 2004

Hallo

Vielen Dank für eure Antworten. Werde eure Vorschläge morgen ausprobieren.

SNowack · 6. Mai 2004

Hallo,

eine weitere Alternative wäre folgenden Code hinter den Löschbutton zu legen:

Code:

dim db as dao.database
dim SQLStr as string

set db=currentdb
sqlstr="Delete * From Deine Tabelle Where DeinPrimärSchlüssel=" & Me!DeinPrimärSchlüsselFeld & ";"
db.execute sqlstr
sqlstr=""
set db=nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruss Stefan

Office: löschen verhindern

löschen verhindern

löschen verhindern

löschen verhindern

löschen verhindern - Similar Threads - löschen verhindern

Meinen Account löschen

Letzten Abschnittswechsel löschen, ohne das Dokument zu ruinieren

Fehler (0x800CCC78) beim Ausführen der Aufgabe "xx.yyyy@kabelmail.de - Nachrichten werden gesendet"

Löschen der Folie löscht Masterfolie - wie verhindern?

Tabellenblatt löschen verhindern

Blatt löschen verhindern

Unterformular in Datenblattansicht / Spalten löschen verhindern