OVH Cloud OVH Cloud

CALCUL DANS UN FORMULAIRE CONTINU

1 réponse
Avatar
sergegras
Dans un programme personnel de suivi des comptes sur ACCESS 97,
Mon formulaire renvois les données d'une table HISTOMOUV
avec un index numérique NUMINDEX.
Dans chaque enregistrement, le champ MONTANT est une somme du
type +25.00 ou -30.00.
Avec le code suivant, je peux mettre à jour une zone texte avec
le crédit suite au mouvement.

Private Sub CalculCredit()
Dim cred As Double
Dim numro As Integer
numro = Me!TxtNUMINDEX
cred = DSum("MONTANT", "HISTOMOUV", "[NUMINDEX] <=" & numro)
Me!TxtCREDIT = cred
End Sub

Quelqu'un pourrait-il m'indiquer une combine pour que ce calcul
soit fait pour chaque enregistrement avec un affichage en continu.
Merci d'avance!

1 réponse

Avatar
3stone
Bonjour aussi,

"sergegras"
Dans un programme personnel de suivi des comptes sur ACCESS 97,
Mon formulaire renvois les données d'une table HISTOMOUV
avec un index numérique NUMINDEX.
Dans chaque enregistrement, le champ MONTANT est une somme du
type +25.00 ou -30.00.
Avec le code suivant, je peux mettre à jour une zone texte avec
le crédit suite au mouvement.

Private Sub CalculCredit()
Dim cred As Double
Dim numro As Integer
numro = Me!TxtNUMINDEX
cred = DSum("MONTANT", "HISTOMOUV", "[NUMINDEX] <=" & numro)
Me!TxtCREDIT = cred
End Sub

Quelqu'un pourrait-il m'indiquer une combine pour que ce calcul
soit fait pour chaque enregistrement avec un affichage en continu.



Crée un champ calculé dans une requête...
requête qui sera la source d'un formulaire en mode continu.

Cred: DSum("Montant";"HistoMouv";"NumIndex <= " & NumRo )

en admettant que NumRo soit un champ de la requête...


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------