Requêtes sous access - Divers - Programmation
Marsh Posté le 10-12-2004 à 14:37:16
ReplyMarsh Posté le 10-12-2004 à 17:55:11
C'est un newsgroup
http://communities2.microsoft.com/ [...] g=fr&cr=FR
http://groups.google.fr/groups?hl= [...] .fr.access
Marsh Posté le 11-12-2004 à 16:14:18
dsl trouve pas!pourtant j'y mets de la bonne volonté!!!sit ut sais ou exactement merci d'avance!
Désolé d'être incompétent!
Marsh Posté le 13-12-2004 à 11:54:08
Pose ta question aux membres de la News ils t'aideront.
Et tu n'est pas incompétent ! Tout le monde cherche une solution à un probléme ici !
Marsh Posté le 14-12-2004 à 09:27:43
Réécrit la déclaration de ta sub en ça :
Code :
|
Sinon quand t'as des événements à écrire dans ce genre, va dans les propriétés de ton contrôle, et dans l'onglet Evènements, dans la liste en face de l'évenements que tu veux, choisis [Procédure Evenementielle], puis quand tu cliques sur les trois p'tits points, ça te créer tout seul la déclaration de la sub, t'as juste à remplir avec ton code
Marsh Posté le 10-12-2004 à 12:34:04
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