Discussion :

[Kaley]

Bonjour,

Je me sers d'une zone de liste pour afficher le résultat d'une requête (donc dans Propriété -> Données-> Contenu).

Mon problème est le suivant:
- Quand la requête renvoie une valeur, affichage de cette valeur dans la zone de liste.
- Quand la requête ne renvoie rien (pas 0 mais rien), je souhaiterai afficher "vide".

Voici mon code pour tester si j'arrive à détecter si la zone liste est vide:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Button_Click()
 
Me.requery
If Nz(Me.Liste, "") = "" Then
MsgBox "Champ vide"
Else
MsgBox "Champ rempli"
End if
 
End Sub

[zoom61]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Button_Click()
 
Me.requery
If isnull(Me.Liste) or  Me.Liste = "" Then
MsgBox "Champ vide"
Else
MsgBox "Champ rempli"
End if
 
End Sub

@+.

[Kaley]

Merci de ta réponse zoom61.

Je viens de tester et désolé ca ne marche toujours pas.

En effet avec ton code,ma requête ne renvoie rien j'ai bien le msgbox "champ vide".

Mais quand ma requête renvoie une valeur, j'ai toujours la msgbox "champ vide".

[Alsvghn]

Bonjour,

Tu peux essayer ça

Code :

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

1
2
3
4
5
If Me.Ma_liste.ListCount = 0 Then
 
     MsgBox "Champ vide"
 
End If

[Kaley]

Merci Alsvghn,

Ta méthode ListCount répond exactement à mes attentes.

Cordialement.