Bloquer bouton formulaire continu ?

[clickandgo]

Bonjour à tous,

Je voudrais mettre en enabled= false un bouton contigu à un registre si telle condition est validée dans un formulaire continu mais je n'y arrive pas.

C'est à dire que suivant chaque registre le bouton serait activé ou non ...

Je sais comment coder la condition mais sur quel événement le mettre ?


Merci d'avance

[argyronet]

Bonjour,

Envoyé par clickandgo

Je voudrais mettre en enabled= false un bouton contigu à un registre

Qu'est-ce c'est qu'un bouton contigu à un registre ?
Je comprends en gros ce que tu veux faire mais ne comprends pas ton contexte...

Argy

[clickandgo]

" Registre" : On va dire une ligne de la requête affichée par le formulaire continu ..."

Le bouton se trouve à la droite de la ligne, si il y a dix lignes, il y a aussi dix boutons...

[argyronet]

Ok, c'est ce que j'avais supposé.
Mais pour ce faire, il faut stocker la valeur dans la table par une case à cocher (champ Oui/Non). L'événement approprié serait un simple AfterUpdate sur la case à cocher.
Toutefois, tu ne pourras pas désactiver la ligne.
Tu ne pourras qu'agir sur l'événement BeforeUpdate de chaque zone recevant des données où le Cancel recevra la valeur de la case à cocher.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Option Compare Database
Option Explicit
 
Private Sub Champ1_BeforeUpdate(Cancel As Integer)
    Cancel = Me!chkActive
    If Cancel Then
        MsgBox "Pas possible de modifier la valeur !", vbExclamation
        Me.Champ1.Undo
    End If
End Sub
 
Private Sub Champ2_BeforeUpdate(Cancel As Integer)
    Cancel = Me!chkActive
    If Cancel Then
        MsgBox "Pas possible de modifier la valeur !", vbExclamation
        Me.Champ2.Undo
    End If
End Sub

Argy

[clickandgo]

Merci pour ta réponse mais elle n'a rien à voir avec ce que je demandais ...

Il s'agit d'activer ou désactiver l' état d'un bouton par rapport à la valeur d'un champ, les données sont en lecture seule.

Le bouton en question sert à annuler un acompte, il faudrait que le bouton se désactive lorsque la valeur du champ [EtatDocument] =" Annulé ".

Je sais coder pour faire çà dans un formulaire simple mais dans un continu ça ne veut pas marcher !

Je rappelle que le dit bouton est répété sur le formulaire autant de fois qu'il y a de registres visibles...

[dok flint]

Bonjour ,
Une idée c'est de pouvoir changer le nom du bouton pour l'enregistrement dont le champs est en modification et faire le test sur la valeur du champs et du bouton qui lui est correspondant.
J'ai essayé de faire quelque chose comme

Code :

[bouton].nom=[champs N°ligne].value

mais un message disant que la modification n'est possible qu'en mode création.
A+

[argyronet]

Envoyé par clickandgo

Je rappelle que le dit bouton est répété sur le formulaire autant de fois qu'il y a de registres visibles...

Merci pour le rappel
Tu ne peux pas exploiter la propriété Enabled sur un bouton dans un formulaire continu. Soit il seront tous activés, soit ils seront tous désactivés.
Seul un contrôle de type booléen peut s'appliquer si sa valeur est stockée dans la table dans un champ Oui/Non.

Il faut donc t'inspirer que ce que je t'ai proposé pour établir ta condition.
Si ton champ contient "Annulé", alors la case prend la valeur True et dans ton formulaire parent, tu as un autre bouton qui marque comme effacé (mais que ne supprime pas la ligne) chaque enregistrement à True.
Le sous formulaire est rafraîchit avec la requête

Code :

WHERE RegistreAnnulé = False

.

Argy

[clickandgo]

Merci pour ta réponse,

Je vais devoir trouver une autre solution, peut être revenir à une feuille de données ...

Je te tiens au courant

[dok flint]

Bonjour ,
Une idée c'est de mettre sur l'événement de "Clic" du bouton un petit code pour afficher un Msgbox pour bloquer l'événement et émettre un alerte juste avant l'événement pour le quel est créer le bouton, Exemple :

Code :

1
2
3
4
5
6
7
8
9
 
If [EtatDocument].Value = "Annulé" Then
If MsgBox("Le compte est Annulé", vbOKOnly, "Attention") = vbOK Then
[EtatDocument].SetFocus
Else
    'Procédure à exécuter par le bouton normalement
End If
End If
End Sub

[RobiPMS]

Bonjour.

Autre idée : faire en sorte que le bouton soit invisible si le champ [EtatDocument] = " Annulé ".

Le code serait donc :

Code :

1
2
3
4
5
6
Private Sub Form_Current()
If Forms![MonFormulaire]![EtatDocument] = "Annulé" Then
Me.MonBouton.Visible = False
Else
Me.MonBouton.Visible = True
End If

Bon travail!

[dok flint]

Bonjour ,

Envoyé par RobiPMS

Autre idée : faire en sorte que le bouton soit invisible si le champ [EtatDocument] = " Annulé ".

Le problème est le même que pour .Enabled : le bouton devient invisible pour tout le formulaire , mais l'idée est très bien si on peux l'appliquer pour l'enregistrement en cours seulement.
A+

[argyronet]

dok flint & RobiPMS, je vois que vous n'avez pas compris la problématique.
Un bouton qui subi une modification des ses propriétés en mode continu affectera tous les boutons de chaque ligne car un bouton ne peut pas être bindé sur un champ de table.
C'est pourquoi j'avais suggéré la case à cocher.
Il appartient à clickandgo de modifier sa conception des choses en amont (niveau conception) pour que ce cas soit traitable par un bouton sur le formulaire Parent et non pas au cas par cas comme il le souhaite.
La case à cocher peut voir sa valeur stockée ce qui fait que l'on peut intervenir pour modifier l'état d'un "Registre" de façon forcée.

Argy

[dok flint]

Bonjour argyronet ,
Je suis tout a fait d'accord avec toi pour le bouton et la case à cocher qui reste la solution de stockage ,mais je ne vois pas comment cela peut fonctionner avec le bouton que clickandgo veut garder car je crois que ce bouton
déclenche un autre événement et il veut neutraliser le bouton avant que l'utilisateur puisse le déclencher et c'est pour ça que j'ai proposé la solution du Msgbox.
A+