[AC-2003] Comment atteindre le dernier enregistrement d'un liste

[edonis]

Bonjour à Tous,
Je solicité un petit coup de pousse.
Puis-je mettre dans l'option "Valeur par Défaut" une fonction qui me permette d'atteindre directement le dernier enregistrement ?
Si oui pourvez-vous le donner le fonction ou la syntaxe.

J'ai fais une recherche dans la FAQ sans succès peut-être ai-je loupé la solution.

Merci pour votre aide.

@+

[Jeannot45]

Il me semble que dans les propriétés des champs, il existe un propriété "valeur par défaut". En utilisant cette propriété tu n'as pas besoin d'entrer dans des complications.

Bonne continuation

[paidge]

Je suppose que la liste est basée sur une table ou une requête et que la liste sera amenée à évoluer (si des enregistrements sont ajoutés) et que tu souhaites que, par défaut, ce soit le dernier enregistrement qui soit affiché.
Intéresse-toi alors aux recordset

Le code devrait ressembler quelque chose comme ça :

Code :

1
2
3
4
5
6
 
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("MaTable") ' NB : ou MaRequête
rst.movelast
MaListe.DefaultValue = rst("MonChamp")
Set rst = Nothing

[edonis]

Super merci à vous deux.
pour votre aide je vais voir le problème d'un autre angle.


@+

[paidge]

En relisant ton post, je me suis dit que ma réponse ne correspondait pas tout à fait à ce que tu recherchais. Au cas où ça pourrait t'aider, voilà un exemple :
Si ta liste déroulante est basée sur la table T_employes qui contient les champs "Matricule", "Nom", "Prenom"' et que tu veux que ce soit les noms qui soient listés, crées une fonction du style :

Code :

1
2
3
4
5
6
7
8
9
10
 
Public Function LastRecord(Table As String, Champ As String) As String
 
    Dim rst As Recordset
    Set rst = CurrentDb.OpenRecordset(Table)
    rst.MoveLast
    LastRecord = rst(Champ)
    Set rst = Nothing
 
End Function

Puis, dans l'option "Valeur par Défaut" de ta liste déroulante, tu mets :
LastRecord("T_employes", "Nom")...Après tout dépend de la manière ton appli a été développée Bonne Année !!!