Discussion :

[challe1976]

J'ai un formulaire Access.

Le champ a 5 chiffres mais l'utilisateur saisira seulement les 3ième et 4ième caractère.

Comment écrire le code en VB Access:


Le champ que l'utilisateur écrit se nomme: filt_Categ (Catégorie)

J'ai trouvé un code qui conserverait les 3ième et 4ième caractère du champ catégorie

Code sql :

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

1
2
3
   If IsNull(Me.filt_Categ) = False Then
        StrWhere = StrWhere & " AND MID ("Prod_D_SCOR_ERR_GENER_Dp.SCOR_NO_CATG_PROD_MODOP",3,2) = " & Me.filt_Categ
    End If

Cela me donne un erreur. Pouvez-vous m'aider ?

[vodiem]

Salut challe1976 et bienvenu,

Initialise le masque de saisie sur l'événement d'activation du formulaire.

[challe1976]

J'ai mis un masque de saisie dans le champ: XX99X pour dire que l'utilisateur doit rentrer les chiffres 99

et il y a un erreur, il ne trouve pas de données même s'il y en a, pouvez-vous m'aider

[vodiem]

Il ne faut pas confondre la valeur du champ avec la valeur affichée.
Un masque de saisie présentera la valeur sous le format demandé alors que la valeur stockée sera seulement ceux saisie.

si on saisie dans [monchamp] : "22" avec un masque "XX"99\X,
[monchamp] renvoi 22
si c'est pour l'utilisation dans une recherche la propriété .Text peut être une solution pratique pour récupérer la valeur affichée.
[monchamp].Text renvoi "XX22X"

[challe1976]

On récupére la valeur saisie comme cela, dois-je modifier le code avec le masque de saisie

Code :

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

1
2
3
 If IsNull(Me.filt_Categ) = False Then
        StrWhere = StrWhere & " AND Prod_D_SCOR_ERR_GENER_Dp.SCOR_NO_CATG_PROD_MODOP = " & Me.filt_Categ
    End If

[vodiem]

Essai avec ceci :

Code :

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

1
2
3
4
If Not IsNull(Me.filt_Categ) Then   ' C'est équivalent mais plus logique et facile à comprendre
    Me.filt_Categ.SetFocus   ' Pour obtenir la propriété .Text il est possible que le focus soit requis
    StrWhere = StrWhere & " AND Prod_D_SCOR_ERR_GENER_Dp.SCOR_NO_CATG_PROD_MODOP = " & Me.filt_Categ.Text
End If

[challe1976]

Ça fonctionne pas

[vodiem]

et avec :

Code :

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

1
2
3
If Not IsNull(Me.filt_Categ) Then
   StrWhere = StrWhere & " AND Prod_D_SCOR_ERR_GENER_Dp.SCOR_NO_CATG_PROD_MODOP like '???" & Me.filt_Categ & "?'"
End If

?