Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access VbkeyPrint ?

VbkeyPrint ?

7 réponses
Avatar
admin
Bonjour ;

je veux désactiver la touche print screen ou Imprime Ecran sur Access97 ,
j'ai fait comme ça mais ça marche pas ???


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPrint Then
KeyCode = 0
End If
End
End Sub

merci.
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

as-tu mis aperçu des touches à oui pour le formulaire ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"admin" a écrit dans le message de news:
%
Bonjour ;

je veux désactiver la touche print screen ou Imprime Ecran sur Access97 ,
j'ai fait comme ça mais ça marche pas ???


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPrint Then
KeyCode = 0
End If
End
End Sub

merci.





Avatar
admin
malgrais j'ai mis aperçu à oui il copie avec imprime ecran ??

MERCI

"Raymond [mvp]" a écrit dans le message
news:
Bonjour.

as-tu mis aperçu des touches à oui pour le formulaire ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"admin" a écrit dans le message de news:
%
Bonjour ;

je veux désactiver la touche print screen ou Imprime Ecran sur Access97
,


j'ai fait comme ça mais ça marche pas ???


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPrint Then
KeyCode = 0
End If
End
End Sub

merci.









Avatar
admin
J'ai vu quelqu'un qui à fait de cette façon :

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
MsgBox "test"
If KeyCode = vbKeyPrint Then
KeyCode = 0
Clipboard.Clear
End If
End Sub


mais Clipboard.Clear ne marche pas.

merci






"Raymond [mvp]" a écrit dans le message
news:
Bonjour.

as-tu mis aperçu des touches à oui pour le formulaire ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"admin" a écrit dans le message de news:
%
Bonjour ;

je veux désactiver la touche print screen ou Imprime Ecran sur Access97
,


j'ai fait comme ça mais ça marche pas ???


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPrint Then
KeyCode = 0
End If
End
End Sub

merci.









Avatar
Raymond [mvp]
Change ton test:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 44 Then
KeyCode = 0
End If
End Sub

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"admin" a écrit dans le message de news:

J'ai vu quelqu'un qui à fait de cette façon :

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
MsgBox "test"
If KeyCode = vbKeyPrint Then
KeyCode = 0
Clipboard.Clear
End If
End Sub


mais Clipboard.Clear ne marche pas.

merci


Avatar
Raymond [mvp]
.../...

mets aussi le shift à 0.
Shift = 0


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Raymond [mvp]" a écrit dans le message de
news:
Change ton test:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 44 Then
KeyCode = 0
End If
End Sub

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"admin" a écrit dans le message de news:

J'ai vu quelqu'un qui à fait de cette façon :

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
MsgBox "test"
If KeyCode = vbKeyPrint Then
KeyCode = 0
Clipboard.Clear
End If
End Sub


mais Clipboard.Clear ne marche pas.

merci






Avatar
3stone
"Raymond [mvp]"
|
| mets aussi le shift à 0.
| Shift = 0


et sur KeyDown, non ?


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Raymond [mvp]
Bonjour Pierre.

il le mets où il veut, il a dit Keyup, va pour le keyup , et pourquoi pas le
keypress ?
le vendredi soir, je suis cool, j'ai fini ma semaine de 48 heures (comme
jessy).

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"3stone" a écrit dans le message de news:
u3kEg$
"Raymond [mvp]"
|
| mets aussi le shift à 0.
| Shift = 0


et sur KeyDown, non ?


--
A+
Pierre (3stone) Access MVP