Access: opérations enregist m champ
Gustave
-
Lazarey Messages postés 3239 Date d'inscription Statut Membre Dernière intervention -
Lazarey Messages postés 3239 Date d'inscription Statut Membre Dernière intervention -
Access: Opérations entre 2 enregistrements d'un même champ
Bonjour,
J'ai une table à 3 champs: 1- Point d'arrêt; 2-Heure d'arrivée; 3- Durée de l'arrêt.
J'aimerais bien tapper dans un formulaire les deux premiers champs, tandis que le troisième serait à calculer automatiquement de la manière suivante: Durée d'arrêt(n) = Heure d'arrivée(n+1) -Heure d'arrivée(n). J'ai essayé le code suivant:
Private Sub Commande10_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim debut As Integer
Dim fin As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("Pointdarret")
If Not rs.BOF And Not rs.EOF Then 'There is data
rs.MoveFirst
Do Until rs.EOF = True
debut = rs.Fields("arrivee").Value
rs.MoveNext
fin = rs.Fields("arrivee").Value
rs.Fields("Duree").Value = fin - debut
rs.MovePrevious
rs.MoveNext
Loop
End If
End Sub
Mais vba n'accepte pas rs.Fields("Duree").Value = fin - debut , il y a besoin d'un Edit ou Update, quelque chose que je connais pas. Quelqu'un pourrait gentilment m'aider, SVP? Merci
Gustave
Bonjour,
J'ai une table à 3 champs: 1- Point d'arrêt; 2-Heure d'arrivée; 3- Durée de l'arrêt.
J'aimerais bien tapper dans un formulaire les deux premiers champs, tandis que le troisième serait à calculer automatiquement de la manière suivante: Durée d'arrêt(n) = Heure d'arrivée(n+1) -Heure d'arrivée(n). J'ai essayé le code suivant:
Private Sub Commande10_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim debut As Integer
Dim fin As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("Pointdarret")
If Not rs.BOF And Not rs.EOF Then 'There is data
rs.MoveFirst
Do Until rs.EOF = True
debut = rs.Fields("arrivee").Value
rs.MoveNext
fin = rs.Fields("arrivee").Value
rs.Fields("Duree").Value = fin - debut
rs.MovePrevious
rs.MoveNext
Loop
End If
End Sub
Mais vba n'accepte pas rs.Fields("Duree").Value = fin - debut , il y a besoin d'un Edit ou Update, quelque chose que je connais pas. Quelqu'un pourrait gentilment m'aider, SVP? Merci
Gustave
A voir également:
- Access: opérations enregist m champ
- Acer quick access - Forum Logiciels
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
- Exemple base de données Access de gestion ✓ - Forum Logiciels
- Quick acces ✓ - Forum Windows