OVH Cloud OVH Cloud

Soustraction dans un recordset

21 réponses
Avatar
LeSoviet
Je renseigne un champ sur click d'un bouton via un recordset :

Dim rst As DAO.Recordset
Dim db As database
Dim t As String

t =3D Me.ElapsedTime.Value

Set db =3D CurrentDb
Set rst =3D db.OpenRecordset("Table1", dbOpenDynaset)
With rst
.AddNew
.fields("Champ1") =3D t
.Update
End With
rst.Close
Set rst =3D Nothing


J'aimerai sur ce m=EAme click qu'un autre champ (champ2) soit =E9galement
renseign=E9 par la soustraction de l'enregistrement nouvellement cr=E9=E9
(Champ1 avec Max(ID)) et de l'enregistrement pr=E9c=E9dent(Champ1 avec
Max(ID)-1).

Voici la structure de ma table
ID----Champ1-------Champ2
1------213243
2------876746
3------553451
4------876367
5------454546


Merci pour vos conseils

1 réponse

1 2 3
Avatar
Jessy Sempere
Re,
Je te rassure, je vais pas tarder à aller au dodo... ;-)
Et puis le plus important, c'est que notre ami LeSoviet finisse par y
arriver.

--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Eric" a écrit dans le message de news:

Bonsoir Jessy,

Je te laisse la suite sinon chacun va parler de ce que l'autre propose ;-)
.

Bonsoir

Alors pour la façon d'utiliser la fonction avec ses arguments, il te
suffit de faire dans ton instruction où tu mets à jour ton recordset :

.fields("champ2") = fTimeDiff(dlookup("champ1", "Table1", "Id=" &
Me.id-1),t)

Sinon pour ton graphique, effectivement le problème vient de ton format
de texte qui ne peut pas être interprété "simplement" comme une donnée
numérique...
C'est pour ça que je te conseillais dès le départ de stocker la vrai
valeur du timer et non le format texte... Si tu as ces vrai valeurs,
normalement ton graphique fonctionnera.

@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



1 2 3