[ListBox] Desactiver si la premiere n'est pas remplie

**poplite** · 08/11/2006, 20h57

Bonsoir,
désolé de poser une question débile, mais je ne trouve pas dans le forum, ni dans le code.

Je cherche a rendre inactive une listbox si la premiere des deux listbox est "null".

J'ai essayé avec un code trouvé sur le forum concernant des groupes d'options, mais apparemment la syntaxe doit differer, il me demande d'indiquer une checkbox.

merci de votre aide

**ft035580** · 08/11/2006, 22h05

Salut,

Code :

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

1
2
3
If IsNull(Me.ListeNumero1) Then
Me.ListeNumero2.Enabled = False
End If

**poplite** · 08/11/2006, 22h17

Je le mets Avant ou après MAJ?
Apparemment aucun des deux ne marche..

**ft035580** · 08/11/2006, 22h45

Il me semble que tu devrais mettre le code avant l'évènement qui lance ton code.

=Tu vérifies ta condition si "oui" alors ton code se lance sinon il ne s'effectue pas.

**poplite** · 08/11/2006, 22h54

Marche pas :'(

Pourtant je l'ai bien mis sur "activation", j'ai essayé sur modification, avant MAJ apres MAJ.. :/

**keita** · 09/11/2006, 19h55

1/ donne la requete qui alimente ta 1ere liste
2/c'est à l'ouverture de form? sur un bouton? à quel moment doit se faire la desactivation?
@+

**poplite** · 09/11/2006, 19h59

C'est pas une requete, mais elle prend ses valeurs dans une table. "Type listbox".

J'ai deux listebox en fait. Les deux sont alimentées par "type listbox".
Je voudrais que le type2 n'ai pas de valeur si type1 n'est pas rempli, et pour aider l'utilisateur je veux griser la deuxieme listbox.

Donc je voudrais que de base elle soit grisée, et si l'utilisateur choisit quelquechose dans la premiere listbox, que la deuxieme s'active.

j'espere avoir été clair, dis le moi sinon je re-expliquerai !!

merci

**Dolphy35** · 09/11/2006, 22h20

Salut,

Deux listes:

Liste1
Liste2

Il faut que ta seconde listbox ne soit pas activée :

Dans l'onglet Données des propriétés de ta liste tu met Activé = NON

Ensuite tu met sur l'événement Liste1_AfterUpdate() de ta première liste :

Code :

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

1
2
3
4
5
If Not IsNull(Me.Liste1) Then
      Me.Liste2.Enabled = True
Else
      Me.Liste2.Enabled = False
End If

Dolphy

**poplite** · 09/11/2006, 23h23

Je suis sans doute maudit, mais la case ne se dégrise plus, que type1 soit rempli ou non..

Merdum !!

Merci de votre aide

**poplite** · 10/11/2006, 18h24

up rien a faire, je le retourne dans tous les sens, j'ai rien..

je vous envoie ma bdd?

**Dolphy35** · 10/11/2006, 18h29

Salut,

Post-la on verra peut être quelque chose.

Dolphy

**DelphiManiac** · 10/11/2006, 18h33

Apparemment les réponses qui t'ont été donné permets de désactiver la deuxième listbox sur aucun élément n'est sélectionné dans la première et je pense que tu désires désactiver la deuxième si la première liste est vide.

Il faudrait, toujours d'après moi, se baser sur listcount et non pas sur la valeur que te renvoi le controle listbox.

Code :

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

1
2
3
  Me.Liste2.Enabled = Me.Liste1.ListCount <> 0

Après il est possible que j'ai mal compris la question ^^

**poplite** · 10/11/2006, 18h39

Je veux bien tenter, mais cette ligne de code seule sans rien changer va prendre en compte tout?

Je la mets en after_update?

**DelphiManiac** · 10/11/2006, 18h42

Déjà il faudrait que tu clarifies la demande, savoir si j'ai compris de travers ou pas ?

1) Tu veux désactiver la 2ième si la 1ère liste est Vide (pas d'enregistrement) ?

ou

2) Tu veux désactiver la 2ième si aucun élément n'est sélectionné dans la 1ere ?

**poplite** · 10/11/2006, 19h13

2ème réponse.

Si je n'ai fait aucun choix dans la premiere, je veux que la deuxieme soit grisée.

**DelphiManiac** · 10/11/2006, 19h35

Alors c'est moi qui ai compris de travers. Ma réponse correspond au cas 1.

Les solutions données au début doivent fonctionner. Mets un exemple de ta base en lien, ca sera peut être plus simple.

**@rkane** · 10/11/2006, 23h53

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Open(Cancel As Integer)
Me.List2.Enabled = False
End Sub
 
Private Sub List1_AfterUpdate()
If IsNull(Me.List1) = False Then
Me.List2.Enabled = True
Else
Me.List2.Enabled = False
End If
End Sub

ça devrait le faire....

**poplite** · 11/11/2006, 10h19

Ca marche deja mieux !!
Le probleme est que a l'ouverture, il est grisé, quelle que soit la valeur de List1 (embetant dans les fiches deja creees) et une fois que List1 est modifié ou choisi, list2 ne se grise plus, meme a la creation d'une nouvelle fiche...

Au secours !