Exécuter une requête créeant un formaulaire (ACCESS/VBA)
drogba19
Messages postés8Date d'inscriptionvendredi 26 novembre 2004StatutMembreDernière intervention11 décembre 2004
-
9 déc. 2004 à 23:15
Cramfr
Messages postés160Date d'inscriptionmercredi 24 novembre 2004StatutMembreDernière intervention 8 juillet 2008
-
13 déc. 2004 à 12:58
Débutant sous access et vba
En fait j'ai un formulaire nommé "Agence_de_Voyage" qui contient 4 zones de texte (appelées Nom_agence) en liste, chacune comportant un nom d'agence de voyage (repris d'une table nommée Bureaux).
Quand je clique sur l'une de ces agences, ce formulaire se ferme et un second formulaire doit automatiquement se créer en insérant uniquement les employés de cette agence présélectionée
(on doit créer une requête entre la table Bureaux comprennant l'ensemble des agences(4) et la table Employes comprennant l'ensemble des employés que l'on peut trier part agence si l'on creer une requete entre agence et nom employé)
Le problème c'est que je n'arrive pas à saisir le code que je doit affecter à la procédure événementielle sur clic du nom de l'agence.
J'ai tenté ca, mais...peine perdue
Private Sub Pour Clic sur Agence Air_France()
Dim sql As String
Dim req As QueryDef
sql = "SELECT Nom FROM Employes (Table), (Table)</italique> " _
& "WHERE Bureaux.Nom_agence = Employes.Nom_agence and " _
& "Employes.Nom_agence = '" & Air_France (nom de l'agence choisi par un clic) & "';"
Set req = CurrentDb.CreateQueryDef("Agence_de"(Nouveau Formulaire), sql)
DoCmd.OpenForm "Agence_de""(Nouveau Formulaire)
Cramfr
Messages postés160Date d'inscriptionmercredi 24 novembre 2004StatutMembreDernière intervention 8 juillet 2008 13 déc. 2004 à 12:58
Salut,
Juste une explication :
Les Jointures sous access ne se font pas ainsi
Je te suggère de construire ta requête sous le requeteur access
en construisant les liens et de le visualiser en SQL tu aura exactement ce que tu veux.
Bye
Cramsoturf le VBien en quête de nouveau programme :big)