Bonjour à tous
Cela fait un moment que je cherche une solution à mon problème sans y arriver donc j'aimerais savoir si quelqu'un ici pouvais m'aider.
Je m'explique, je dispose d'un formulaire sur lequel j'ai une cinquantaine de contrôles de type "Rectangle", j'aimerais que lorsque je clic sur chacun de ces derniers la même macro se lance.
Pour le moment j'ai ceci :
[arret] [CommuneDep] et [ArretDep] alimentent une requête dans mon application, [arret] représentent l'identifiant d'un arrêt se trouvant dans une table. J'ai nommé mes contrôles dans mon formulaire de la même manière que [arret] et j'aimerais donc qu'en cliquant sur chacun des rectangle mes textBox [arret] [CommuneDep] et [ArretDep] prennent les valeurs se trouvant dans ma table.
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
18
19 Private Sub Ctl53_Click() [Forms]![Form-TAD]![arret].Value = 53 [Forms]![Form-TAD]![CommuneDep] = "OETING" [Forms]![Form-TAD]![ArretDep] = "DESCARTES" DoCmd.OpenQuery "TrajetsExistant", , acReadOnly DoCmd.Requery DoCmd.Close acQuery, "TrajetsExistant" DoCmd.OpenForm "TrajetsDispo", , , , , acDialog End Sub Private Sub Ctl54_Click() [Forms]![Form-TAD]![arret].Value = 54 [Forms]![Form-TAD]![CommuneDep] = "OETING" [Forms]![Form-TAD]![ArretDep] = "AVOGADRO" DoCmd.OpenQuery "TrajetsExistant", , acReadOnly DoCmd.Requery DoCmd.Close acQuery, "TrajetsExistant" DoCmd.OpenForm "TrajetsDispo", , , , , acDialog End Sub
Est ce que quelqu'un aurait une idée de comment je dois m'y prendre ?
Merci d'avance pour votre aide.
Partager