Discussion :

[Marcello5255]

Bonjour à tous,

Quel code écrire pour récupérer la valeur d'un champ du dernier enregistrement.

Plus précis:

J'ai un formulaire basé sur la table "tblFin" avec les champs:

DateFin
NumExtrait
Solde

Je voudrais que sur l'événement DateFinBeforeUpdate, s'affichent dans les champs "NmExtrait" et "Solde", les valeurs du dernier enregistrement.

Merci pour votre aide.

[tee_grandbois]

Bonsoir,
Voici une fonction qui permet de récupérer la valeur des champs du dernier enregistrement de n'importe quelle table :

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
Function RecupDernierChamp(pTbl As String, pChp As Integer) As Variant
' Récupération des valeurs des champs du dernier enregistrement d'une table
' paramètres  : pTbl = nom de la table
'             : pChp = index du champ
 
 Dim oRs As Recordset
 
 Set oRs = CurrentDb.OpenRecordset("select * from " & pTbl, dbOpenSnapshot)
 
    If Not (oRs.EOF) Then
    oRs.MoveLast
        If pChp < oRs.Fields.Count Then
            RecupDernierChamp = oRs.Fields(pChp).Value
        End If
 
    End If
 
End Function

et tu l'utilises comme ceci :

Code :

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

1
2
NumExtrait = RecupDernierChamp("tblFin",1)
Solde = RecupDernierChamp("tblFin",2)

[Invité]

Bonjour

Il faudrait préciser si le dernier enregistrements est par rapport à une date, un NumAuto, etc..

En effet, le code proposé n'est pas valable si avant je change l'ordre de tri de la table, donc une un Order By serait un plus dans la requête.

Philippe

[Marcello5255]

Merci pour vos réponses.

C'est vrai que "dernier" n'était pas assez précis. Les enregistrements sont triés par date. La table contient cependant aussi bien les enregistrements du financier banque (01) que ceux du financier caisse (07).

Il faudrait donc que les valeurs soient récupérées en fonction du financier choisi.

Merci pour vos aides précieuses.

[Marcello5255]

Bonjour tee_granbois,

C'est bon ton code. J'ai un peu fouillé pour comprendre les grandes lignes (chacun son niveau), et voici comment je l'ai inséré dans mon application.

1. Je n'ai pas besoin de remplir les champs lorsqu'il s'agit d'un financier banque, mais seulement pour le financier caisse.

J'ai donc créé une requête avec le numéro du financier caisse comme critère pour le premier paramêtre de la fonction.

2. Je pense qu'une requête, c'est bien mieux qu'une table parce que en réalité, dans ma table j'ai une douzaine de champs, et si j'en intercale un, lorsque je voudrai attribuer la valeur du champ 2, ça risque quand même de déraper.

Si je voulais donner les dernières valeurs pour deux financiers différents, je pourrais écrire deux fonctions, et avec une instruction "If" choisir le résultat de l'une ou de l'autre suivant le financier dans lequel je travaille.

Si j'ai écrit l'une ou l'autre ineptie, n'hésite pas à le signaler.

En tout cas, j'ai ce que je souhaitais, je t'en remercie, ainsi que Philippe qui a attiré notre attention sur la précision.