Affichage Dcount/VBA dans un formulaire

Bonjour
Je dois faire de nombreux calculs sur des tables et des requêtes dans un formulaire que je veux rassembler en VBA.
J'ai des zones de texte CalcComm, CalcAdresses ....

Je veux les remplir à partir du code. J'ai essayé plusieurs choses mais ca ne marche pas :

Code:

---

1 2 3 4 5 6

Private Sub calcul()   CalcComm = "Dcount('*','TBadresses',[NomCommercial]='Commercial')" CalcAdresses = "Dcount('*';'TbAdresses')"   End Sub

---

ou :

Code:

---

1 2 3 4 5 6

Private Sub calcul()   Me.CalcComm.RowSource = "Dcount('*','TBadresses',[NomCommercial]='Commercial')" Me.CalcComm.Caption = "Dcount('*','TBadresses',[NomCommercial]='Commercial')" Me.CalcComm.Requery End Sub

---

ou :

Code:

---

1 2 3 4 5 6

Private Sub calcul() Dim CalcComm As String Dim CalcAdresses As String CalcComm = "Dcount('*';'RQCompteProspects';[NomCommercial]='Commercial')" CalcAdresses = "Dcount('*';'TbAdresses')" End Sub

---

Quelqu'un pourrait il me dire ou je fais erreur ?

Merci

Bonsoir,

La syntaxe est

Code:

---

1 2	DCount("*", "TBadresses" , "[NomCommercial]='Commercial'")

---

DCount renvoie un Variant, tu ne peux pas le stocker dans une variable de type String.

Cordialement

Bruno

Bonjour

Je t'invite à lire ce tuto : Les Fonctions de Domaine dans Access

Philippe

Citation:

---

Envoyé par Brunodm13

Bonsoir,

La syntaxe est

Code:

---

1 2	DCount("*", "TBadresses" , "[NomCommercial]='Commercial'")

---

DCount renvoie un Variant, tu ne peux pas le stocker dans une variable de type String.

Cordialement

Bruno

---

Je pense pas que ce soit ca car quand je fais :

Code:

---

Me.CalcComm = "Dcount("*","TBadresses",[NomCommercial]='Commercial')"

---

J'ai l'erreur Erreur de compilation : atendue :fin d'instruction

Re,

Et si tu essayes ça ?

Code:

---

Me.CalcComm.Value = DCount("*", "TBadresses" , "[NomCommercial]='Commercial'")

---

Ca ne marche pas non plus !!!
:cry::cry::cry:

Re

Citation:

---

Envoyé par fdalyon

Ca ne marche pas non plus !!!
:cry::cry::cry:

---

Tu recherches un commercial qui a comme nom Commercial :koi:, peux-tu détailler ce que tu as en amont ?

As-tu lu le tuto indiqué ?

Philippe

Bonjour
J'ai lu le tuto mais je n'ai pas trouvé ce que je cherchais.

J'ai une table TBadresses contenant 2000 adresses dans laquelle j'ai un champ NomCommercial qui affecte ces adresses aux différents commerciaux. 200 à l'un 300 à l'autre etc... (et quand il y a la valeur commercial l'adresse n'est pas encore attribuée à quelqu'un en particulier
Je voudrais afficher dans des zones de texte mes différents calculs

pour la valeur "commercial" dans une zone de texte appelée Calcom:

Code:

---

Me.CalcComm.Value = DCount("*", "TBadresses" , "[NomCommercial]='Commercial'")

---

pour la valeur "Arthur" dans une zone de texte appelée CalcArthur :

Code:

---

Me.CalcArthur.Value = DCount("*", "TBadresses" , "[NomCommercial]='Arthur'"

---

Pour toutes les adresses, dans une zone de texte appelée CalcTout :

Code:

---

Me.CalcTout.Value = Dcount('*';'TbAdresses')

---

etc..

J'ai une 50-aine de zones à faire.

Quand je mets les cptedom directement dans la zone de texte ca marche, mais je voudrais les rassembler.

... Je nomme seulement la zone de texte par la valeur que je veux voir afficher CalcComm, CalcArthur, CalcTout. Peut être faut il faire quelque chose de plus ?

Merci de votre aide

Re

A mon avis il y a un problème en amont, car :

Code:

---

Me.CalcComm.Value = DCount("*", "TBadresses" , "[NomCommercial]='Commercial'")

---

La syntaxe est bonne, mais il faut que tu lances cette ligne sur une action pour que celle-ci fonctionne (chargement du formulaire ou autre).


Ici

Code:

---

Me.CalcArthur.Value = DCount("*", "TBadresses" , "[NomCommercial]='Arthur'"

---

Il manque une parenthèse à la fin.

Citation:

---

J'ai une 50-aine de zones à faire.
Quand je mets les cptedom directement dans la zone de texte ca marche, mais je voudrais les rassembler.

---

Est-ce que tu utilises toujours la table TBadresses, si oui je te conseille de passer par une requête qui alimente tous tes champs d'un coup, car 50 fonctions de domaines dans le même formulaire, c'est loin d'être le plus rapide.

Sinon un autre exemple de syntaxe

Code:

---

Me.Texte10.ControlSource = "=DCount(""*"", ""Table1"", ""[toto]='sqdf'"")"

---

Mais comme je vais me répéter, vu le nombre de contrôle à remplir, il faut passer par des requêtes.

Si tu peux patienter quelques jours, un de mes amis est en train de fignoler un tuto qui t'apportera d'autres solutions plus rapide.

Philippe

J'ai passé les dcount sur ouverture du formulaire et ca marche !!

Effectivement tous les calculs sont faits sur la table TBadresses, Mais sur différents champs et avec des critères différents.

Pour ce qui est du tuto à venir, je suis bien sur preneur, même si je dois attendre quelques jours. Il sera sur le site ?

Et merci bien pour l'aide de chacun

Re

Citation:

---

Envoyé par fdalyon

Pour ce qui est du tuto à venir, je suis bien sur preneur, même si je dois attendre quelques jours. Il sera sur le site ?

---

Oui, c'est un des rédacteur de DVP qui l'a rédigé, et dans ton cas, il sera très utile.

Je te remercie