Discussion :

[adelion7015]

Bonjour;

J'ai sur un formulaire un bouton, en cliquant dessus, ca m'ouvre un autre formulaire, mais pour obliger l'utilisateur de renseigner un champ spécifique, faire disparaître le bouton et qu'il réapparaisse des que le champ en question est renseigné.

Pour ce faire j'ai bricolé le code suivant, mais qui marche que quand il s'agit d'une liste déroulante, je n'ai pas su le faire pour un champ.

Voici le code sur l'évènement sur activation du formulaire sur lequel se trouve le bouton :

Code :

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

1
2
3
Private Sub Form_current ()
Call masquedemaque
End sud

et sur l'évènement après MAJ de la liste déroulante :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub masquedemasque
if Me.Statut="Liberée"Then
Me.Ref_main_levée.Visible =True
'....
Else
Me.Ref_main_levée.Visible=False
'.....
End if
end sub

Ca marche quand c'est une liste valeur, mais quand il s'agit d'un champ quoi doit etre renseigné, je ne sais pas le faire.

Merci.

Cordialement.

[marot_r]

Bonjour.

Il n'y a pas vraiment de différence.

Ici un exemple :

Code :

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

1
2
3
4
5
if not Isnull(Me.NomTonChamp) then
   me.TonBouton.Visible=true
 else
   me.TonBouton.Visible=false
end if

ou plus condensé :

Code :

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

me.TonBouton.Visible=not Isnull(Me.NomTonChamp)

A+

[hyperion13]

A tester

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub MaTextBox_AfterUpdate()
If Me.MaTextBox = "Liberée" Then
Me.btnCmde.Visible = True
'....
Else
Me.btnCmde.Visible = False
'.....
End If
End Sub

[adelion7015]

Bonjour Marot, bonsoir Hyperion,

Merci pour vos réponses.

Marot vos deux solutions fonctionnent bien, sauf que le bouton apparait quand on va vers un autre enregistrement et on y revient, n y a t il pas quelque chose a faire pour qu'il apparaisse ou disparaisse de manière instantané ?

Merci.

Cordialement.

[marot_r]

Bonjour.

C'est parce-que tu l'appelles sur l'événement "Sur Activation" (Current) qui ne se produit qu'une seule fois au moment ou tu "arrives" sur l'enregistrement.
Il faudrait un événement qui détecte une modificatuion de TonChamp.
Peut-être après MAJ de TonChamp ? Si tu ne le modifie pas par VBA, cela me semble le meilleur candidat.

A+

[adelion7015]

Bonsoir Marot,

Ca marche en effectuant la manipulation suivante :

sur Mise a jour du champ :

Code :

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

1
2
3
Private Sub Date_de_remise_AfterUpdate()
Call masquedemasque
End Sub

Sur activation du formulaire :

Code :

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

1
2
3
Private Sub Form_Current()
Call masquedemasque
End Sub

Puis :

Code :

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

1
2
3
4
5
6
7
8
Private Sub masquedemasque()
 
If Not IsNull(Me.Date_de_remise) Then
   Me.Commande246.Visible = True
 Else
   Me.Commande246.Visible = False
End If
End Sub

Ca marche de cette maniere, je ne sais pas pourquoi mais ca marche.

En tout cas, merci pour tout.

cordialement.