PDA

Vollständige Version anzeigen : löschen verhindern


arnoldvb
06.05.2004, 16:53
Hallo

Wie kann ich verhindern das jemand mit der Tastenkombination

Strg -

einen Datensatz nach Nachfrage löschen kann.

Hütti
06.05.2004, 17:15
in einem formular kannst du die eigenschaft "Löschen zulassen" auf Nein setzen.

arnoldvb
06.05.2004, 17:44
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
06.05.2004, 18:08
du kannst die strg Taste im Formular abfangen ......
setze in deinem Formular bei Taste ab ...



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

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

end if


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


mfg

Jürgen

Karlheinz
06.05.2004, 18:16
Hallo,

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


'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


Gruß Karlheinz

arnoldvb
06.05.2004, 18:34
Hallo

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

SNowack
06.05.2004, 19:31
Hallo,

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


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


Gruss Stefan