Discussion :

[manguigs]

Bonjour
Ci-dessous un code qui est censé limité le nombre de caractères dans une zone de texte, que j’ai vu dans la FAQ access

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer)
If Len(Texte0) > 9 Then KeyCode = 0
End Sub

Mais à l’execution ce code ne fonctionne pas

[B_SKO]

Bonsoir,

Le problème vient de la mise à jours du champ qui n'est faite que lors de la sortie du champ, donc ta longueur de champ reste à zéro tous le long de la saisie...
Il te faut vérifier ton champ en fin de saisie, ou mémoriser tes touches clavier par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim TemP As String
Private Sub Texte0_Click()
    TemP = ""
    Texte0 = ""
End Sub
Private Sub Texte0_KeyDown(KeyCode As Integer, Shift As Integer)
    TemP = TemP & Chr(KeyCode)
    Debug.Print TemP
    If Len(TemP) > 9 Then
        KeyCode = 0
    End If
End Sub

J'espère t'avoir aidé à avancer

Bon courage

[Domi2]

Bonsoir,

Vérifie que la propriété du formulaire "Aperçu des touches" est à "Oui"

Domi2

[marsouin_89]

Bonsoir,

Tu peux aussi saisir le nombre de caractères maximum dans la table (Taille du champ).

Cordialement

Christophe