Discussion :

[gadjou]

Bonjour à tous
je veux activer un bouton dans un formulaire sous certaines conditions.
J'ai regardé dans les propriétés du bouton de comande.Et je n'ai pas la possilité de donner une condition à son activation
Je pense que je dois le faire en VBA mais je ne sais pas comment

Merci de votre aide

[catoucat]

Oui il faut passer par du VBA, soit le rendre invisible, soit faire des messages d'erreur par exemple j'ai un bouton sur un formulaire et ma condition est sur l'utilisateur:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub AddItem_Click()
On Error GoTo Err_AddItem_Click
 
If (CurrentUser = "Lamiaa" Or CurrentUser = "Catherine") Then
    DoCmd.OpenForm "F_New_Item"
    DoCmd.GoToRecord , , acNewRec
Else
    MsgBox "Sorry you cannot add an item but only see the list of items"
End If
End Sub

[gadjou]

merci pour la piste
Ton exemple concerne un message d'eurreur
Connait tu le code adapté pour masquer le bouton?
Que fait la fonction "gotoreport"? elle t'affiche le contenu d'un état aprés un saut?

Merci d'avance pour tes précisions

[Eowyn87]

sous quelle condition ton bouton doit s'activer ?

tu peux le désactiver au chargement du formulaire et par ex si c'est sur un click ou une sélection dans une liste déroulante, tu peux activer ton bouton sur un "onClick" ou un "onChange"

[gadjou]

si FACTURATION=ENTREPRISE alors ACTIVER LE BOUTON "ETAT_ENTREPRISE"
sinon ACTIVER LE BOUTON "ETAT_AUTRE"

quelque chose dans ce genre
Merci

[guigui5931]

Tu pourrais faire un truc du genre qui t'activerais ou non le bouton au démarage

Code :

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

1
2
3
4
5
6
7
8
 
private sub Form_Load()
    if (FACTURATION=ENTREPRISE)then
          MonBouton.Enabled=true
    else
          MonBouton.Enabled=true
    end if
end sub

Mais il faudrais savoir à quoi correspond ton FACTURATION, une variable un champs texte?

[jessy212]

si FACTURATION=ENTREPRISE alors ACTIVER LE BOUTON "ETAT_ENTREPRISE"
sinon ACTIVER LE BOUTON "ETAT_AUTRE"

bonjour,
ce que je pense c'est que en mode de création du formulaire, vous devez choisir pour la propriété activé "non" pour les deux boutons de commande
et puis en code VBA, vous choisisserez lors du chargement du formulaire,ou bien lors de l'entrée des données que vous citez, d'activer le bouton que vous voulez
essaiyez le code suivant

Code :

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

1
2
3
4
5
6
 
if facturation=entreprise then
etat_entr.enabled=true
else 
etat_autre.enabled=true
end if

[gadjou]

facturation est un champ de type "TEXTE" dans l'une de mes tables
Et qui a une valeur pour chaque enregistrement

je vais essaiyer ta proposition tout de suite
Merci pour ton aide

[@rkane]

Code :

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

1
2
3
4
5
6
7
Private Sub Form_load()
if Me.Facturation.value = "Entreprise" then
Me.BoutonEntreprise.visible = true
else
Me.BoutonAutre.visible = true
end if
end sub

et pour faire clean tu superposes exactement tes 2 boutons !

[gadjou]

Bonjour PTKPPR
J'ai essayé ta proposition .Et à la place de "Me.BoutonEntreprise.visible = true"

J'ai mis "Docmd.openform formnlaire_entreprise"

Et ça marche très bien
Merci pour ton aide, bye