Access VBA lecture de textbox ds sumdom
Mercredi
-
mercredi -
mercredi -
Bonjour,
je cherche à effectuer des sommes de données présentes dans une requête.Cette requête peut etre modifiée à tout moment par un clic de l utilisateur dans les liste déroulantes de mon formulaire.
Ici j ai un probleme de concatenation je pense.J ai besoin d' une boucle parce qu il n'y a pas toujours le même nombre de domaine.
voici le code actuel:
'calcul des totaux d'heures par section( on a au maximum 9 section donc 9 calculs)
For i = 42 To 41 + [Liste_section].ListCount
b = "Texte" & i '"on obtient le mot " texte 42" par exemple, il faur aller jusqu'à la 50
a = DSum("[TEMETAP]", "[choix de cellule]", " [SECTIO] =b.textbox")
'a_2 = DSum("[TEMETAP]", "[choix de cellule]", " [SECTIO] =[Texte43].Value")'ceci fonctionne
MsgBox (a)
Next i
je cherche à effectuer des sommes de données présentes dans une requête.Cette requête peut etre modifiée à tout moment par un clic de l utilisateur dans les liste déroulantes de mon formulaire.
Ici j ai un probleme de concatenation je pense.J ai besoin d' une boucle parce qu il n'y a pas toujours le même nombre de domaine.
voici le code actuel:
'calcul des totaux d'heures par section( on a au maximum 9 section donc 9 calculs)
For i = 42 To 41 + [Liste_section].ListCount
b = "Texte" & i '"on obtient le mot " texte 42" par exemple, il faur aller jusqu'à la 50
a = DSum("[TEMETAP]", "[choix de cellule]", " [SECTIO] =b.textbox")
'a_2 = DSum("[TEMETAP]", "[choix de cellule]", " [SECTIO] =[Texte43].Value")'ceci fonctionne
MsgBox (a)
Next i
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
rebonjour
peut etre que je n ai pas bien expliquez mon probleme mais il s' agit je pense d' une erreur de syntaxe ou de déclaration.
pour les syntaxe j' en ai essayé bcp mais je ne les ai pas listée
pour les déclarations, j ai essayé string et textbox pour b mais çà ne fonctionne pas non plus.
Merci d' avance pour votre aide -
bonjour,
b est une variable texte qui change à chaque tour de boucle
essaie ces deux syntaxes
a = DSum("[TEMETAP]", "[choix de cellule]", "[SECTIO] = '" & b & "'")
a = DSum("[TEMETAP]", "[choix de cellule]", "[SECTIO] = " & b )
A+. -
la deuxième syntaxe a fonctionné, merci
je ne savait pas si la syntaxe allait fonctionné ou si j allais devoir trouver une autre maniere de les afficher. -
