[Débutant VBA] Extraire valeur d'une table

Salut
Resultat = dmax("lechamp","latable")

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Gripoil" <gripoil@alussinan.org> a écrit dans le message de
news:09d701c35b1b$b762dca0$a101280a@phx.gbl...
Bonjour à tous,

quel est le code vba pour se positionner sur le dernier
enregistrement d'une table et renvoyer dans une MsgBox la
valeur d'un champ ?

Merci pour vos réponses.

Salut,

Il y a plein de façon de réaliser cette opération. Voici une version
avec DAO. Si la base utilisée est une version supérieure à Access97 il
faudra ajouter une référence à Microsoft DAO x.x dans l'éditeur VBA (menu
outil-référence) pour que ça fonctionne:

Sub dernierEnregistrement()
Dim objRs As DAO.Recordset

On Error GoTo gereErr
Set objRs = CurrentDb.OpenRecordset("MaTable")
If Not objRs.EOF Then
objRs.MoveLast
MsgBox objRs("MonChamp")
Else
MsgBox "Cette table est vide"
End If
objRs.close
set objRs = Nothing

gereErr:
MsgBox ("Erreur pendant la recherche du dernier enregistrement de la
table MaTable : " & Err.Description)
End Sub

A+

Rv

"Gripoil" <gripoil@alussinan.org> a écrit dans le message de
news:09d701c35b1b$b762dca0$a101280a@phx.gbl...
Bonjour à tous,

quel est le code vba pour se positionner sur le dernier
enregistrement d'une table et renvoyer dans une MsgBox la
valeur d'un champ ?

Merci pour vos réponses.