Bonjour,
J'ai reçu cette procédure de la part d'ERIC pour interdire la saisie de numérique dans un champ de type texte. Lorsque je l'ai placé dans l'événement "Après Mise à Jour" du champ en question (dans 1 formulaire de saisie) une erreur s'est produit.
Aidez moi SVP à placer correctement cette procédure.
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode >= 96 And KeyCode <= 105) _
Or (KeyCode >= 48 And KeyCode <= 57) Then
MsgBox "Chiffres interdits"
KeyCode = 0
End If
End Sub
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
3stone
Salut,
"FEUZ TOFF"
J'ai reçu cette procédure de la part d'ERIC pour interdire la saisie de numérique dans un champ de type texte. Lorsque je l'ai placé dans l'événement "Après Mise à Jour" du champ en question (dans 1
formulaire de saisie) une erreur s'est produit.
Aidez moi SVP à placer correctement cette procédure.
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode >= 96 And KeyCode <= 105) _ Or (KeyCode >= 48 And KeyCode <= 57) Then MsgBox "Chiffres interdits" KeyCode = 0 End If End Sub
Ben... et alors ??
L'en-tête de la sub te dis bien qu'il faut la placer sur KEYDOWN !!! autrement dit: sur touche appuyée et NON sur après mise à jour.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"FEUZ TOFF"
J'ai reçu cette procédure de la part d'ERIC pour interdire la saisie de numérique dans un champ de
type texte. Lorsque je l'ai placé dans l'événement "Après Mise à Jour" du champ en question (dans 1
formulaire de saisie) une erreur s'est produit.
Aidez moi SVP à placer correctement cette procédure.
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode >= 96 And KeyCode <= 105) _
Or (KeyCode >= 48 And KeyCode <= 57) Then
MsgBox "Chiffres interdits"
KeyCode = 0
End If
End Sub
Ben... et alors ??
L'en-tête de la sub te dis bien qu'il faut la placer sur KEYDOWN !!!
autrement dit: sur touche appuyée et NON sur après mise à jour.
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
J'ai reçu cette procédure de la part d'ERIC pour interdire la saisie de numérique dans un champ de type texte. Lorsque je l'ai placé dans l'événement "Après Mise à Jour" du champ en question (dans 1
formulaire de saisie) une erreur s'est produit.
Aidez moi SVP à placer correctement cette procédure.
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode >= 96 And KeyCode <= 105) _ Or (KeyCode >= 48 And KeyCode <= 57) Then MsgBox "Chiffres interdits" KeyCode = 0 End If End Sub
Ben... et alors ??
L'en-tête de la sub te dis bien qu'il faut la placer sur KEYDOWN !!! autrement dit: sur touche appuyée et NON sur après mise à jour.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
