Discussion :

[jrogron]

Bonjour,

J'ai plusieurs boutons bascule sur un formulaire. Je souhaite que le texte écrit sur les boutons change de couleur en fonction de l'état de la bascule. J'ai donc le code suivant:

Code :

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

1
2
3
4
5
6
7
Private Sub Bascule262_Click()
If Me.Bascule262 = True Then
   Me.Bascule262.ForeColor = 210
Else
   Me.Bascule262.ForeColor = 0
End If
End Sub

Cela fonctionne quand j'ajoute une nouvelle fiche mais quand je repasse en lecture plus rien ne s'affiche et tout les textes sont en noir.

Comment puis-je faire?

[pgz]

Bonjour,

Tu pourrais éxecuter ta procédure aussi sur l'évènement activé du formualire.
Mais ça ne marchera que si tu es en mode unique.

Bon courage,

pgz

[jrogron]

Est il possible de généraliser mon code à l'ensemble des Bascules?

Car là je suis obligé de retaper le code en changeant le numéro de la bascule et c'est lourd lol.

Merci,

Jocelyn

[loufab]

Bonjour,

Tout à fait possible :

Code :

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

1
2
3
4
5
6
7
8
 
Private Function Bascule_Click()
If Me.ActiveControl Then
   Me.ActiveControl.ForeColor = RGB(10, 250, 77)
Else
  Me.ActiveControl.ForeColor = RGB(250, 127, 50)
End If
End Function

DAns chaque propriété Sur clic de tes boutons bascules tu écris :

=Bascule_click()

Tout simplement.

[pgz]

Re,

Tu peux traiter tous tes boutons bascules dans ce genre:

Code :

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

1
2
3
4
5
6
Private Sub Bascule
Dim ctl as Control
For each ctl in Me.Controls
    If ctl.ControlType = acToggleButton then ctl.ForeColor = Iif(ctl.Value,210,0)
next ctl
End Sub

Bon courage,

pgz

[jrogron]

Merci loufab et pgz!!!

J'ai testé les 2 soluces et le vainqueur est loufab. Je ne sais pas pourquoi je n'arrive pas à faire fonctionner la solution de loufab.

Par contre j'ai toujours un souci concernant le fait que en mode lecture seul les couleurs n'apparaissent plus sur les boutons.

Si quelqu'uin a une soluce je suis preneur.

Amicalement,

Jocelyn

[loufab]

Merci loufab et pgz!!!

J'ai testé les 2 soluces et le vainqueur est loufab. Je ne sais pas pourquoi je n'arrive pas à faire fonctionner la solution de loufab.

Par contre j'ai toujours un souci concernant le fait que en mode lecture seul les couleurs n'apparaissent plus sur les boutons.

Si quelqu'uin a une soluce je suis preneur.

Amicalement,

Jocelyn

Probablement un lapsus... à part que tu ne veuilles que des solutions qui ne marchent pas

En "lecture seule" les valeurs des champs ne sont pas modifiables : si ton bouton bascule est basé sur un champ source c'est normal.

Dans ce cas il ne faut pas tester la valeur du bouton (et encore je ne suis pas sur du résultat)

Code :

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

If Me.ActiveControl Then

Mais sa couleur :

Code :

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

1
2
3
4
5
6
 
If  Me.ActiveControl.ForeColor = RGB(10, 250, 77) then
    Me.ActiveControl.ForeColor = RGB(250, 127, 50)
Else
    Me.ActiveControl.ForeColor = RGB(10, 250, 77)
End If

