Création requêtes sous Access et VBA

Création requêtes sous Access et VBA - VB/VBA/VBS - Programmation

Marsh Posté le 10-12-2004 à 12:33:02    

Je débute 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(champ de la table Employes) FROM Employes(Table), Bureaux(Table) " _
& "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)
 
End Sub

Reply

Marsh Posté le 10-12-2004 à 12:33:02   

Reply

Marsh Posté le 11-12-2004 à 09:23:15    

personne n'a d'idées?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed