Discussion :

[fab.85]

Bonjour,

Dans une gestion de stock, j'ai un formulaire [FArticles] sur lequel j'ai créé un champs de recherche [Texte114] permettant de faire une recherche sur les champs [EAN]. Cela fonctionne sauf lorsque EAN est vide. J'aimerais donc connaitre la parade pour que cela fonctionne et aussi savoir si il y a un code pour ne plus filtré le formulaire pour faire une recherche en manu.
[Choix] étant une case à cocher.

Code :

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

1
2
3
DoCmd.OpenForm "FArticles", , , "[TArticles]![EAN13] = Forms![FArticles]![Texte114]"
Me.Choix = 1
Me.Texte114 = ""

D'avance merci,

[Ric500]

Salut!

Code à mettre sur un contrôle de formulaire (liste déroulante de critères, bouton...) pour appliquer un critère :

Code :

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

1
2
me.filter=MonFormulaire!MaListeDeroulante
me.FilterOn=True

(Tu peux aussi rajouter "Tous les Articles" à ta liste déroulante pour enlever le filtre)

Code pour Enlever un filtre sur le formulaire ouvert à partir d'un bouton:

Code :

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

Me.FilterOn=False

J'espère que çà répond à ta question.

[Zekraoui_Jakani]

Puisque le problème se pose lorsque EAN est vide, alors il vaut mieux mettre une condition:

Code :

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

1
2
3
4
5
if Forms![FArticles]![EAN13] = "" then 
DoCmd.OpenForm "FArticles"
else
DoCmd.OpenForm "FArticles", , , "[TArticles]![EAN13] = Forms![FArticles]![Texte114]"
end if

[Ric500]

Si je peux me permettre,

if Forms![FArticles]![EAN13] = "" then
DoCmd.OpenForm "FArticles"
else
DoCmd.OpenForm "FArticles", , , "[TArticles]![EAN13] = Forms![FArticles]![Texte114]"
end if

Dans le cas d'une chaîne vide j'aurais utilisé:

Code :

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

1
2
3
4
5
if Nz(Forms![FArticles]![EAN13],"") = "" then 
DoCmd.OpenForm "FArticles"
else
DoCmd.OpenForm "FArticles", , , "[TArticles]![EAN13] = Forms![FArticles]![Texte114]"
end if

[fab.85]

Merci Ric500, Zekraoui_Jakani

je viens de tester vos deux codes et j'ai l'affichage suivant:



Il enregistre un nouvel article qui a pour code 0.

[Ric500]

Oups!

Il y a un truc qui m'échappe: si tu souhaites appliquer un filtre APRES ouverture du formulaire, c'est la première réponse que je t'ai faite qui s'applique sur l'événement AfterUpdate de EAN 13.
Si tu veux ouvrir ton formulaire avec un filtre pré-existant, le code ci-dessus est un peu bancale, puisque le formulaire n'est pas ouvert... avant son ouverture

[fab.85]

Désolé je me suis mal exprimé.

Mon champs de recherche[Texte114] je le renseigne via une douchette code à barres, ce n'est pas une liste déroulante.

Sur AfterUpdate de [Texte114] je mets:

Code :

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

1
2
3
4
Private Sub Texte114_AfterUpdate()
Me.Filter = FArticles!Texte114
Me.FilterOn = True
End Sub

ET j'ai un message comme quoi FArticles n'est pas définie....

[Ric500]

re-Oups!

Effectivement, ce serait mieux comme çà:

Code :

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

1
2
3
4
Private Sub Texte114_AfterUpdate()
Me.Filter = Forms!FArticles!Texte114
Me.FilterOn = True
End Sub

ou Comme çà:

Code :

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

1
2
3
4
Private Sub Texte114_AfterUpdate()
Me.Filter = Me!Texte114
Me.FilterOn = True
End Sub

[fab.85]

Désolé rien ne se passe. Est-ce que le fait que [EAN] soit invisible change grand chose?

[Ric500]

Normalement non,

Si je me rappelle bien de ma propre expérience avec les douchettes, tu peux clôturer ta saisie par un retour chariot ou pas. Mais dans le cas où tu saisirais un code EAN à la main, puis validation, l'événement AfterUpdate devrait se déclencher, et appliquer le filtre codé dans le sub.

Est-ce que le champ EAN 13 comporte un propriété ControlSource? Si oui, il vaudrait mieux le doubler et faire la recherche sur un champ sans source contrôle.

Tu peux peut-être t'inspirer de çà:

[Robert1957]

Bonjour fab.85, Ric500,

Je ne crois pas que l'événement "AfterUpdate" soit déclenché lors de l'injection de données extérieur au formulaire (code VBA, requête etc...). Voilà pourquoi il ne se passe rien.

Bonne journée

[Ric500]

Normalement une entrée douchette s'apparente à une entrée clavier.

Selon le paramétrage de certaines douchettes tu peux ajouter un retour chariot (validation) après le scan d'un code barre, sinon, scan + Enter, çà devrait le faire...

++

[fab.85]

Bonjour Robert1957,

Avec mon premier code je pouvais filtrer le formulaire sauf quand [EAN] était vide. J'ai même essayer de remplir les champs vides par 00 mais ça plante dès que ça ne match pas entre [Texte114] et[EAN].

Ric500, je regarde ton exemple dès demain car plus Access à la maison pour l'instant...

Merci.

[fab.85]

Bonjour,

En essayant comme ça, je n'ai pas de problème pour filtrer le formulaire. Le problème arrive lorsque je souhaite que Me.Choix = 1. Du coup je ne sais plus ou le placer.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Texte114_AfterUpdate()
 
DoCmd.OpenForm "FArticles", , , "[TArticles]![EAN13] = Forms![FArticles]![Texte114]"
 
Me.Texte114 = ""
 
If [EAN13] = 0 Then
Me.FilterOn = False
End If
 
 
End Sub

[fab.85]

Voila dans ce sens ça marche, même si ce n'est pas le plus beau code qu'on ait vu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Texte114_AfterUpdate()
 
On Error GoTo Texte114_Err
 
    DoCmd.OpenForm "FArticles", , , "[TArticles]![EAN13] = Forms![FArticles]![Texte114]"
 
    Me.Texte114 = ""
 
 
    If [EAN13] = 0 Then
    Me.FilterOn = False
Else
    Me.Choix = 1
    End If

Merci pour votre aide,

Fabien.