Code VBA fonction du resultat d'une requête

Bonsoir,

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

Code:

---

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:

---

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 :roll:

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

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.

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

Code:

---

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

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 ?

Bonjour,

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

Code:

---

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

---

Bonsoir Atom41,

Ok, je tenterai ça.

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

Code:

---

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

---

Bonjour,

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

Voici le code que j'ai

Code:

---

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 8O:roll:

Help 8O

re !

question sur ce bout de code :

Code:

---

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")