OVH Cloud OVH Cloud

suppression

1 réponse
Avatar
jc
Bonsoir.

Comment empecher sur une table liee, de supprimer des enregistrements.
Ajouter, modifier, créer mais ne ^pas accepter le delete * from tab..?

Merci

1 réponse

Avatar
le meruvien
* DESACTIVEZ LA TOUCHE "SUPR"

Propriété "apperçu des touches = oui"

Private Sub Form_KeyDown(KeyCode as integer, Shift as integer)

If Keycode = vbKeyDelete Then

MsgBox "Suppression impossible",vbinformation

KeyCode=0

End if

End sub

OU

Private Sub Form_KeyDown(KeyCode as integer, Shift as integer)

If KeyCode = bKeyDelete Then

If Msgbox("suppression enregistrement ?",vbYesNo + vbQuestion +
vbDefaultButton2) = vbYes Then

Docmd.SetWarnings false

Docmd.RunCommand accmddeleterecord

Docmd.SetWarnings True

End if

End if

End sub





"jc" a écrit dans le message de news:
4256b9ee$0$28393$
Bonsoir.

Comment empecher sur une table liee, de supprimer des enregistrements.
Ajouter, modifier, créer mais ne ^pas accepter le delete * from tab..?

Merci