Discussion :

[samlepiratepaddy]

Slt,
J'ai grace a ce code désactivé un bouton :

Code :

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

1
2
3
Private Sub Form_Current()
Me!ValiderAffectation.Enabled = Not ((Me!NbrRestant) = 0)
End Sub

Je souhaiterai le réactiver ou simplement le "mettre a jour" sur AfterMaj d'une liste déroulante !
En fait je pense qu'il faudrai que je le mette ailleurs ce code car à l'ouverture de mon form [NbrRestant] est forcément vide !
Donc mon bouton doit etre désactivé !
Mais dès que la valeur de [NbrRestant] passe à 1 ou plus il faut le réactiver...
Et le calcul se fait après avoir renseigné une liste déroulante....
J'ai essayé de "Requery" le form mais ça marche pas
J'ai essayé appliqué le code sur le bouton puis "requery" a partir de ma liste ça marche pas
En fait je ne sais plus comment faire...
Je crois que je m'égarre et la soluce doit etre ailleurs ou pas loin mais comme d'hab je passe à coté
Merci de votre aide

[ptitdragon_eric]

Et si tu mettais ton calcul sur "Sur changement" de ta listbox, à mon avis ça devrait marcher.

[samlepiratepaddy]

Ben non j'peux pas car il y a d'autres champs a renseigner pour effectuer ce calcul !!!
Il faut donc qu'a l'ouverture du form, ce bouton soit desactivé, puis lors du calcul final, si la valeur de [NbrRestant]est <0 (supp a zéro), réactiver le bouton !!

[ptitdragon_eric]

Dans ce cas tu fais une seule procédure de calcul avant lequel tu teste si tous tes champs sont remplis.

Et ensuite sur chacun des champs tu utilise "sur sortie" et tu fais appel à cette procédure. sur un de mes formulaires je fais cela et ça marche très bien.

[samlepiratepaddy]

ben j'dois pas etre loin mais ça bug toujours..Mais j'ai plus d'idée...
Voilà ce que j'ai mis

Code :

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

1
2
3
4
5
6
7
Private Sub CommercialAffectationCP_AfterUpdate()
If IsNull(Me.TéléproAffectationCP) Then MsgBox "Vous devez d'abord affecter un ou une télépro": Me.CommercialAffectationCP = Null: Exit Sub
If Not IsNull(Me.CommercialAffectationCP) Then
Me!ValiderAffectationCP.Enabled = Not ((Me!NbrRestantCP) = 0)
End If
MsgBox "Vous devez affecter un commercial"
End Sub

Et ça bug a

Me!ValiderAffectationCP.Enabled = Not ((Me!NbrRestantCP) = 0)

Incompatibilité de type

Alors là????
Si quelqu'un a une idée de ce qui cloche???

[samlepiratepaddy]

Bon Ben après plein de chose a
J'ai fait et ça marche

Code :

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

1
2
3
4
5
6
7
Private Sub ChoixCommercialCP_AfterUpdate()
If IsNull(Me.DateAffectation) Then MsgBox "Vous devez noter une date de traitement des appels": Me.ChoixCommercialCP = Null: Exit Sub
If IsNull(Me.ChoixTéléproCP) Then MsgBox "Vous devez d'abord affecter un ou une télépro": Me.ChoixCommercialCP = Null: Exit Sub
If IsNull(Me.ChoixCommercialCP) Then MsgBox "Vous devez d'abord affecter un ou une commercial(e)": Me.ChoixCommercialCP = Null: Exit Sub
If ((Me.NbrProspectLibreCP) = 0) Then MsgBox "Aucun Prospect a affecter sur ce code postal ! Veuillez refaire une autre selection": Me.ChoixCommercialCP = Null: Exit Sub
If Not IsNull(Me.ChoixCommercialCP) Then Me!ValiderAffectationCP.Enabled = Not ((Me!NbrProspectLibreCP) = 0)
End Sub

Pas parfais car je pense que je peux revenir sur le champ auquel il manque quelque chose pour etre plus "PRO" mais pour un débutant comme moi j'suis content du résultat !!
Merci encore de votre aide !
@+