Dim RsT As Recordset
Set RsT = CurrentDb().OpenRecordset("SELECT TOP 1 TRDV.CodeRDV,
TRDV.Contact, TRDV.DateRdv " & "FROM TRDV " & "ORDER BY TRDV.DateRdv")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
Il faut que tu préfixes par DAO ta déclaration de recordset : Dim RsT as DAO.Recordset car par défaut depuis Access2000, c'est la library ADO qui est chargée. (Penser à charger Microsoft DAO 3.x Object Library dans les références)
Salut,
Pouvez-vous me dire ou est l'erreur, SvP ?
Dim RsT As Recordset Set RsT = CurrentDb().OpenRecordset("SELECT TOP 1 TRDV.CodeRDV, TRDV.Contact, TRDV.DateRdv " & "FROM TRDV " & "ORDER BY TRDV.DateRdv")
Merci.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Il faut que tu préfixes par DAO ta déclaration de recordset :
Dim RsT as DAO.Recordset
car par défaut depuis Access2000, c'est la library ADO qui est chargée.
(Penser à charger Microsoft DAO 3.x Object Library dans les références)
Salut,
Pouvez-vous me dire ou est l'erreur, SvP ?
Dim RsT As Recordset
Set RsT = CurrentDb().OpenRecordset("SELECT TOP 1 TRDV.CodeRDV,
TRDV.Contact, TRDV.DateRdv " & "FROM TRDV " & "ORDER BY TRDV.DateRdv")
Merci.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Il faut que tu préfixes par DAO ta déclaration de recordset : Dim RsT as DAO.Recordset car par défaut depuis Access2000, c'est la library ADO qui est chargée. (Penser à charger Microsoft DAO 3.x Object Library dans les références)
Salut,
Pouvez-vous me dire ou est l'erreur, SvP ?
Dim RsT As Recordset Set RsT = CurrentDb().OpenRecordset("SELECT TOP 1 TRDV.CodeRDV, TRDV.Contact, TRDV.DateRdv " & "FROM TRDV " & "ORDER BY TRDV.DateRdv")
Merci.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Dad
Il faut que tu préfixes par DAO ta déclaration de recordset : Dim RsT as DAO.Recordset car par défaut depuis Access2000, c'est la library ADO qui est chargée. (Penser à charger Microsoft DAO 3.x Object Library dans les références)
Merci Éric pour cette réponse aussi rapide que juste ... Daniel
Il faut que tu préfixes par DAO ta déclaration de recordset :
Dim RsT as DAO.Recordset
car par défaut depuis Access2000, c'est la library ADO qui est chargée.
(Penser à charger Microsoft DAO 3.x Object Library dans les références)
Merci Éric pour cette réponse aussi rapide que juste ...
Daniel
Il faut que tu préfixes par DAO ta déclaration de recordset : Dim RsT as DAO.Recordset car par défaut depuis Access2000, c'est la library ADO qui est chargée. (Penser à charger Microsoft DAO 3.x Object Library dans les références)
Merci Éric pour cette réponse aussi rapide que juste ... Daniel
Jessy Sempere [MVP]
Bonjour
Et je rajouterais juste que tu peux simplifier en écrivant :
Dim RsT As Recordset Set RsT = CurrentDb.OpenRecordset("SELECT TOP 1 CodeRDV, Contact, DateRdv FROM TRDV ORDER BY DateRdv")
Les & ne sont pas utilie...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"Eric" a écrit dans le message de news:
Bonjour,
Il faut que tu préfixes par DAO ta déclaration de recordset : Dim RsT as DAO.Recordset car par défaut depuis Access2000, c'est la library ADO qui est chargée. (Penser à charger Microsoft DAO 3.x Object Library dans les références)
Salut,
Pouvez-vous me dire ou est l'erreur, SvP ?
Dim RsT As Recordset Set RsT = CurrentDb().OpenRecordset("SELECT TOP 1 TRDV.CodeRDV, TRDV.Contact, TRDV.DateRdv " & "FROM TRDV " & "ORDER BY TRDV.DateRdv")
Merci.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour
Et je rajouterais juste que tu peux simplifier en écrivant :
Dim RsT As Recordset
Set RsT = CurrentDb.OpenRecordset("SELECT TOP 1 CodeRDV,
Contact, DateRdv FROM TRDV ORDER BY DateRdv")
Les & ne sont pas utilie...
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
e1AFan1IHHA.1280@TK2MSFTNGP04.phx.gbl...
Bonjour,
Il faut que tu préfixes par DAO ta déclaration de recordset :
Dim RsT as DAO.Recordset
car par défaut depuis Access2000, c'est la library ADO qui est chargée.
(Penser à charger Microsoft DAO 3.x Object Library dans les références)
Salut,
Pouvez-vous me dire ou est l'erreur, SvP ?
Dim RsT As Recordset
Set RsT = CurrentDb().OpenRecordset("SELECT TOP 1 TRDV.CodeRDV,
TRDV.Contact, TRDV.DateRdv " & "FROM TRDV " & "ORDER BY TRDV.DateRdv")
Merci.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Et je rajouterais juste que tu peux simplifier en écrivant :
Dim RsT As Recordset Set RsT = CurrentDb.OpenRecordset("SELECT TOP 1 CodeRDV, Contact, DateRdv FROM TRDV ORDER BY DateRdv")
Les & ne sont pas utilie...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.fr.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"Eric" a écrit dans le message de news:
Bonjour,
Il faut que tu préfixes par DAO ta déclaration de recordset : Dim RsT as DAO.Recordset car par défaut depuis Access2000, c'est la library ADO qui est chargée. (Penser à charger Microsoft DAO 3.x Object Library dans les références)
Salut,
Pouvez-vous me dire ou est l'erreur, SvP ?
Dim RsT As Recordset Set RsT = CurrentDb().OpenRecordset("SELECT TOP 1 TRDV.CodeRDV, TRDV.Contact, TRDV.DateRdv " & "FROM TRDV " & "ORDER BY TRDV.DateRdv")
Merci.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Dad
"Jessy Sempere [MVP]" a écrit dans le message de news: 4587c2ea$
Bonjour
Et je rajouterais juste que tu peux simplifier en écrivant :
Dim RsT As Recordset Set RsT = CurrentDb.OpenRecordset("SELECT TOP 1 CodeRDV, Contact, DateRdv FROM TRDV ORDER BY DateRdv")
Les & ne sont pas utilie...
Exact ! Merci.
"Jessy Sempere [MVP]" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news: 4587c2ea$1@news.sncf.fr...
Bonjour
Et je rajouterais juste que tu peux simplifier en écrivant :
Dim RsT As Recordset
Set RsT = CurrentDb.OpenRecordset("SELECT TOP 1 CodeRDV,
Contact, DateRdv FROM TRDV ORDER BY DateRdv")
