Discussion :

[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 :

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

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.

[Jean-Philippe André]

salut,

une optimisation toute bete

Code :

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

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 :

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

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 :

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

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.

[Invité]

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