Operation avec un champ sur deux enregistrements
SupTOny2000
Messages postés
13
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
15 mai 2003
-
20 déc. 2001 à 17:11
SupTOny2000 Messages postés 13 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 15 mai 2003 - 21 déc. 2001 à 11:35
SupTOny2000 Messages postés 13 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 15 mai 2003 - 21 déc. 2001 à 11:35
A voir également:
- Operation avec un champ sur deux enregistrements
- Socket operation on non-socket ✓ - Forum C
- Ephéméride entre deux dates - Forum Java
- Calcul de Durée entre deux Dates - Forum Visual Basic 6
- Ajouter un champ dans une table sql ✓ - Forum ASP / ASP.NET
- Ajout de champs dans une table de sql server - Forum VB.NET
2 réponses
SupTOny2000
Messages postés
13
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
15 mai 2003
21 déc. 2001 à 09:11
21 déc. 2001 à 09:11
Youpi !!!!!
J'ai la réponse, mais c'est pas encore ça :( !!!
Bref, voilà où j'en suis :
Public Function CalculKmEntre2() As Double
Dim rec As Recordset
Dim tmp As Double
Set rec = CurrentDb().openrecordset("SELECT * FROM PLEIN WHERE N_Vehicule=[N_Vehicule] ORDER BY PLEIN.[date plein] DESC")
tmp = rec("Kilometrage")
rec.MoveNext
kmparcourus = tmp - rec("Kilometrage")
rec.Close
End Function
Mais ça march po :( !!
Y'm'dit, c'salo, incomptabilité de type !
Sacrénomd'diou, va !
Beul@+
SupTOny
J'ai la réponse, mais c'est pas encore ça :( !!!
Bref, voilà où j'en suis :
Public Function CalculKmEntre2() As Double
Dim rec As Recordset
Dim tmp As Double
Set rec = CurrentDb().openrecordset("SELECT * FROM PLEIN WHERE N_Vehicule=[N_Vehicule] ORDER BY PLEIN.[date plein] DESC")
tmp = rec("Kilometrage")
rec.MoveNext
kmparcourus = tmp - rec("Kilometrage")
rec.Close
End Function
Mais ça march po :( !!
Y'm'dit, c'salo, incomptabilité de type !
Sacrénomd'diou, va !
Beul@+
SupTOny
SupTOny2000
Messages postés
13
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
15 mai 2003
21 déc. 2001 à 11:35
21 déc. 2001 à 11:35
Et bé !
J'y suis presque... plus d'bug !
mais il me donne qu'une valeur pour tout mes enregistrement, j'vous montre :
Dim rst As Object
Dim tmp As Integer
Set rst = Me.Recordset
tmp = rst("Kilometrage")
rst.MoveNext
TmpEntre2 = rst("Kilometrage") - tmp
rst.Close
Et donc, y'm'soustrait bien, mais juste mon premier enregitrement et mon deuxième... et me répète cette valeur pour tous... 'faudrait qu'j'y colle une boucle, mais là, j'y arrive po !
Help me, l'avenir de ma douce cheveulure en dépent
Bien@vous
SupTOny
J'y suis presque... plus d'bug !
mais il me donne qu'une valeur pour tout mes enregistrement, j'vous montre :
Dim rst As Object
Dim tmp As Integer
Set rst = Me.Recordset
tmp = rst("Kilometrage")
rst.MoveNext
TmpEntre2 = rst("Kilometrage") - tmp
rst.Close
Et donc, y'm'soustrait bien, mais juste mon premier enregitrement et mon deuxième... et me répète cette valeur pour tous... 'faudrait qu'j'y colle une boucle, mais là, j'y arrive po !
Help me, l'avenir de ma douce cheveulure en dépent
Bien@vous
SupTOny
