[AC-2007] Masque de saisie [Résolu]

[helio500]

Bonjour à tous,

Je souhaiterais savoir ce que vous utilisez comme code VBA pour tout ce qui est test de saisie dans les zones d'édition, à savoir par exemple si une référence devant être renseignée contient bien 8 chiffres.
J'utilise ceci dans le cas où ma zone d'édition se nomme TxtRef :

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Sub TxtRef_Change()
 
  With TxtRef
    If Len(.Text) < 8 or Len(.Text) > 8 Then
       MsgBox("Référence sur 8 positions", vbYesNo + vbInformation)
   End If
  End With
 
End Sub

Mais il doit y avoir une meilleure solution...
merci.

[jpcheck]

salut,

une optimisation toute bete

Code :

If Len(.Text)<>8 Then

Sinon, si tu cherches a avoir 8 chiffres, soit une valeur numerique, tu peux blinder en ajoutant un test

Code :

If IsNumeric() Then

[Aegnor]

Bonjour,

si c'est dans un formulaire, vous pourriez utiliser la propriété Masque de Saisie de votre contrôle (qui se trouve dans l'onglet "Données"). Avec l'aide d'Access vous devriez trouver facilement le format que vous désirez pour ce contrôle.
Sinon, si vous tenez à faire ça par VBA, il faut effectivement tester toutes les conditions : len(trim(.text))<>8 And isnumeric(.text)...

cordialement,

[helio500]

Code :

If Len(.Text)<>8 Then

Effectivement c'est mieux comme ça, je venais de faire la même instruction avec 2 chiffres différents d'où cette instruction un peu bizarre !!!

Je connaissais pas le IsNumeric, je vais compléter.
Merci à tous.

[Philippe JOCHMANS]

Bonjour

En complément, tu peux faire des recherches dans la FAQ avec le mot Saisie : http://access.developpez.com/faq/ind...hercher=saisie

Philippe