Bonjour,

J'ai cré sur mon form principal, un bouton aperçu qui affiche les enregistrements COCHéS contenus dans mon sous_form.

Le problème c'est que mon aperçu s'ouvre meme s'il yen a aucun de coché, il m'affcihe par conséquent que l'intitulé des champs.

Ce que je cherche à faire c'est d'afficher un message d'erreur si aucun enregistrement n'est coché.

Voilà le code qui fonctionne et qui permet d'afficher seulement les enregistrements Cochés de mon sous form.:

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
20
21
22
23
24
25
26
27
28
Private Sub cmd_apercu_Click()
 
'On affiche l'aperçu avant impression
   Dim txt As String
Dim filtre As String
Dim archivage3 As String
 
 
 
 
 
 
   filtre = "DATE between #" & Format(Me.dte_debut, "mm/dd/yyyy") & "# and #" & Format(Me.dte_fin, "mm/dd/yyyy") & "# AND Req_tri4.Stocker = -1"
 
 
Select Case txt
   Case "JEU"
       filtre = filtre & " AND ID_STNB = 'HJEU'"
   Case "ACHATS"
       filtre = filtre & " AND ID_STNB LIKE '*-ACH'"
   Case "SPORTS"
       filtre = filtre & " AND ID_STNB = 'SPO'"
End Select
 DoCmd.OpenReport "mon_apercu", acViewPreview, , filtre, acWindowNormal
 
 
 
'archivage3 = MsgBox("Il n'y a pas d'enregistrement de cocher.", vbExclamation + vbOKOnly, "Attention")
Merci de l'aide que vous pourrez m'apporter.

Bonne journée