Discussion :

[imsse]

Bonjour,

jai des champ texte dans mes tables que jai limité a 100 caractère
hors dans la saisie des formulaire, je peux en saisir plus et lors de mon enregistrement cela me créer des erreur ..(normal )

Comment faire pour informer l'utilisateur a la saisir qu'il a dépasser la taille autoriser.

Ou bien comment faire sur ma zone de texte de bloquer la saisi a 100 caractère ?

existe t il une propriété ou bien alors il faut faire du vba ?


Merci pour votre aide..

[Jean-Philippe André]

bonjour,
un petit coup d'oeil dans la te donne un bon exemple de ce qui peut se faire :
http://access.developpez.com/faq/?pa...LimitTailleChp

[ClaudeLELOUP]

Bonjour

Tu peux coller ceci à l'évènement "Après mise à jour" de ton contrôle.
N'oublie pas d'adapter "n" et sans doute le message !

Code :

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

1
2
3
4
5
6
7
Private Sub Texte0_AfterUpdate()
Dim n As Integer
n = 3   '--------> adapte à ton cas
If Len(Me.ActiveControl) > n Then
MsgBox "Espèce d'abruti, je te rappelle que " & Chr(13) & Chr(10) & n & " caractères maximum", vbCritical
End If
End Sub

[Jean-Philippe André]

Ton IHM est autrement plus agressive que la mienne

[ClaudeLELOUP]

Bonjour jpcheck,
Houps.
Je n'avais pas vu que tu étais aussi sur l'affaire! Il se passe un certain temps entre le début de ma réponse et son envoi.
Si j'ose être agressif, c'est que je ne crains pas le retour de flamme : je communique sous un pseudonyme !

[Alain36]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Private Sub Texte0_AfterUpdate()
Dim n As Integer
n = 3   '--------> adapte à ton cas
If Len(Me.ActiveControl) > n Then
MsgBox "Espèce d'abruti, je te rappelle que " & Chr(13) & Chr(10) & n & " caractères maximum" & Chr(13) & Chr(10), vbCritical
End If
End Sub

Juste un petit conseil : mets, de préférence, cette vérification dans Avant mise à jour :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Texte0_BeforeUpdate(Cancel as Integer)
  Dim n As Integer
  n = 3   '--------> adapte à ton cas
  If Len(Me.ActiveControl) > n Then
     MsgBox "Espèce d'abruti, je te rappelle que " & Chr(13) & Chr(10) & n & "   caractères maximum"  & "Appuie sur ESC",vbCritical
     Cancel = True
  End If
End Sub

Ainsi, la saisie est refusée tant que la condition n'est pas remplie.

[imsse]

Merci pour toute vos reponse car en effet le code marche bien

mais jai neamoins besoin davoir une précision ..

est il possible dinformer lutilisateur pendant la saisi

cad quil saisi et des quil arrive a 100 ben le message apparai

il na ainsi aps besoin de sortir du champs pour vérifié lerreur

sa serai une sorte de temps reel .. je ne sais aps si access le permet !

[Jean-Philippe André]

il me semble que mon code (avec KeyDown) fonctionne comme ceci

[imsse]

je viens de refaire les teste
et visiblement non

je saisie les donnée dans un champ vide et meme si je depasse les 100 caractère rien ne se passe
en revanche en sortant du champ et en revenant dessu lorsque jappui sur une touche le test seffectue et la sa marche

donc je suis qd meme obliger de revenir sur le champ pour voir lerreur

cela veu dire si lutilisateur ne revien pas sur son champ il ne verra pas lerreur

Code :

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

1
2
3
4
5
6
Private Sub IntituléProjet_KeyDown(KeyCode As Integer, Shift As Integer)
If Len(Me.IntituléProjet.Value) > 99 Then
 KeyCode = 0
 MsgBox ("ok")
End If
End Sub

[imsse]

des propositions ...

[Jean-Philippe André]

et ni le after_update ni le before_update ne fonctionnent ?

[imsse]

je viens de refaire les test et voila ce qui se passe

cela marche mais a condition que ma zone de texte soi liée a un champ de ma table
mais si c'est un champ indépendant cela ne fonctionne pas
et moi je ne veu pas lié ma zone de texte a un champ de ma table ...

[imsse]

jai testé le code mais je ne trouve pas la propriété qui dis a la " saisie dans le champ "

existe t elle cette propriété ?

[ClaudeLELOUP]

Bjr,
Essaie "sur touche appuyée"

[Jeannot45]

Voici une petit bout de code qui compte le nombre de fois qu'une touche a été activée

Code :

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

1
2
3
4
5
6
7
Private Sub MonTexte_KeyPress(KeyAscii As Integer)
Static intCompteur As Integer
If intCompteur > 9 Then
MsgBox "tu as saisi 10 caracteres"
End If
intCompteur = intCompteur + 1
End Sub

A+

[imsse]

génial sa marche

Merci beaucoup Jeannot 45

et a tout ceux qui se sont penché sur mon probleme