Discussion :

[familledacp]

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

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

[marot_r]

Code :

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

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+

[helas]

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

Code :

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

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

[familledacp]

Bonsoir

Merci à tous les deux pour des informations

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

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

[ilank]

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 :

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

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

[familledacp]

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

[familledacp]

Re bonsoir

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

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

[ilank]

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.

[familledacp]

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 :

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

Encore Merci à tous !

Daniel