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