Discussion :

[Nessie37]

Bonsoir,

J'ai un sous-form basé sur la requête suivante

Code :

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

1
2
3
4
SELECT Iif(Count(AFFAIRES.Réfaffaires)=0,"-",Count(AFFAIRES.Réfaffaires))
FROM AFFAIRES
WHERE Month([Signature définitive prévue le])=Month(Date())
HAVING (((AFFAIRES.[Transaction en cours])=True));

J'ai le bouton de commande de l'ouverture de l'état correspondant et je voudrais, s'il n'y a rien à afficher (donc resultat de ma requête ="-") avoir un message d'info. j'ai tenté ça (en tatonnant, ne connaissant pas tous les rouages d'access) :

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
Private Sub Commande251_Click()
If Me.Nbrencours="-" then
Msgbox "Il n'y a rien à afficher",vbInformation+vbOkonly,"INFORMATION"
Else
On Error GoTo Err_Commande251_Click
    Dim stDocName As String
 
    stDocName = "ENCOURS DU MOIS"
    DoCmd.OpenReport stDocName, acPreview
 
Exit_Commande251_Click:
    Exit Sub
 
Err_Commande251_Click:
    MsgBox Err.Description
    Resume Exit_Commande251_Click
End If
End Sub

Vous vous doutez bien que ça ne marche pas...

Help

[philben]

bonsoir,

c'est quoi le problème en faite ?

Me.Nbrencours est-il dans le sous-form ?

le bouton <Commande251> est-il dans le sous-form ?

cordialement,

Philippe

[Nessie37]

En fait la requête "nbrencours" a attéri dans mon form en tant que sous-form.

La commande 251 (qui ouvre un état) est dans le form. Je souhaiterais que lorsque le résultat de ma requête= "-", avoir un message d'info quand je clique sur l'aperçu (commande 251).

Je ne sais pas comment mettre en rapport un résultat de requête avec un code évènement.

[mouaa]

En VBA, fais une requête qui interroge la requête source du formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim compte as integer
Dim req as string
req = "nbrencours not like '-'"
compte = DCount("*", SousForm.recordsource, req)
' à la place de SousForm.recordsource, si ça ne fonctionne pas, entre le nom de ta requête à la main, entre guillemets
If compte > 0 then
'Création de l'état
End If

J'espère que ça répond à ta question

[Nessie37]

Bonjour et merci à toi mouaa !

J'ai essayé le code mais il bogue, sur le nom de la requête (comprends pas trop pourquoi mais je creuse).
En attendant, où interviendrait mon msgbox ?

[atom41]

Bonjour,

Ta MsgBox interviendrait dans le cas où compte =0 si j'ai bien suivi le problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim compte as integer
Dim req as string
req = "nbrencours not like '-'"
compte = DCount("*", SousForm.recordsource, req)
' à la place de SousForm.recordsource, si ça ne fonctionne pas, entre le nom de ta requête à la main, entre guillemets
If compte > 0 then
'Création de l'état
else : 
  msgbox "Rien à afficher !"
End If