Discussion :

[kmarcel]

SVP,j'ai un formulaire ayant comme source de données une table.J'ai aussi prévu une zone de texte sur ce même formulaire pour afficher la valeur d'un champ de l'enregistrement précédent.
Avez-vous une idée?
Merci d'avance

[Heureux-oli]

Ce serait peut-être plus facile si tu nous donnais le motif pour lequel tu veux obtenir l'enregistrement précédent.

[Invité]

Bonjour

De plus dans une table il n'y a pas d'ordre, il faudrait savoir quel est ton critère qui dit que c'est l'enregistrement précédent.

J'ai une petite idée, mais il faut plus de détails.

Starec

[Heureux-oli]

Bonjour

De plus dans une table il n'y a pas d'ordre, il faudrait savoir quel est ton critère qui dit que c'est l'enregistrement précédent.

J'ai une petite idée, mais il faut plus de détails.

Starec

On doit avoir la même je pense.

[Invité]

On doit avoir la même je pense.

T'es sûr, car avec un critére adéquate, je pense aux fonctions de domaines.

Starec

[Heureux-oli]

Oui.

Et on peut aussi le faire avec du DAO.

[kmarcel]

Bonjour et merci à vous tous.
Pour être plus concret je vous explique le principe:

J’ai une table (POINT_VENTE) avec des champs : numPoint, datePoint, totalPoint, montantVersé, soldePoint.
Dans cette table on enregistre les points des ventes de produits à la fin de chaque journée.

Ensuite, j’ai un formulaire (FrmVENTE) qui a pour source de donnée la table POINT_VENTE.

Ainsi, je peux parcourir les enregistrements et même en ajouter. Sur le
formulaire, j’ai prévu une zone de texte (Ancien_solde) qui affiche le soldePoint de l’enregistrement précédent.

Le contrôle soldePoint a pour libellé ‘‘Nouveau_solde’’. Ce dernier est calculé, au moment de l’ajout, par la formule
Nouveau_solde = totalPoint – montantVersé + Ancien_solde.

En somme, surtout au moment d’un nouvel enregistrement, la zone de texte Ancien_solde affiche le soldePoint de l’enregistrement précédent et le soldePoint courant est calculé avec la formule ci-dessus.

J’espère que j’ai été compréhensible, merci infiniment.

[kmarcel]

Salut
Je crois que j'ai presque trouvé ce que je cherchais.
J'ai créé une zone de liste déroulante (listePoint) qui affiche la liste de tous les points des ventes enrégistrés dans la table POINT_VENTE et un bouton (btnRechercher) qui permet de se positionner sur l'enregistrement choisi dans listePoint.
Dans l'évènement sur_clic de btnRechercher j'ai le code:

Code :

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

1
2
3
4
Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[numeroPoint] = " & Str(Nz(Me![listePoint], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

A suite j'ai mis ces lignes de code que je cherchais:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim rss As Recordset
Dim lg As Long
Set rss = CurrentDb.OpenRecordset("POINT_VENTE")
 
If  rss.RecordCount > 0 Then
 
rss.MoveFirst
While (rss("numeroPoint") < Me.numeroPoint) And Not rss.EOF
 lg = rss("numeroPoint")
 rss.MoveNext
Wend
 
If lg > 1 Then
  Me.Ancien_solde = DLookup("soldePoint", "POINT_VENTE", "numeroPoint = " & Str(lg))
Else
  Me.Ancien_solde = 0
End If
 
End If
 
Me.Nouveau_solde = Nz(Me.totalPoint, 0) + Nz(Me.Ancien_solde , 0) - Nz(Me.MontantVersé, 0)
 
DoCmd.Requery ("Me.Nouveau_solde")
Set rss = Nothing

J'ai essayé de mettre ce code dans l'évènement sur_activation du formulaire afin d'utiliser des boutons de commande pour parcourir les enregistrements, mais le code ne s'exécute pas normalement quand je me déplace comme pour le bouton btnRechercher.Peut-être que je me trompe d'évènement, qu'en pensez-vous?