Discussion :

[KIK83]

Bonjour à tous,

J'ai réalisé un form basé sur une listview, avec un critère de recherche par date:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub btn_Rechercher_par_Date_Click()
 
 
sql = "SELECT [Date de stock],[Désignation pièce],[Référence pièce],[Stock actuel],Installation,Opérateur,Commentaires FROM Table_Stocks WHERE [Date de stock]='" & Me.txt_Date_Debut.Value & "'"
list_Recherche_Avancee.RowSource = sql
If IsNull(Me.list_Recherche_Avancee.Value) Then
   MsgBox "Votre recherche n'a retourné aucun résultat.", vbOKOnly + vbInformation, "Information"
   Exit Sub
End If
 
End Sub

Le hic, c'est que ma MsgBox s'affiche toujours, mais si la liste n'est pas vide. J'ai également essayé isEmpty sans succès...

Vous l'aurez deviné je suis débutant...

Merci pour votre aide.

A+

[LedZeppII]

Bonsoir,

Je suppose qu'il s'agit d'une zone de liste.

Code :

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

1
2
3
4
If Me.list_Recherche_Avancee.ListCount = 0 Then
   MsgBox "Votre recherche n'a retourné aucun résultat.", vbOKOnly + vbInformation, "Information"
   Exit Sub
End If

A+

[KIK83]

Merci beaucoup, c'est exactement cela !!!

Bonne soirée

A+