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

[Nessie37]

Bonsoir Atom41,

Ok, je tenterai ça.

Si j'ai bien compris, je mettrai le code d'ouverture de l'état après

Code :

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

1
2
If compte > 0 then
'Création de l'état

[Nessie37]

Bonjour,

J'ai toujours le même problème de nom de requête. Je ne comprends pas.

[Nessie37]

Voici le code que j'ai

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
Private Sub Commande251_Click()
Dim compte As Integer
Dim req As String
req = "TRANSAC__Nbrencours not like '-'"
compte = DCount("*", "TRANSAC__Nbrencours", 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
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
Else:
  MsgBox "Il n'y a rien à afficher !"

End If
End Sub

Debogage sur ce que j'ai mis en gras

[Nessie37]

Help

[mouaa]

re !

question sur ce bout de code :

Code :

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

1
2
req = "TRANSAC__Nbrencours not like '-'"
compte = DCount("*", "TRANSAC__Nbrencours", req)

ton "TRANSAC__Nbrencours", c'est le nom d'une requête ou le nom d'un champ ?
(ou les 2)

parce que ton code me paraît un peu bizarre.

si je retranscrits ton dcount en sql, voilà ce que ça fait:
SELECT * FROM TRANSAC__Nbrencours WHERE TRANSAC__Nbrencours not like '-';

si tu essayes cette requête dans le requêteur SQL (QBE), elle fonctionne ?

vérifie bien ton Dcount :
Dcount("nom_du_champ ou * pour tous","table_ou requête","critère")