Filtrer un formulaire avec une variable

Bonsoir

Je fais de nouveau appel à vous pour un petit problème

Je cherche à filtrer un formulaire à partir d'une variable

Quand je le fais "à la main" dans les propriétés du formulaire avec un critère du type
NuméroAffaire = "2009001" , tout fonctionne bien

Quand j'efface les propriétés et passe par un bouton avec le code suivant, cela ne fonctionne plus

Citation:

---

Private Sub Commande11_Click()
Dim StrAffEnCours As String
StrAffEnCours = InputBox("Saisie Num affaire", "Quelle affaire ?")
'MsgBox ("l'affaire en cours est " & StrAffEnCours)
DoCmd.OpenForm "FAffetLocetMAt"
Me.Filter = "NuméroAffaire = 'StrAffEnCours'"
Me.FilterOn = True
End Sub

---

Voyez vous où cela pèche ?

Merci pour votre aide

Daniel

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Commande11_Click() Dim StrAffEnCours As String StrAffEnCours = InputBox("Saisie Num affaire", "Quelle affaire ?") 'MsgBox ("l'affaire en cours est " & StrAffEnCours) DoCmd.OpenForm "FAffetLocetMAt",,,"NuméroAffaire = """ & strAffEnCours & """" :'StrAffEncour est une variable si tu la met dans une chaîne de caractère elle n'est pas reconnue et donc pas interprétée.   'Me.Filter = "NuméroAffaire = 'StrAffEnCours'" (à supprimer, me. se réfère au formulaire courrant celui qui a le bouton Commande11) 'Me.FilterOn = True (à supprimer, me. se réfère au formulaire courrant celui qui a le bouton Commande11) End Sub

---

Note de style :

* Évite les accents et les espaces dans les noms internes de tes objets tu te simplifiera grandement la vie.

* Remplace les noms automatiques automatiques créés par Access par des noms plus significatifs.

Ici : Commande11 ça ne dit absolument rien et il faut lire le code pour savoir ce que cela fait, btnOuvreFormAffaire, par exemple, me semble bien représenter à quoi sert ce bouton et te premets de savoir immédiatement ce que fait ton bouton sans avoir à lire toutes les lignes.

* Et, si ce n'est fait en mode modification de code va dans Option/Éditeur et coches 'Déclaration de variables obligatoires'.

A+

C'est normal car Me concerne le formulaire courant donc pas le formulaire "FAffetLocetMAt"
on peut aussi ouvrir le formulaire ainsi

Code:

---

1 2	DoCmd.OpenForm "FAffetLocetMA",,,"NuméroAffaire = 'StrAffEnCours'"

---

Bonsoir

Merci à tous les deux pour des informations

Hélas, j'ai mis le code à jour

Citation:

---

Private Sub BoutonChoixAffaire_Click()
Dim StrAffEnCours As String
StrAffEnCours = InputBox("Saisie Num affaire", "Quelle affaire ?")
MsgBox ("l'affaire en cours est " & StrAffEnCours)
DoCmd.OpenForm "FAffetLocetMAT", , , "NuméroAffaire = 'StrAffEnCours'"

End Sub

---

Mais quand le formulaire s'ouvre, il ne s'ouvre pas sur le numéro d'affaire en cours mais sur un enregistrement vide ....

Merci pour ton aide

Daniel

Bonsoir,
tel que tu l'as écris, familledeacp, ton formulaire va chercher l'enregistrement pour lequel NumAffaire='StrAffEncours' et non la valeur contenue dans la variable StrAffEnCours.

Code:

---

1 2 3 4 5 6 7

Private Sub BoutonChoixAffaire_Click() Dim StrAffEnCours As String StrAffEnCours = InputBox("Saisie Num affaire", "Quelle affaire ?") MsgBox ("l'affaire en cours est " & StrAffEnCours) DoCmd.OpenForm "FAffetLocetMAT", , , "NuméroAffaire = '" & StrAffEnCours & "'" End Sub

---

Bonsoir Ilank

Merci pour ce complément de réponse

Génial ! ca marche

Maintenant, je poursuis mes recherches

Plutot que de taper manuellement mon nom d'affaire, je vais essayer
- d'ouvrir un formulaire avec une liste déroulante de mes affaires
- récupérer en fonction du nom de l'affaire son numéro (qui deviendra StrAffEnCours)

A bientot

Daniel

Re bonsoir

J'ai donc créé sur mon formulaire affaires un nouveau bouton

Citation:

---

Private Sub BoutonAccesMatDepuisListeAff_Click()
DoCmd.OpenForm "FAffetLocetMAT", , , "NuméroAffaire = Me![NuméroAffaire]"
End Sub

---

Lors du clic, une fenetre me demande d'enter le paramètre pour Me![NuméroAffaire]

Ce champ NuméroAffaire existe bien sur le formulaire d'où je pars

Je continue de chercher ; sûrement un problème de syntaxe et de ' ou de "

A bientot

Daniel

Oui,
Pourquoi ne pas placer directement cette liste déroulante dans le formulaire que tu cherches à filtrer ? De manière à pouvoir consulter directement une affaire sans devoir sortir du formulaire et la sélectionner dans l'autre.
Tu peux :
1) Créer un formulaire en mode continu présentant la collection des affaires consultables.
2) Créer un formulaire présentant les détails de l'affaire sélectionnée à partir du formulaire précédent. C'est dans ce formulaire que tu placeras la liste déroulante permettant de consulter une autre fiche sans changer de formulaire.

Merci Ilank pour ces éléments de réflexion

De mon côté, j'ai repris les réponses précédentes et en faisant quelques essais, j'ai trouvé une solution :

Citation:

---

Private Sub BoutonAccesMatDepuisListeAff_Click()
DoCmd.OpenForm "FAffetLocetMAT", , , "NuméroAffaire = '" & Me![NuméroAffaire] & "'"
End Sub

---

Encore Merci à tous !

Daniel