Discussion :

[Galanix2046]

Bonjour,

Je fais appel à vos lumières sur un problème VBA. Pour info je travail sous access 2010.

Pour vous exposer la base :

J'ai une table (T1) avec champs "Nom" et "Montant".
J'ai une requête (R1) de type sélection basée sur T1.
J'ai un sous-formulaire (SF1) basé sur R1 et en mode feuille de données
J'ai un état (E1) basé sur R1
J'ai un formulaire principal (F1) accueillant SF1 et un bouton B1

Question :

Comment faire pour exporter les enregistrements filtrés par menu contextuel sur SF1, dans E1 lorsqu'on appuie sur B1 ?

Pour info, j'ai essayé divers bout de code avec déterminant strfilter = Me.F1.SF1.Form.Filter que j'intègre dans un Docmd.openreport .... mais rien y fait.


Pourriez-vous m'éclairer sur le sujet car là.... je sèche

En vous remerciant d'avance pour le temps passé à ma demande.

Cordialement

[User]

Bonjour,

Si j'ai bien tout compris...

Il faut que tu passes la condition dans l'argument WhereCondition de la méthode OpenReport, avec par exemple :

Code :

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

DoCmd.OpenReport "E1",acViewPreview, , "Nom='" & Me!Nom & "'"

Je te déconseille aussi d'utiliser le mot "Nom" pour un champ ou un contrôle car il s'agit d'un mot réservé.

A+

[Galanix2046]

Bonjour,

Tout d'abord merci d'avoir pris de me répondre.

J'ai testé ton code et il marche super ! J'ai juste rajouté le nom du sous-formulaire pour que ça tourne :

Code :

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

DoCmd.OpenReport "E1", acViewPreview, , "Nom='" & Me!SF_R1!Nom & "'"

Cependant quand j'essaye d'intégrer le deuxième champ (Montant) dans le code, il ne cesse de me remonter le message d'erreur "incompatibilité de type 13"

J'ai essayé de jouer avec les guillemets ou les apostrophes, rien à faire.... Aurais-tu une idée ?

voici un des codes que j'ai essayé :

Code :

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

DoCmd.OpenReport "E1", acViewPreview, , "nom='" & Me!SF_R1!nom & "'" And "montant=" & Me.SF_R1!montant & ""

Au passage, merci pour le conseil du nom de champs, je le change tout de suite après

Cordialement,

Galanix2046

[User]

bonsoir,

Ton champ Montant est bien de type monétaire ?

Si c'est le cas alors essaie ça :

Code :

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

DoCmd.OpenReport "E1", acViewPreview, , "nom='" & Me!SF_R1!nom & "' and montant=" & Me.SF_R1!montant

a+

[Galanix2046]

Bonsoir,

J'ai essayé ça ne marche pas, ça me prends que le premier enregistrement trouvé. De plus, j'ai trop rapidement testé le code précédent que tu m'as fournis. Si je coche plusieurs valeurs dans le filtre du menu contextuel, il me prends en compte qu'une seule valeur

Je continue mes recherches... mais si tu as une autre solution je suis preneur

Cordialement

Galanix2046

[Galanix2046]

Re-bonsoir,

Ca y est, après une multitude d'essai, j'ai enfin trouvé la bonne syntaxe

Il faut en fait, récupérer la chaine SQL du filtre que l'on trouve dans la propriété "filtre" du sous-formulaire et la stocker dans une variable. Il suffit ensuite de répercuter cette variable en tant que paramètre de filtrage dans la fonction OpenReport.

Voici le code abouti :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande1_Click()
 
Dim strfilter As String
 
strfilter = Me.SF_R1.Form.Filter
 
DoCmd.OpenReport "E1", acViewPreview, , strfilter
 
End Sub

Même si le code ne fait que 3 lignes, il aura donné bien du mal au novice que je suis ! .... Mais il va être d'une grande utilité dans mon travail !

Encore un Grand Merci à toi pour m'avoir mis sur la piste

Cordialement

Galanix2046

[User]

de rien,

bonnes fêtes..