Le test sur la couleur avec la fonction RGB devrait fonctionner (logiquement) mais cela reste à tester. (un test à tester... j'm bidonne)

Cordialement,

[jrogron]

En effet il y a eu lapsus.

Argh ça veut pas fonctionner.

Je vais m'expliquer au mieux.
Sur mon formulaire principal j'ai un sous formulaire sur lequel il y a ces fameuses bascules. Si je souhaite changer la couleur de celles ci en fonction de leurs état c'est parce que il n'est pas possible de distinguer dans quel état elles sont en mode lecture (on ne visualise pas ou très mal la différence entre une bascule enfoncé ou pas). Si vous avez une autre solution pour mieux les visualiser je suis preneur.
Je lance donc mon formulaire principal et là je vais avoir toute la liste des différentes entreprises enregistrées que je fait défilé à l'aide de la souris. Je souhaite enregistré une nouvelle société donc je clic sur mon bouton de commande "ajouter" dont voici le code:

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
Private Sub Commande885_Click()
On Error GoTo Err_Commande885_Click
 
    Me.AllowAdditions = True
    Me.AllowEdits = True
    Me.DataEntry = True
    With Me.Sous_Formulaire_Products.Form
        .AllowAdditions = True
        .AllowEdits = True
    End With
 
 
Exit_Commande885_Click:
    Exit Sub
 
Err_Commande885_Click:
    MsgBox Err.Description
    Resume Exit_Commande885_Click
 
End Sub

Mon formulaire est maintenant en mode modification.

Ensuite j'enregistre ma nouvelle société (dans cette étape les boutons bascule vont changer de couleurs). Puis je clic sur le bouton "enregistrer" qui en faite ne fait simplement que passer le formulaire en lecture seul car cela s'enregistre automatiquement dans la table. Le code de ce bouton est celui ci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande887_Click()
On Error GoTo Err_Commande887_Click
 
Me.AllowEdits = False
 
Exit_Commande887_Click:
    Exit Sub
 
Err_Commande887_Click:
    MsgBox Err.Description
    Resume Exit_Commande887_Click
 
End Sub

Ici encore la couleur de mes bascules est bonne. Mon souci c'est que quand je clic sur "enregistrer" mon formulaire va donc repasser en mode lecture seul mais seul mes nouveaux enregistrements seront lisibles. Quand je clic sur ajouter le compteur en bas m'affiche 1/1 ce qui n'est pas idiot, mais je souhaite retrouver les autres fiches en cliquant sur "enregistrer" et non pas que les nouvelles. Je suis obligé de fermer et réouvrir mon formulaire pour avoir toutes les fiches et la couleur des bascules disparait à cette étape.

J'espère avoir été clair.

Et je me demandais s'il était possible de faire un test sur la valeur de la bascule pour faire varier sa couleur?

Merci de votre aide.

Amicalement,

Jocelyn

[loufab]

Dans le cas ou tu souhaites également que les couleurs changent d'un record à l'autre il faut utiliser la méthode de pgz (comme quoi tout est complémentaire) et tu la place dans l'événement Sur Activation.

Pour une meilleure visiblité... je n'utilise que trés trés rarement les boutons bascules. Je suis plutôt abonné aux groupes d'options (le cadre avec xyz dans la barre d'outils) je les trouve plus lisible.

Pour revoir toutes tes fiches peut-être qu'un Me.requery suffirait, bien que l'état incertain des propriétés Allows... puissent poser problèmes.
Personnellement je n'utilise jamais cette méthode :

• En entrant je verrouille mes contrôles globalement puis je dé-verrouille les boutons et controles non liés aux données.
• Lorsque j'appuie sur mon bouton nouveau je positionne le pointeur sur le nouvel enregistrement NEWREC et je dé-verrouille globalement.
• Sur le bouton Edit je deverouille globalement
• A chaque passage d'un enregistrement à un autre je verrouille.

JE te conseille dans ton formulaire d'afficher la valeur des Allows pour bien voir leurs états tout au long du fonctionnement. il se peut qu'il y ai un pb.


Cordialement,

[jrogron]

Cela s'améliore. Mon souci maintenant c'est que quand je veut "ajouter" une nouvelle société alors les bascules garderont la couleur de celle de la fiche sur laquelle j'étais précédemment, avant d'appuyer sur "ajouter". Si je clic ensuite sur une bascule qui a gardé la couleur alors le message suivant apparait:

"Vous avez essayé d'affecter la valeur Null à une variable qui n'est pas du type de données Variant"

Cependant tout redevient normal après et les autres bascules qui étaient en couleur retrouve leur texte en noir.

Donc comment faire pour ne pas avoir ce problème sachant que mon code est celui de pgz (que je remercie) sauf que au début j'ai:

Code :

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

Pivate Sub Form_Current ()

Sinon pour ce qui est du Me.Requery cela ne fonctionne pas et par conséauent je pensais utiliser une macro qui ferme et réouvre mon formulaire dans un autre mode. Tu en pense quoi?

Et pour tout te dire je suis débutant de chez débutant sur Access. J'ai lu plein de tuto mais pas sur la programmation proprement dite. Par conséquent je ne sait pas ce qu'est un Allows et encore moins comment l'afficher lol

Merci pour ton aide Loufab je suis presque à la fin de lon projet.

Je voudrais le faire tester par des personnes qui s'y connaissent bien quand je l'aurais complètement fini. Si il y a des personnes que cela ne dérangerait pas ça serait cool.

Amicalement,

Jocelyn

[loufab]

Cela s'améliore. Mon souci maintenant c'est que quand je veut "ajouter" une nouvelle société alors les bascules garderont la couleur de celle de la fiche sur laquelle j'étais précédemment, avant d'appuyer sur "ajouter". Si je clic ensuite sur une bascule qui a gardé la couleur alors le message suivant apparait:

"Vous avez essayé d'affecter la valeur Null à une variable qui n'est pas du type de données Variant"

Bizarre !! pourtant à la vue du code de PGZ et l'endroit ou tu l'a mis il devrait définir les couleurs en toutes circonstances.
Il se peut que tu ais mis Null interdit dans la structure de ta table.

Sinon pour ce qui est du Me.Requery cela ne fonctionne pas et par conséauent je pensais utiliser une macro qui ferme et réouvre mon formulaire dans un autre mode. Tu en pense quoi?

Pour fonctionner ça fonctionnera... mais ça restera du bricolage. C'est dommage.

Et pour tout te dire je suis débutant de chez débutant sur Access. J'ai lu plein de tuto mais pas sur la programmation proprement dite. Par conséquent je ne sait pas ce qu'est un Allows et encore moins comment l'afficher lol

Continue comme ça c'est le bon chemin, même si parfois c'est frustrant. Ne fais pas comme certaines personnes qui attendent que ça leur tombe tout cuit dans la bouche.

Les Allows c'est les propriétés du formulaires que tu utilises pour passer du mode edit au mode ajout et lecture seule. AllowsEdit etc

Je voudrais le faire tester par des personnes qui s'y connaissent bien quand je l'aurais complètement fini. Si il y a des personnes que cela ne dérangerait pas ça serait cool.

Pas de problème je serais heureux de la tester. et je pense ne pas être le seul. (au fait c'est quoi le sujet ?)

Cordialement,

[jrogron]

Non je n'ai pas mis Null interdit dans ma table.
Pense tu que le code écrit précédemment pour ma commande 885 est correcte? Car mes bascules qui changent de couleur se trouvent dans le sous formulaire et j'ai l'impression qu'il ne s'initialise pas lors de l'utilisation de la commande 885.

Merci d'avance et dès que mon projet est fini je te préviendrait. Il s'agit d'une base de données répertoriant des entreprises (clients, concurrents, fournisseurs) et leur activité. Cette base de donné est lié à une bibliothèque dans laquelle les informations papier de chaque entreprise seront rangées par ordre alphabétique. Une fonction recherche est bien entendu intégré dans ce projet sur la base de données.

Jocelyn

[loufab]

Je pense que le DataEntry est en trop car il est reservé à la saisie de nouveaux enregistrement uniquement. Quand il est à Oui on ne peut que saisir.

Cordialement,

[jrogron]

Bonjour loufab!!!

En faite le DataEntry est bon car ma commande 885 me permet d'ajouter une nouvelle entreprise et m'ouvre donc un nouveau formulaire (qui devrait être vierge).

Ta remarque ma par conséquent mit sur une piste et j'ai trouvé le problème.
Voici mon nouveau code de ma commande 885 (ajout):

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
Private Sub Commande885_Click()
On Error GoTo Err_Commande885_Click
 
    Me.AllowAdditions = True
    Me.AllowEdits = True
    Me.DataEntry = True
    With Me.Sous_Formulaire_Products.Form
        .AllowAdditions = True
        .AllowEdits = True
        .DataEntry = True
    End With
 
 
Exit_Commande885_Click:
    Exit Sub
 
Err_Commande885_Click:
    MsgBox Err.Description
    Resume Exit_Commande885_Click
 
End Sub

Merci encore loufab et bonne continuation.

Amicalement,

Jocelyn

[loufab]

Bonjour Jocelyn,

Juste une remarque à propos du dataentry.

DataEntry configure ton formulaire en Création d'enregistrement uniquement il y a donc un problème de logique avec les autres permissions.

Si DataEntry est à oui les autres devrais être à non. Et si DataEntry est à non les autres peuvent indépendamment être à oui.

Regarde l'aide d'access sur DataEntry et tu comprendras mieux le problème.

Cordialement,

[jrogron]

J'ai regardé l'aide et elle me dit le contraire (en partie du moins) ou alor je comprends rien (ça aussi c'est fort probable car je pense que tu est mille fois plus compétent que moi ). Voici ce que j'ai lue:

[citation]La propriété DataEntry n'a d'effet que si la propriété AllowAdditions a pour valeur Oui.[/citation]

Par contre j'ai supprimé les AllowEdits car ils ne servent à rien, je pense?

D'où le code suivant:

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
Private Sub Commande885_Click()
On Error GoTo Err_Commande885_Click
 
    Me.AllowAdditions = True
    Me.DataEntry = True
    With Me.Sous_Formulaire_Products.Form
        .AllowAdditions = True
        .DataEntry = True
    End With
 
Exit_Commande885_Click:
    Exit Sub
 
Err_Commande885_Click:
    MsgBox Err.Description
    Resume Exit_Commande885_Click
 
End Sub

Cordialement,

Jocelyn