Discussion :

[schwinny]

Bonjour a tous.

je veux ouvrir via vba un etat dont les données sont sur une table mais d'autres sur une autre?

exemple: code_personnes est sur table 2 mais sont nom et prenom sur la table 1.
sachant que sur table 2, il y a le code personne de l'acheteur mais aussi du vendeur.
les deux tables etant reliées par le code_personne.

je ne me rapelle plus domment lui dire d'aller chercher les données dans kes tables;..

qq'un peux em donner un coup de main svp?

[Jean-Philippe André]

salut,
tu alimentes un état avec une requete,
ici on aura une requete du type

Code :

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

SELECT A.Champ1, B.Champ2, B.Champ3 FROM A INNER JOIN B ON A.Champ1=B.Champ1;

[schwinny]

OK.

Le soucis est que je veux en plus ne sortir qu'une seule page correspondant a un enregistrement precis dans la table 2...

et ce filtre je voudrais le faire passer en vba...

[Jean-Philippe André]

rien ne t'empeches d'avoir des parametres.
Voir la FAQ à ce sujet
http://access.developpez.com/faq/?page=SQL#ReqParamVar

[schwinny]

Merci beauoup.

Seulement Pour la requete pas de soucis, je sias faire uen requete parametrer en VB.

le truc est que je voudrais lui passer des resultats ainsi que des parametres...


le nom prenom des deux personnes que je veux faire passer a l'etat, je les ai en vba.
le reste sera recupérer en faisant une requete

je dois m'exprimer mal. je vais essayer d'etre clair
alors
comment lancer depuis VBA, l'etat X avec passé en parametre (et juste pour pouvoir l'afficher apres dans l'etat) les nom prenom des deux personnes ainsi qu'un code
etat qui ira chercher le reste des infos dans la table via le code passée en parametres.

[schwinny]

Up!


J'ia essayé me.monchamp = valeur caluler en vba
mais ca marche pas...

report!monchampetat = val ne marche pas non plus...

a l'aide

[Jean-Philippe André]

en principe, tu peux passer les parametres dans ta ligne

Code :

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

Docmd.OpenReport

[schwinny]

si tu veux, je lance le formulaire.

on me demande un code.
suivant ce code je recupere des valeur grace a un recordset sur des données

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
        Reponse = InputBox("Quel est le code de la transaction?", "Code de la transaction")
 
        Me.Filter = "CodeTransac=" & Reponse
                    Me.FilterOn = True
 
 
 
                'Def des variables
                Dim qdf As DAO.QueryDef
                Dim rcs As DAO.Recordset
                'référence à la requête
                Set qdf = CurrentDb.QueryDefs("Ressortir_ASSP")
                'Parametrage de la requête
                qdf.Parameters("[Code_Transaction]") = Reponse
                'on recupere les valeurs retournées
                Set rcs = qdf.OpenRecordset

et apres je veux attribuer les resultats de ce recordset aux champs texte de l'etat

Code :

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

Me.NoAutorisation = rcs.Fields(1)

mais la ca me dit que ce n'est psa possible d'attribuer une valeur a cet objet (erreur d'execution -2147352567)....

et la je bloque

[DMboup]

jpcheck => en principe, tu peux passer les parametres dans ta ligne

exemple

Code :

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

1
2
 
DoCmd.OpenReport "Nom Etat",AcPreview,,"NoAutorisation = " & rcs.Fields(1)