Probleme pour lire une base ACCESS

Bonjour ,
Pour lire les données d'une base acces , j'utilise le code donné sur ce site :
TEXT1.TEXT=DATA1.RECORDSET.fields("data")
Tout se passe très bien si je met cela dans un command_click .
Par contre , si je le met dans un CALENDAR_CLICK , ca ne marche plus , commande with truc pas definit .
Avez vous une solution a mon petit probleme car la , je suis obligé de passer par un bouton pour lire ma base , et en fait j'aimerais le faire des le form_load .

Bilo100 : Webmaster on HTTP://www.bilo1000.com

-------------------------------
Réponse au message :
-------------------------------

Bonjour ,
Pour lire les données d'une base acces , j'utilise le code donné sur ce site :
TEXT1.TEXT=DATA1.RECORDSET.fields("data")
Tout se passe très bien si je met cela dans un command_click .
Par contre , si je le met dans un CALENDAR_CLICK , ca ne marche plus , commande with truc pas definit .
Avez vous une solution a mon petit probleme car la , je suis obligé de passer par un bouton pour lire ma base , et en fait j'aimerais le faire des le form_load .

Bilo100 : Webmaster on HTTP://www.bilo1000.com


salut

j'utilise cette façon......qui fonctionne

en debut de form apres (option explicite)
et à condition qu'il y ait un DATA sur ta feuille

dim db as database
dim rs as recordset

dans form load ou activate ou un bouton

Set db = OpenDatabase(chemin + "\" + NomDe TaBase+ ".mdb")
Set rs = db.OpenRecordset("Nom de la table", dbOpenDynaset)
Do Until rs.EOF
text1.text = rs.fields(nom du champ)
rs.MoveNext
Loop

bon prog
joflo