zone de liste vide et message

**fscli** · 18/05/2006, 08h59

salut
j'ai le résultat d'une requete qui est affiché dans une zone de liste L1 et je voudrais que quand cette dernière ne contient aucun résultat, un message du style "Aucun résultat" s'affiche sur la premiere ligne.

j'avais pensé à

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub L1_AfterUpdate()
 
'déclaration
Dim nbligne As Integer
nbligne = L1.ListCount
 
'affichage
If nbligne = 1 Then
L1.AddItem "pas de cadence", 1
'ou encore
Me!L1.RowSource = "Pas"
End If
End Sub

mais sans résultat...

**Dolphy35** · 18/05/2006, 09h15

Salut,

tu as esseyé ceci:

Code :

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

1
2
3
If MaListe.ListCount = 0 then
MsgBox "Pas de données selon les critères de recherche."
End If

**fscli** · 18/05/2006, 09h21

oui sa marche mais je voudrais éviter les MsgBox et mettre sa sur la premiere ligne de ma zone de liste

**Dolphy35** · 18/05/2006, 09h30

re,

tu va être obligé de changé l'origine source de ta zone à chaque fois.

Pour afficher sur la première ligne tu faire ceci :

Code :

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

1
2
    MaListe.RowSourceType = "Liste valeurs"
    MaListe.RowSource = "Aucunes Données"

si tes données sont d'uine table ou requête tu sera obligé de remettre ceci :

Code :

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

MaListe.RowSourceType ="Table/requête"

**ft035580** · 18/05/2006, 09h36

Salut,

Peut-être un truc du genre:

Dim nbligne As Integer

If L1.ListCount = 0 Then
Me.L1.RowSourceType = "Liste valeurs"
Me.L1.RowSource = "Pas de résultat"
Else
Me.L1.RowSourceType = "Table/Requête"
Me.L1.RowSource = " SELECT Table.Champ, etc... " _
& " FROM Table"
Me.L1.Requery
End If

**fscli** · 18/05/2006, 09h38

merci j'ai utiliser ton premier code
j'obtiens mon message dans l'entete de la premiere colonne mais c'est pas grave
c'est mieux que si l'utilisateur se demande si y a un bug ... au moins y a un affichage

**Dolphy35** · 18/05/2006, 09h46

Envoyé par fscli

merci j'ai utiliser ton premier code
j'obtiens mon message dans l'entete de la premiere colonne mais c'est pas grave
c'est mieux que si l'utilisateur se demande si y a un bug ... au moins y a un affichage

tu peux définir ta zone de liste à 1 colonne :

Code :

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