Bonjour je remercie ceux qui m'aideront avant toute chose... je suis sur un problème simple... Je suis dans un module VBA sur Access XP. Je veux ouvrir un recordset et récupérer le premier enregistrement...
 
J'ai ce code là :
 
[]Dim dbMaBase As Database  
Dim rsMonRecordSet As Recordset  
Dim strCheminBase As String  
Dim chSQL As String  
 
Set dbMaBase = CurrentDb
 
chSQL = "SELECT * FROM MA_TABLE"  
Set rsMonRecordSet = dbMaBase.OpenRecordset(chSQL)  
Do While Not rsMonRecordSet.EOF  
   MsgBox (rsMonRecordSet!mon_champ)  
   rsMonRecordSet.Next  
Loop    [/]
 
mais il ne marceh pas ! Access ne reconnait pas le :
 
Dim mabase as database...
 
 
Merci de votre aide

SVP ! !  Y a personne qui sait faire un recordset sous Access????

Faut que tu rajoute les references necessaires dans Access

? C'est à dire? merci de m'aider

tu va dans tools/references et tu selectionne "Microsoft DAO 3.6 Object Library" jsuis pas sur que ce soit celle la quil te faut

Aprés avoir rajouté la référence "Microsoft DAO 3.6 Object Library", t'auras peut être aussi besoin de déclarer tes variables database et recordset comme ça :
Dim db as DAO.database
Dim rst as DAO.recordset
Tu peux aussi te passer de déclarer ta variable database en faisant directement :
Set rst=currentdb.openrecordset(SQL)

 
A mon avis il est plus économe en terme de mémoire de passer le currentdb dans une variable database, si elle peut resservir quelque part ce sera déjà ça d'économisé, je pense qu'il avait raison - le peu que j'ai vu d'Access en mode Debug m'a dégoûté d'utiliser Currentdb trop souvent, il ne libère pas facilement sa mémoire ct'engin.