Bonjour.
ta requête est celle-ci:
SELECT TOP 10 col1 FROM champ1 ORDER BY champ_tri DESC;
champ_tri peut être champ1, je ne sais pas, ou la clé primaire ?
tu peux ouvrir cette requête par vba:
Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("SELECT TOP 10 col1 FROM champ1 ORDER BY
champ_tri DESC;")
If Not Rs.EOF Then
Me.ChampInd1 = Me.Rs(0)
Rs.MoveNext
Me.ChampInd2 = Me.Rs(0)
Rs.MoveNext
'...........
Me.ChampInd10 = Me.Rs(0)
Set Rs = Nothing
End If
c'est un exemple simple qu'il faudrait compléter par les tests d'erreur.
je ne comprend pas trop la philosophie du truc mais peux-tu expliquer ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" a écrit dans le message de news:
| bonjour !
|
| une table avec des champs texte : champ1 champ2 et champ3
| comment recuperer dans des champs independant ChampInd1, ChampInd2,
| ChampInd3 etc.. dans un formulaire:
| la valeur du champ1 du dernier enregistrement
| la valeur du champ1 de l'avant-dernier enregistrement
| la valeur du champ1 de l'avant-avant-dernier enregistrement
| etc..sur les 10 derniers enregistrement..
|
| j ai essyé avec une requete qui me renvoit bien par exemple le dernier
| enregistrement mais je n arrive pas à affecter le resultat à un champ
| independant de mon formulaire.
| merci de votre aide.
|
|
Bonjour.
ta requête est celle-ci:
SELECT TOP 10 col1 FROM champ1 ORDER BY champ_tri DESC;
champ_tri peut être champ1, je ne sais pas, ou la clé primaire ?
tu peux ouvrir cette requête par vba:
Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("SELECT TOP 10 col1 FROM champ1 ORDER BY
champ_tri DESC;")
If Not Rs.EOF Then
Me.ChampInd1 = Me.Rs(0)
Rs.MoveNext
Me.ChampInd2 = Me.Rs(0)
Rs.MoveNext
'...........
Me.ChampInd10 = Me.Rs(0)
Set Rs = Nothing
End If
c'est un exemple simple qu'il faudrait compléter par les tests d'erreur.
je ne comprend pas trop la philosophie du truc mais peux-tu expliquer ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" <ruiz@discussions.microsoft.com> a écrit dans le message de news:
19B98A29-BD2B-4AA8-86B2-A9F29E0590D5@microsoft.com...
| bonjour !
|
| une table avec des champs texte : champ1 champ2 et champ3
| comment recuperer dans des champs independant ChampInd1, ChampInd2,
| ChampInd3 etc.. dans un formulaire:
| la valeur du champ1 du dernier enregistrement
| la valeur du champ1 de l'avant-dernier enregistrement
| la valeur du champ1 de l'avant-avant-dernier enregistrement
| etc..sur les 10 derniers enregistrement..
|
| j ai essyé avec une requete qui me renvoit bien par exemple le dernier
| enregistrement mais je n arrive pas à affecter le resultat à un champ
| independant de mon formulaire.
| merci de votre aide.
|
|
Bonjour.
ta requête est celle-ci:
SELECT TOP 10 col1 FROM champ1 ORDER BY champ_tri DESC;
champ_tri peut être champ1, je ne sais pas, ou la clé primaire ?
tu peux ouvrir cette requête par vba:
Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("SELECT TOP 10 col1 FROM champ1 ORDER BY
champ_tri DESC;")
If Not Rs.EOF Then
Me.ChampInd1 = Me.Rs(0)
Rs.MoveNext
Me.ChampInd2 = Me.Rs(0)
Rs.MoveNext
'...........
Me.ChampInd10 = Me.Rs(0)
Set Rs = Nothing
End If
c'est un exemple simple qu'il faudrait compléter par les tests d'erreur.
je ne comprend pas trop la philosophie du truc mais peux-tu expliquer ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" a écrit dans le message de news:
| bonjour !
|
| une table avec des champs texte : champ1 champ2 et champ3
| comment recuperer dans des champs independant ChampInd1, ChampInd2,
| ChampInd3 etc.. dans un formulaire:
| la valeur du champ1 du dernier enregistrement
| la valeur du champ1 de l'avant-dernier enregistrement
| la valeur du champ1 de l'avant-avant-dernier enregistrement
| etc..sur les 10 derniers enregistrement..
|
| j ai essyé avec une requete qui me renvoit bien par exemple le dernier
| enregistrement mais je n arrive pas à affecter le resultat à un champ
| independant de mon formulaire.
| merci de votre aide.
|
|
ça devrait aller.
sauf qu'il faut tester l'erreur de fin de fichier s'il y a moins de 10
enregistrements au départ.
il faut bien trier sur la clé primaire (autonum ?) en ordre desc.
tu places ton code dans l'événement Form_Load.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" a écrit dans le message de news:
| merci de ta réponse.
|
| je vais essayer d etre plus precis..
| j ai une table tkdo avec comme champs idkdo, kdo, Qté, datesaisie
| j ai une table gagnant avec idkdo, nom, prenom etc..
| dans un formulaire,j ai besoin de faire un récap des 10 derniers nouveaux
| kdo saisi dans la base et que cette liste se mette a jour automatiquement
a
| chaque ouverture du formulaire. C'est pour ça que j avais pensé à 10
champs
| independant avec comme valeur par defaut du code VB pour la requete.
| je pourrais apres mettre devant ces champs, des infos comme la qté gagné
et
| à quel jour etc..
|
|
|
|
|
|
| > Bonjour.
| >
| > ta requête est celle-ci:
| > SELECT TOP 10 col1 FROM champ1 ORDER BY champ_tri DESC;
| >
| > champ_tri peut être champ1, je ne sais pas, ou la clé primaire ?
| >
| > tu peux ouvrir cette requête par vba:
| > Dim Rs As DAO.Recordset
| > Set Rs = CurrentDb.OpenRecordset("SELECT TOP 10 col1 FROM champ1 ORDER
BY
| > champ_tri DESC;")
| > If Not Rs.EOF Then
| > Me.ChampInd1 = Me.Rs(0)
| > Rs.MoveNext
| > Me.ChampInd2 = Me.Rs(0)
| > Rs.MoveNext
| > '...........
| > Me.ChampInd10 = Me.Rs(0)
| > Set Rs = Nothing
| > End If
| >
| > c'est un exemple simple qu'il faudrait compléter par les tests d'erreur.
| >
| > je ne comprend pas trop la philosophie du truc mais peux-tu expliquer ?
| >
| > --
| > @+
| > Raymond Access MVP http://OfficeSystem.Access.free.fr/
| > Pour débuter sur le forum: http://www.mpfa.info/
| >
| > Venez découvrir Open XML, le nouveau format de fichier de la suite
Office !
| >
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
| >
| >
| > "ruiz" a écrit dans le message de news:
| >
| > | bonjour !
| > |
| > | une table avec des champs texte : champ1 champ2 et champ3
| > | comment recuperer dans des champs independant ChampInd1, ChampInd2,
| > | ChampInd3 etc.. dans un formulaire:
| > | la valeur du champ1 du dernier enregistrement
| > | la valeur du champ1 de l'avant-dernier enregistrement
| > | la valeur du champ1 de l'avant-avant-dernier enregistrement
| > | etc..sur les 10 derniers enregistrement..
| > |
| > | j ai essyé avec une requete qui me renvoit bien par exemple le dernier
| > | enregistrement mais je n arrive pas à affecter le resultat à un champ
| > | independant de mon formulaire.
| > | merci de votre aide.
| > |
| > |
| >
| >
| >
ça devrait aller.
sauf qu'il faut tester l'erreur de fin de fichier s'il y a moins de 10
enregistrements au départ.
il faut bien trier sur la clé primaire (autonum ?) en ordre desc.
tu places ton code dans l'événement Form_Load.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" <ruiz@discussions.microsoft.com> a écrit dans le message de news:
0C8A54B7-D50C-441D-9D23-C4AAE9882453@microsoft.com...
| merci de ta réponse.
|
| je vais essayer d etre plus precis..
| j ai une table tkdo avec comme champs idkdo, kdo, Qté, datesaisie
| j ai une table gagnant avec idkdo, nom, prenom etc..
| dans un formulaire,j ai besoin de faire un récap des 10 derniers nouveaux
| kdo saisi dans la base et que cette liste se mette a jour automatiquement
a
| chaque ouverture du formulaire. C'est pour ça que j avais pensé à 10
champs
| independant avec comme valeur par defaut du code VB pour la requete.
| je pourrais apres mettre devant ces champs, des infos comme la qté gagné
et
| à quel jour etc..
|
|
|
|
|
|
| > Bonjour.
| >
| > ta requête est celle-ci:
| > SELECT TOP 10 col1 FROM champ1 ORDER BY champ_tri DESC;
| >
| > champ_tri peut être champ1, je ne sais pas, ou la clé primaire ?
| >
| > tu peux ouvrir cette requête par vba:
| > Dim Rs As DAO.Recordset
| > Set Rs = CurrentDb.OpenRecordset("SELECT TOP 10 col1 FROM champ1 ORDER
BY
| > champ_tri DESC;")
| > If Not Rs.EOF Then
| > Me.ChampInd1 = Me.Rs(0)
| > Rs.MoveNext
| > Me.ChampInd2 = Me.Rs(0)
| > Rs.MoveNext
| > '...........
| > Me.ChampInd10 = Me.Rs(0)
| > Set Rs = Nothing
| > End If
| >
| > c'est un exemple simple qu'il faudrait compléter par les tests d'erreur.
| >
| > je ne comprend pas trop la philosophie du truc mais peux-tu expliquer ?
| >
| > --
| > @+
| > Raymond Access MVP http://OfficeSystem.Access.free.fr/
| > Pour débuter sur le forum: http://www.mpfa.info/
| >
| > Venez découvrir Open XML, le nouveau format de fichier de la suite
Office !
| >
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
| >
| >
| > "ruiz" <ruiz@discussions.microsoft.com> a écrit dans le message de news:
| > 19B98A29-BD2B-4AA8-86B2-A9F29E0590D5@microsoft.com...
| > | bonjour !
| > |
| > | une table avec des champs texte : champ1 champ2 et champ3
| > | comment recuperer dans des champs independant ChampInd1, ChampInd2,
| > | ChampInd3 etc.. dans un formulaire:
| > | la valeur du champ1 du dernier enregistrement
| > | la valeur du champ1 de l'avant-dernier enregistrement
| > | la valeur du champ1 de l'avant-avant-dernier enregistrement
| > | etc..sur les 10 derniers enregistrement..
| > |
| > | j ai essyé avec une requete qui me renvoit bien par exemple le dernier
| > | enregistrement mais je n arrive pas à affecter le resultat à un champ
| > | independant de mon formulaire.
| > | merci de votre aide.
| > |
| > |
| >
| >
| >
ça devrait aller.
sauf qu'il faut tester l'erreur de fin de fichier s'il y a moins de 10
enregistrements au départ.
il faut bien trier sur la clé primaire (autonum ?) en ordre desc.
tu places ton code dans l'événement Form_Load.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" a écrit dans le message de news:
| merci de ta réponse.
|
| je vais essayer d etre plus precis..
| j ai une table tkdo avec comme champs idkdo, kdo, Qté, datesaisie
| j ai une table gagnant avec idkdo, nom, prenom etc..
| dans un formulaire,j ai besoin de faire un récap des 10 derniers nouveaux
| kdo saisi dans la base et que cette liste se mette a jour automatiquement
a
| chaque ouverture du formulaire. C'est pour ça que j avais pensé à 10
champs
| independant avec comme valeur par defaut du code VB pour la requete.
| je pourrais apres mettre devant ces champs, des infos comme la qté gagné
et
| à quel jour etc..
|
|
|
|
|
|
| > Bonjour.
| >
| > ta requête est celle-ci:
| > SELECT TOP 10 col1 FROM champ1 ORDER BY champ_tri DESC;
| >
| > champ_tri peut être champ1, je ne sais pas, ou la clé primaire ?
| >
| > tu peux ouvrir cette requête par vba:
| > Dim Rs As DAO.Recordset
| > Set Rs = CurrentDb.OpenRecordset("SELECT TOP 10 col1 FROM champ1 ORDER
BY
| > champ_tri DESC;")
| > If Not Rs.EOF Then
| > Me.ChampInd1 = Me.Rs(0)
| > Rs.MoveNext
| > Me.ChampInd2 = Me.Rs(0)
| > Rs.MoveNext
| > '...........
| > Me.ChampInd10 = Me.Rs(0)
| > Set Rs = Nothing
| > End If
| >
| > c'est un exemple simple qu'il faudrait compléter par les tests d'erreur.
| >
| > je ne comprend pas trop la philosophie du truc mais peux-tu expliquer ?
| >
| > --
| > @+
| > Raymond Access MVP http://OfficeSystem.Access.free.fr/
| > Pour débuter sur le forum: http://www.mpfa.info/
| >
| > Venez découvrir Open XML, le nouveau format de fichier de la suite
Office !
| >
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
| >
| >
| > "ruiz" a écrit dans le message de news:
| >
| > | bonjour !
| > |
| > | une table avec des champs texte : champ1 champ2 et champ3
| > | comment recuperer dans des champs independant ChampInd1, ChampInd2,
| > | ChampInd3 etc.. dans un formulaire:
| > | la valeur du champ1 du dernier enregistrement
| > | la valeur du champ1 de l'avant-dernier enregistrement
| > | la valeur du champ1 de l'avant-avant-dernier enregistrement
| > | etc..sur les 10 derniers enregistrement..
| > |
| > | j ai essyé avec une requete qui me renvoit bien par exemple le dernier
| > | enregistrement mais je n arrive pas à affecter le resultat à un champ
| > | independant de mon formulaire.
| > | merci de votre aide.
| > |
| > |
| >
| >
| >
commence par le DAO avant ADO, ce sera plus simple. la syntaxe n'est pas la
même.
selon mon exemple ça donne quoi ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" a écrit dans le message de news:
| ça marche pas..
| meme en testant ça:
| Dim rs As New ADODB.Recordset
| Set rs = CurrentDb.OpenRecordset("SELECT Last(T_kdo.kdo) FROM T_KDO;")
| Me.kdo1 = rs
|
| j ai une erreur incompatibilité de type..
| j ai aussi changé Dim rs as DAO.Recordset
| par Dim rs as New ADODB.Recordset
|
commence par le DAO avant ADO, ce sera plus simple. la syntaxe n'est pas la
même.
selon mon exemple ça donne quoi ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" <ruiz@discussions.microsoft.com> a écrit dans le message de news:
8BB8E7E4-B0A5-44E6-8C1F-0CE10897A933@microsoft.com...
| ça marche pas..
| meme en testant ça:
| Dim rs As New ADODB.Recordset
| Set rs = CurrentDb.OpenRecordset("SELECT Last(T_kdo.kdo) FROM T_KDO;")
| Me.kdo1 = rs
|
| j ai une erreur incompatibilité de type..
| j ai aussi changé Dim rs as DAO.Recordset
| par Dim rs as New ADODB.Recordset
|
commence par le DAO avant ADO, ce sera plus simple. la syntaxe n'est pas la
même.
selon mon exemple ça donne quoi ?
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" a écrit dans le message de news:
| ça marche pas..
| meme en testant ça:
| Dim rs As New ADODB.Recordset
| Set rs = CurrentDb.OpenRecordset("SELECT Last(T_kdo.kdo) FROM T_KDO;")
| Me.kdo1 = rs
|
| j ai une erreur incompatibilité de type..
| j ai aussi changé Dim rs as DAO.Recordset
| par Dim rs as New ADODB.Recordset
|
oh le mauvais !
remplacer Me.Rs(0) par Rs(0) tout simplement.
mille excuses.
pourquoi col1 kdo FROM ? ce doit être kdo FROM , non ? le col1 était pour
moi dans mon exemple pour indiquer le premier champ.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" a écrit dans le message de news:
| avec ça:
| Dim Rs As DAO.Recordset
| Set Rs = CurrentDb.OpenRecordset("SELECT TOP 3 col1 kdo FROM T_KDO ORDER
BY
| idkdo DESC;")
| If Not Rs.EOF Then
| Me.kdo1 = Me.Rs(0)
| Rs.MoveNext
| Me.kdo2 = Me.Rs(0)
| Rs.MoveNext
| Me.kdo3 = Me.Rs(0)
| Set Rs = Nothing
| End If
|
| ça me retourne cette erreur sur la 1ere ligne
| erreur de compilation...type defini par l'utilisateur non defini..
|
|
|
|
| > commence par le DAO avant ADO, ce sera plus simple. la syntaxe n'est pas
la
| > même.
| > selon mon exemple ça donne quoi ?
| > --
| > @+
| > Raymond Access MVP http://OfficeSystem.Access.free.fr/
| > http://officesystem.access.over-blog.com/
| > Pour débuter sur le forum: http://www.mpfa.info/
| >
| > Venez découvrir Open XML, le nouveau format de fichier de la suite
Office !
| >
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
| >
| >
| > "ruiz" a écrit dans le message de news:
| >
| > | ça marche pas..
| > | meme en testant ça:
| > | Dim rs As New ADODB.Recordset
| > | Set rs = CurrentDb.OpenRecordset("SELECT Last(T_kdo.kdo) FROM T_KDO;")
| > | Me.kdo1 = rs
| > |
| > | j ai une erreur incompatibilité de type..
| > | j ai aussi changé Dim rs as DAO.Recordset
| > | par Dim rs as New ADODB.Recordset
| > |
| >
| >
| >
oh le mauvais !
remplacer Me.Rs(0) par Rs(0) tout simplement.
mille excuses.
pourquoi col1 kdo FROM ? ce doit être kdo FROM , non ? le col1 était pour
moi dans mon exemple pour indiquer le premier champ.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" <ruiz@discussions.microsoft.com> a écrit dans le message de news:
9020D16A-8C91-4CA1-96E9-5315A9D6ACA7@microsoft.com...
| avec ça:
| Dim Rs As DAO.Recordset
| Set Rs = CurrentDb.OpenRecordset("SELECT TOP 3 col1 kdo FROM T_KDO ORDER
BY
| idkdo DESC;")
| If Not Rs.EOF Then
| Me.kdo1 = Me.Rs(0)
| Rs.MoveNext
| Me.kdo2 = Me.Rs(0)
| Rs.MoveNext
| Me.kdo3 = Me.Rs(0)
| Set Rs = Nothing
| End If
|
| ça me retourne cette erreur sur la 1ere ligne
| erreur de compilation...type defini par l'utilisateur non defini..
|
|
|
|
| > commence par le DAO avant ADO, ce sera plus simple. la syntaxe n'est pas
la
| > même.
| > selon mon exemple ça donne quoi ?
| > --
| > @+
| > Raymond Access MVP http://OfficeSystem.Access.free.fr/
| > http://officesystem.access.over-blog.com/
| > Pour débuter sur le forum: http://www.mpfa.info/
| >
| > Venez découvrir Open XML, le nouveau format de fichier de la suite
Office !
| >
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
| >
| >
| > "ruiz" <ruiz@discussions.microsoft.com> a écrit dans le message de news:
| > 8BB8E7E4-B0A5-44E6-8C1F-0CE10897A933@microsoft.com...
| > | ça marche pas..
| > | meme en testant ça:
| > | Dim rs As New ADODB.Recordset
| > | Set rs = CurrentDb.OpenRecordset("SELECT Last(T_kdo.kdo) FROM T_KDO;")
| > | Me.kdo1 = rs
| > |
| > | j ai une erreur incompatibilité de type..
| > | j ai aussi changé Dim rs as DAO.Recordset
| > | par Dim rs as New ADODB.Recordset
| > |
| >
| >
| >
oh le mauvais !
remplacer Me.Rs(0) par Rs(0) tout simplement.
mille excuses.
pourquoi col1 kdo FROM ? ce doit être kdo FROM , non ? le col1 était pour
moi dans mon exemple pour indiquer le premier champ.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" a écrit dans le message de news:
| avec ça:
| Dim Rs As DAO.Recordset
| Set Rs = CurrentDb.OpenRecordset("SELECT TOP 3 col1 kdo FROM T_KDO ORDER
BY
| idkdo DESC;")
| If Not Rs.EOF Then
| Me.kdo1 = Me.Rs(0)
| Rs.MoveNext
| Me.kdo2 = Me.Rs(0)
| Rs.MoveNext
| Me.kdo3 = Me.Rs(0)
| Set Rs = Nothing
| End If
|
| ça me retourne cette erreur sur la 1ere ligne
| erreur de compilation...type defini par l'utilisateur non defini..
|
|
|
|
| > commence par le DAO avant ADO, ce sera plus simple. la syntaxe n'est pas
la
| > même.
| > selon mon exemple ça donne quoi ?
| > --
| > @+
| > Raymond Access MVP http://OfficeSystem.Access.free.fr/
| > http://officesystem.access.over-blog.com/
| > Pour débuter sur le forum: http://www.mpfa.info/
| >
| > Venez découvrir Open XML, le nouveau format de fichier de la suite
Office !
| >
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
| >
| >
| > "ruiz" a écrit dans le message de news:
| >
| > | ça marche pas..
| > | meme en testant ça:
| > | Dim rs As New ADODB.Recordset
| > | Set rs = CurrentDb.OpenRecordset("SELECT Last(T_kdo.kdo) FROM T_KDO;")
| > | Me.kdo1 = rs
| > |
| > | j ai une erreur incompatibilité de type..
| > | j ai aussi changé Dim rs as DAO.Recordset
| > | par Dim rs as New ADODB.Recordset
| > |
| >
| >
| >
il faut cocher la référence dao
faire alt + F11
outils
référence
cocher la ligne : microsoft dao 3.6 object library
bouton ok
recompiler pour vérifier les erreurs.
tester.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" a écrit dans le message de news:
| il ne veut rien savoir sur cette ligne :
| Dim Rs As DAO.Recordset
|
il faut cocher la référence dao
faire alt + F11
outils
référence
cocher la ligne : microsoft dao 3.6 object library
bouton ok
recompiler pour vérifier les erreurs.
tester.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" <ruiz@discussions.microsoft.com> a écrit dans le message de news:
E2E511E2-65E7-4DA8-99E4-97AEAAACBC42@microsoft.com...
| il ne veut rien savoir sur cette ligne :
| Dim Rs As DAO.Recordset
|
il faut cocher la référence dao
faire alt + F11
outils
référence
cocher la ligne : microsoft dao 3.6 object library
bouton ok
recompiler pour vérifier les erreurs.
tester.
--
@+
Raymond Access MVP http://OfficeSystem.Access.free.fr/
http://officesystem.access.over-blog.com/
Pour débuter sur le forum: http://www.mpfa.info/
Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db
"ruiz" a écrit dans le message de news:
| il ne veut rien savoir sur cette ligne :
| Dim Rs As DAO.Recordset
|