Discussion :

[yannzool]

la connerie viendrait pas du fait que mes boutons sont dans un etat et non un formulaire?

[yannzool]

Re,

Alors

Code :

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

DoCmd.OpenForm "HLL", , , "Emplacement = " & 101

[/CODE]

Domi2

erreur 3464 d'execution

pour la 2eme j'avais bien fait

[Domi2]

Re,

Un état, c'est fait pour imprimer...

Crée d'abord un formulaire avec tes boutons !

Domi2

[Invité]

Re

Je suits votre discussion que j'avais entamé avec vous de prés pour voir l'évolution, mais Domi2 est en train de résoudre ton problème, suit ces conseils.

Je viens de voir que tes boutons étaient sur un état, hors sur un état un bouton ne réagit pas, c'est pour faire "joli".

Comme te dis Domi2, il faut que tu refasses la mêm chose mais avec un formulaire.

Je comprends mieux pourquoi cela ne fonctionne pas

Starec

[yannzool]

merci a vous, vous etes cool

alors j'ai refait un formulaire HLL1

on recapitule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
    CouleurBouton
End Sub
 
Private Sub Ctl102_Click()
MsgBox DLookup("[condition]", "HLL", "Emplacement = '102'")
DoCmd.OpenForm "HLL", , , "Emplacement = " & 102
End Sub
 
 
Private Sub Form_Close()
    CouleurBouton
End Sub

et là erreur sur le 1er "private sub
erreur de compile
variable ou procedure attendu, et non un module

pour le module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Compare Database
 
Function CouleurBouton()
Select Case DLookup("[condition]", "HLL", "Emplacement = '102'")
 Case "travaux"
   Forms!HLL1!Ctl102.ForeColor = RGB(255, 0, 0)
 Case "disponible"
   Forms!HLL1!Ctl102.ForeColor = RGB(0, 0, 0)
 Case "entretien"
   Forms!HLL1!Ctl102.ForeColor = RGB(241, 166, 85)
 End Select
 
End Function

voila

[Domi2]

Re,

Essaye peut-être avec

Code :

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

Call CouleurBouton()

Domi2

[yannzool]

idem

[Domi2]

Re,

Tu as bien placé ta fonction dans un module standard ?

Comment as-tu nommé ton module ?

Si tu le peux, zip une base exemple et poste là... je veux bien y jeter un coup d'oeil.

Domi2

[yannzool]

suis vraiment trop con, on fait comment pour posté la base ?

[Domi2]

Re,

Quand tu ajoutes ta réponse, le trombone dans la barre d'outil !

Domi2

[yannzool]

trop gros je le met sur mon site et je te donne l'adresse

[Domi2]

Re,

Est bien, poste-là, on va essayer de pas y passer la nuit

Domi2

[yannzool]

http://asaca2.free.fr/l3v.zip

[Domi2]

Re,

Je n'arrive pas à lire ton fichier... Mais 1.5 Mo zippé d'une base exemple, j'ai un doute...

Domi2

[Invité]

Re

Vu l'extension c'est de l'Access 2007, n'est-ce pas ? Il faut la convertir en 2000.

Fait un compactage avant de la zipper. Je ne sais pas où c'est en 2007.

Starec

[yannzool]

access 2007
c'est peut etre la cause

[yannzool]

bon c'est mort,peut pas enregistrer sous un format anterieur a 2007, merci crosoft

[yannzool]

je vais tout me retaper en 2003

[Domi2]

Re,

je vais tout me retaper en 2003

Mais non...

Une petite base démo avec 2 machines et deux boutons...

Les seules modifs par rapport à la discussion, c'est parce qu'emplacement est numérique.

Domi2

[Domi2]

Oups... je fatigue aussi...

Avec le fichier, c'est mieux...