Discussion :

[totojordi]

Bonjour,

J'ai un formulaire déjà pré-rempli (suite à un double click sur une zone de liste), je voudrais qu'en cliquant sur le BtnAperçuEtat les informations du formulaire soit passées dans l'Etat, j'ai essayer ceci :

Code :

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

1
2
3
4
5
6
 
  Me.RecordSource = Forms.Item("frmAutoCataloguePostProd").RecordSource
 
Dim Nom_Etat As String
Nom_Etat = "Etat"
DoCmd.OpenReport Nom_Etat, acPreview

Seulement cela m'affiche le premier enregistrement de ma table, pas celui qui est affiché dans le formulaire.

On m'a conseillé de créer une requête qui prendrait en compte les informations du formulaire, je pense utiliser sa mais je ne sais pas comment faire et si sa marchera

Code :

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

1
2
 
strSql = "SELECT DISTINCTROW * FROM [" & strTable1 & "] LEFT OUTER JOIN [" & strTable2 & "] ON CataloguePostProd.Reference = ParcVendu.Reference WHERE((" & strCriteria & "));"  (A la place de strCriteria il faudrait mettre en Programmation "Selon ce qui est choisit dans le formulaire", c'est sa ?)

Merci

[Chtulus]

Bonjour,

Mets le nom de ta zone de texte à la place de strcriteria et ta clause
doit ressembler à cela

Code :

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

1
2
 
WHERE Table.champs = '" & NomTaZoneTexte & "'

Bien sur avec n'importe quel opérateur logique

[totojordi]

D'accord, je teste.


J'ai une erreur de jointure au niveau de ce qui est souligné

Code :

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

1
2
3

SELECT DISTINCTROW * FROM [" & strTable1 & "] LEFT OUTER JOIN [" & strTable2 & "] ON CataloguePostProd.Reference = ParcVendu.Reference WHERE CataloguePostProd.Reference = '" & Référence & "'

Autre question, j'ai copié la requète tel quel dans un fenètre SQL, le SQL va réussir à prendre en compte "strTable1" ou strTable2 ??

[Chtulus]

A quoi correspondent strTable1 et 2 ?

Le nom de ta table est-elle bonne ?

[totojordi]

strTable1 et table 2 corresponde respectivement à CataloguePostProd et parcVendu, les noms sont bons

[Chtulus]

Pourquoi ne pas les inscrire en dure alors

Code :

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

FROM CataloguePostProd CPP LEFT OUTER JOIN ParcVendu PV ON CPP.Reference = PV.Reference

[totojordi]

bah en fait je les utilisais à un autre moment dans mon code donc j'ai laisser comme sa, j'ai tester de remplacer sa marche pas, je vais tester ton idée


Cela me renvoi des champs vides

[Chtulus]

essaie sans le ROW

[totojordi]

C'est bon sa marche sans faire de requètes.


Voir solution ici :
http://www.developpez.net/forums/sho...d.php?t=559822