Discussion :

[yannzool]

Re

D'accord avec Domi2 et Loufab, il va falloir passer par du VBA.

Petite question de conception (ce sont les reflexions de Domi2 qui m'on mit la puce à l'oreille), que ce passera-t-il quand les machines vont changer de place, quand de nouvelles machines vont arriver, quand d'autres von partir ?

Il faudra que tu retouches à ton formulaire, alors qu'avec des listes déroulantes, c'est juste une mise à jour dans les tables.

Starec

pas faux, mais sur mon plan, je peux deplacer le bouton ou le renommer, non?

mise a part ca, une seul macro pour tout mes boutons(nom du bouton correspondant au champ a afficher) c'est jouable sans passer par le VBA et ces {[]"']] ?

[Invité]

Re

Pour moi pas jouable par macro, uniquement par VBA

Starec

[Domi2]

Re,

Macro ou VBA, le premier problème auquel tu vas être confronté est le suivant.

Aujourd'hui, tu as 10 machines, donc sur ton formulaire 10 boutons.

Bouton no 1 = enregistrement no 1 de la table "Machines"

Bouton no 2 = enregistrement no 2 de la table "Machines"

etc...

Si une 11ème machine est installée, il ne s'agira pas seulement de rajouter un bouton sur le formulaire, mais de créer le code et / ou la macro associée au bouton.

Domi2

[yannzool]

Re

Pour moi pas jouable par macro, uniquement par VBA

Starec

Private Sub Commande0_Click()

End Sub

et j'ecris quoi?

[Invité]

Re

Tu écris

Code :

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

1
2
 
DoCmd.openForm "LenomduformulaireAppelé", ... en dernier argument le caption de ton bouton

Va voir l'aide pour la syntaxe

Starec

[yannzool]

Code :

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

1
2
3
4
 
Private Sub Commande0_Click()
DoCmd.openForm "HLL",
End Sub

erreur syntax,

HLL est le nom de mon formulaire

[Invité]

Re

Si tu mets une virgule il attend un paramètre

Code :

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

1
2
 
DoCmd.OpenForm "HLL", , , , , , Command0.Caption

Ensuite tu récupére l'openargs, à l'ouverture du formulaire, sinom regarde l'aide

DoCmd.OpenForm nomformulaire[, affichage][, nomfiltre][, conditionwhere][, modedonnées][, modefenêtre][, openargs]

Tu peux aussi jouer (à mon avis préférable) sur la condition WHERE qui va filtré, il y'a un exemple dans l'aide

Starec

[yannzool]

merci
ca c'est fait
faudrat rajouter une ligne de code a chaque nouvel machine et le bouton.
Option Compare Database

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
20
21
22
23
24
25
 
Private Sub Commande1_Click()
DoCmd.OpenForm "HLL", , , "Emplacement = '102'"
 
End Sub
 
Private Sub Ctl102_Click()
DoCmd.OpenForm "HLL", , , "Emplacement = '102'"
End Sub
 
Private Sub Ctl103_Click()
DoCmd.OpenForm "HLL", , , "Emplacement = '103'"
End Sub
 
Private Sub Ctl104_Click()
DoCmd.OpenForm "HLL", , , "Emplacement = '104'"
End Sub
 
Private Sub Ctl105_Click()
DoCmd.OpenForm "HLL", , , "Emplacement = '105'"
End Sub
 
Private Sub Ctl106_Click()
DoCmd.OpenForm "HLL", , , "Emplacement = '106'"
End Sub

merci pour le CODE
maintenant, la couleur
si le champ d'un enregistrement est "dispo" le bouton correspondant est vert ou le texte du bouton.
j'ai cherché sans trouver le fameux et legendaire

Code :

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

DLookup