Salut
 
Voilà mon problème:
J'ai fais un programme qui ecrit dans une table attaché ODBC AS 400 (sur MS Access XP) et je ne sais pas pourquoi il y a une erreur. normalement je dois récupérer 3 valeurs différentes et là je récupère 3 fois la 1ere valeur donc c'est pas bon.
 
Mon code est bon car j'ai crée une table sur access pour le tester et là ca marche bien. Donc je voudrais savoir si c'est que j'ai de mauvais pilote ou si il faut faire quelque chose de spécial pour écrire sur une table AS400. Ou alors que vous me donniez un code pour exemple.
 
Pour info je vous donne mes lignes d'ouverture des 2 tables attachées:
Set Rs1 = Db1.OpenRecordset("GZCRPDTA_F47121", dbOpenDynaset)
Set Rs2 = Db1.OpenRecordset("GZCRPDTA_F47122", dbOpenDynaset)
J'avais pensé que peut être je ne mettais pas les bonnes options.
 
Alle merci à tous
Ps si je peux mettre mon code quelque part sur ce site dite moi le.

Peux tu mettre la facon d'ouverture de ta base ainsi que les paramètres de connection ?
 
Pour info j'ai trouvé ça  si ça peut eclaircir le PB..
 
verifie bien que DAO est dans tes references  
Outils/References...  
 
 
Dim MaDB As DAO.Database  
Dim rst As DAO.Recordset  
 
Set MaDB = CurrentDb()  
Set rst = MaDB.OpenRecordset("select * from bidon" )  
rst.MoveFirst  
 
    Me.Col1 = rst.Fields(1)  
    Me.Col2 = rst.Fields(2)  
    Me.Col3 = rst.Fields(3)  
    Me.Col4 = rst.Fields(4)  
 
Set rst = Nothing  
Set MaDB = Nothing