Discussion :

[monphp]

Bonjour tt le monde,

je possede une listebox avec des enregistrement et 3 boutons supprimer, ajouter, modifier.

quand je selectionne un enregistrement, il faut que les 2 autres boutons soit desactivé
le probleme , je n'arrive pas à cliquer une deuxieme fois pour activer le 2 eme bouton et ainsi le 3 eme . j'ai utilisé 2 autres if comme celle-ci mais ça ne marche pas

merci d'avance de votre aide .
ma liste se nomme : lstConsult

ma procedure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub lstConsult_Click()
 
    Me.cmdAjouter.Enabled = False
    Me.cmdModifier.Enabled = False
    Me.cmdSupprimer.Enabled = False
 
   If Me.cmdModifier.Enabled = False and me.cmdSupprimer = False Then
    Me.cmdAjouter.Enabled = True 
 
   End If
 
End Sub

[Altrensa]

Salut,

Tu remets tes champs à false à chaque click (tes 3 premières lignes).
Il faudrait que tu les mettent à false à l'entrée sur la page mais pas sur le click...
Ensuite, sur le click, tu laisse tes trois If et cela devrait fonctionner...

Altrensa

[Invité]

Bonjour

Va voir ma contribution ici, dans mon formulaire j'ai trois boutons comme les tiens, regarde le code, et tu verras comment je fais pour activer et désactiver les boutons.


Starec

[monphp]

merci starec mais des que je passe en mode creation , il se ferme donc je n'ai pas pu voir ton code

voilà de nouveau mon 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
Private Sub lstConsult_Click()
 
    Me.cmdAjouter.Enabled = False
    Me.cmdModifier.Enabled = False
    Me.cmdSupprimer.Enabled = False
 
   If Me.cmdModifier.Enabled = False And Me.cmdSupprimer.Enabled = False Then
      Me.cmdAjouter.Enabled = True
   End If
 
   If Me.cmdAjouter.Enabled = False And Me.cmdSupprimer.Enabled = False Then
      Me.cmdModifier.Enabled = True
   End If
 
     If Me.cmdAjouter.Enabled = False And Me.cmdModifier.Enabled = False Then
      Me.cmdSupprimer.Enabled = True
   End If
 
End Sub

[monphp]

Altrensa a ecrit:

Tu remets tes champs à false à chaque click (tes 3 premières lignes).
Il faudrait que tu les mettent à false à l'entrée sur la page mais pas sur le click...
Ensuite, sur le click, tu laisse tes trois If et cela devrait fonctionner...

je ne vois pas ce que tu veux dire à l'entreé de la page mais pas sur le clic et comment je vais ppouvoir tester mes boutons si au depart il ne sont pas inialisées
merci

[monphp]

je m'explique une derniere fois

j'ai 3 boutons : ajouter, modifier, supprimer

quand je clique sur un enregistrement il me desactive par ex le bouton modifier et supprimer donc le bouton ajouter reste activé

si je reclique sur le meme enregistrment il me desactive ajouter, supprimer et le bouton modifer reste activé

pareille pour le 3eme qui est le bouton supprimer qui reste activé

j'espere que j'etais plus par rapport au précedent message


merci d'avance de votre aide

[Eruil]

Si j'ai bien compris ton besoin alors ça donnerais un truc dans le genre :

dans l'évenement form_load tu met :

Code :

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

1
2
3
Me.cmdAjouter.Enabled = False
Me.cmdModifier.Enabled = False
Me.cmdSupprimer.Enabled = False

et ensuite dans l'evenement clic du bouton :

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 lstConsult_Click()
If Me.cmdAjouter.Enabled = True Then 
   Me.cmdAjouter.Enabled = False
   Me.cmdModifier.Enabled = True
   Me.cmdSupprimer.Enabled = False
else
   If Me.cmdModifier.Enabled = True Then
      Me.cmdAjouter.Enabled = False
      Me.cmdModifier.Enabled = False
      Me.cmdSupprimer.Enabled = True
   else
      Me.cmdAjouter.Enabled = True
      Me.cmdModifier.Enabled = False
      Me.cmdSupprimer.Enabled = False
   end if
end if
end sub

[monphp]

merci Eruil de m'avoir repondu ,

ça merche bien mais je n'avais vraiment pas besoin de cree l'evenement load
pour charger mes 3 proprieté.

merci encore une fois