Discussion :

[Mrhappy94]

Bonjour,

Je n'arrive pas à trouver la synthaxe de Dcount pour le cas suivant

j'ai une requete entre 2 tables la table T_factures et la table T_Type_Factures

Par exemple je voudrais savoir s'il existe des factures pour le champs Lien_bronze =70 dont la date "Date_remise_en_banque" est > #12/04/2023" et dont le No_Groupe de la table T_Type_Facture = 2

Code :

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

1
2
3
=SQLSELECT T_Factures.Lien_bronze, T_Factures.Montant, T_Factures.Date_remise_en_banque
FROM T_Factures INNER JOIN T_Type_Facture ON T_Factures.Lien_Type_Facture = T_Type_Facture.Num_Type_Facture
WHERE (((T_Factures.Lien_bronze)=70) AND ((T_Factures.Date_remise_en_banque)>=#4/12/2023#) AND ((T_Type_Facture.No_Groupe)=2));

j'ai écrit le code suivant

Code :

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

1
2
3
4
5
6
7
sql = "T_Factures.lien_Bronze=70 AND ((T_Factures.Date_remise_en_banque)>=#4/12/2023#) AND ((T_Type_Facture.No_Groupe)=2)"
nbr = DCount("*", "T_Factures", sql)
If nbr = 0 Then
    MsgBox ("pas trouve")
Else
    MsgBox ("trouve")
End If

à l'execution j'ai le message d'erreur
Erreur d'execution 2471
L'expression entrée comme paramètre de requete est à l'origine de l'erreur suivante "T_Type_Facture.No_Groupe"


Quelqu'un peut-il m'aider ?
Merci d'avance

[nico84]

Bah oui il y a trop de parenthèses...

j'ai écrit le code suivant
sql = "T_Factures.lien_Bronze=70 AND ((T_Factures.Date_remise_en_banque)>=#4/12/2023#) AND ((T_Type_Facture.No_Groupe)=2)"

[Mrhappy94]

Bah oui il y a trop de parenthèses...

Bonjour,
ça change rien, toujours la même erreur.

[nico84]

Oups oui pardon aucune de ces parenthèses n'est utile mais ce n'est pas le problème !
dcount est sur la table t_factures mais no_groupe n'est pas un champ de cette table

Je ne sais pas si access autorise dcount sur une requete nommée, sinon il faut utiliser un recordset. J'avoue que comme ce n'est pas standard j'utilise très peu dcount

[hyperion13]

Salut nico84
Pour répondre à ton interrogation :
DCount ( expression, domain, [criteria] ) où domain peut-être table/query

[tee_grandbois]

bonjour,

Salut nico84
Pour répondre à ton interrogation :
DCount ( expression, domain, [criteria] ) où domain peut-être table/query

... et où query est une requête nommée, donc
@Mrhappy94 : tu dois enregistrer le SQL et lui donner un nom pour ensuite l'utiliser dans la fonction comme une table

PS: et syntaxe ne prend pas de "h" à réserver plutôt pour une synthèse ...

[Mrhappy94]

Bonjour,

Pour faire un test en dur j'ai créé la requête1

Code :

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

"SELECT T_Factures.Lien_bronze, T_Factures.Montant, T_Factures.Date_remise_en_banque, T_Type_Facture.No_Groupe FROM T_Factures INNER JOIN T_Type_Facture ON T_Factures.Lien_Type_Facture = T_Type_Facture.Num_Type_Facture;"

avec le code

Code :

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

1
2
sql = "T_Factures.lien_Bronze=70 AND ((T_Factures.Date_remise_en_banque)>=#4/12/2023#) AND ((T_Type_Facture.No_Groupe)=2)"
nbr = DCount("*", "Requête1", sql)

ça fonctionne parfaitement.

Dans Dcount j'ai essayé de remplacer Requête1 par le code de la requete mais cela ne fonctionne pas.
nbr = DCount("*", "SELECT T_Factures.Lien_bronze, T_Factures.Montant, T_Factures.Date_remise_en_banque, T_Type_Facture.No_Groupe FROM T_Factures INNER JOIN T_Type_Facture ON T_Factures.Lien_Type_Facture = T_Type_Facture.Num_Type_Facture;", sql)

Il faut une nom de requete existante.

Bon voilà déjà une solution merci à vous tous.

Sinon savoir s'il existe ou pas des enregistrements en utilisant un recordset c'est quoi la synthaxe ?

[User]

...
Sinon savoir s'il existe ou pas des enregistrements en utilisant un recordset c'est quoi la synthaxe ?

Salut,

Tu peux tester la propriété EOF du recordset :

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
Dim rst as DAO.Recordset
 
sql = "SELECT T_Factures.Lien_bronze, T_Factures.Montant, T_Factures.Date_remise_en_banque " & _
      "FROM T_Factures INNER JOIN T_Type_Facture ON T_Factures.Lien_Type_Facture = T_Type_Facture.Num_Type_Facture " & _
      "WHERE (T_Factures.Lien_bronze=70) AND (T_Factures.Date_remise_en_banque>=#4/12/2023#) AND (T_Type_Facture.No_Groupe=2);"
 
' ouvre le recordset basé sur le sql
Set rst = CurrentDb.OpenRecordset(sql)
 
If rst.EOF Then ' si pas d'enrg.
    MsgBox ("pas trouvé")
else ' sinon
    MsgBox ("trouvé")
end if
 
rst.close ' ferme le recordsey
set rst = nothing

https://learn.microsoft.com/fr-fr/of...f-property-dao

Cdlt,

[Mrhappy94]

ah ben oui c'est carrément plus simple !!!!!
trop forts les gars.
un grand merci
mrhappy94