Discussion :

[fdalyon]

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 :

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

1
2
3
4
5
6
Private Sub calcul()
 
CalcComm = "Dcount('*','TBadresses',[NomCommercial]='Commercial')"
CalcAdresses = "Dcount('*';'TbAdresses')"
 
End Sub

ou :

Code :

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

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 :

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

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

[Brunodm13]

Bonsoir,

La syntaxe est

Code :

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

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

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

Cordialement

Bruno

[Invité]

Bonjour

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

Philippe

[fdalyon]

Bonsoir,

La syntaxe est

Code :

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

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 :

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

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

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

[Brunodm13]

Re,

Et si tu essayes ça ?

Code :

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

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

[fdalyon]

Ca ne marche pas non plus !!!

[Invité]

Re

Ca ne marche pas non plus !!!

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

As-tu lu le tuto indiqué ?

Philippe

[fdalyon]

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 :

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

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

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

Code :

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

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

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

Code :

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

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

[Invité]

Re

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

Code :

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

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 :

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

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

Il manque une parenthèse à la fin.

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 :

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

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

[fdalyon]

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

[Invité]

Re

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.

[fdalyon]

Je te remercie