Discussion :

[iliesss]

Bonjour

Svp je souhaite convertir cette expression vba en fonction Access pour la mettre dans la propriété source control d'une zone de teste

Code :

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

DSum("[Credit]", "GrandLivre", "[Compte] = " & Forms![Achat]![Texte14] & " AND [Periode] = '" & Forms![Achat]![Texte0] & "'")

j'ai essayé avec cette expression mais sa marche

=SomDom("[Credit]";"GrandLivre";"[Compte]=[texte14] and [Peirode]=[texte0]")

et ça
=SomDom("[Credit]";"GrandLivre";"[Compte] = '" & [Formulaires]![Achat]![Texte14] & "'" & " AND [Periode] = '" & [Formulaires]![Achat]![Texte0] & "'")

j'ai essayé avec plusieurs possibilité mais toujours ca marche pas toujour cette affiche #Erreur
Svp quelle est la juste expression


Merci

[hyperion13]

Salut

Code :

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

=SomDom("[Credit]";"GrandLivre";"[Compte] = '" & [Formulaires]![Achat]![Texte14] & "' AND [Periode] = '" & [Formulaires]![Achat]![Texte0] & "'")

[iliesss]

Bonjour Mr hyperion

Merci pour votre réponse mais la zone de texte affiche #Erreur

j'ai essayé cette expression

Code :

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

=SomDom("[Credit]";"GrandLivre";"[Compte]=[Formulaires]![Achat]![texte14] AND [Periode]= [Formulaires]![Achat]![texte0]")

ça marche très bien mais je doit appuyer sur la touche actualiser tous pour obtenir le résultat
svp comment éviter ce nouveau problème.

merci

[tee_grandbois]

bonjour,

si la zone de texte se trouve dans le formulaire Achat, il est inutile d'en préciser le nom :

Code :

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

=DSum("[Credit]", "GrandLivre", "[Compte] =" & [Texte14] & " AND [Periode] ='" & [Texte0] & "'")

sinon, le laisser dans le cas contraire.

La syntaxe d'hyperion13 est correcte pour un autre formulaire pour autant que les types de données sont bien respectés:
si [Compte] est de type texte, il faut des apostrophes autour de [Texte14]:

Code :

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

=DSum("[Credit]", "GrandLivre", "[Compte] ='" & [Texte14] & "' AND [Periode] ='" & [Texte0] & "'")

sinon laisser tel quel, pareil pour [Periode]: si le type est numérique, il faut les enlever autour de [Texte0], sinon les laisser:

Code :

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

=DSum("[Credit]", "GrandLivre", "[Compte] ='" & [Texte14] & "' AND [Periode] =" & [Texte0] )

[iliesss]

J'ai appris des nouvelles informations grâce à vos réponses et les explications fournies par vous.

Merci Beaucoup Mr hyperion
Merci Beaucoup Mr tee_grandbois