Probleme pour lire une base ACCESS

Signaler
Messages postés
3
Date d'inscription
samedi 28 octobre 2000
Statut
Membre
Dernière intervention
6 novembre 2007
-
Messages postés
156
Date d'inscription
mardi 9 juillet 2002
Statut
Membre
Dernière intervention
23 septembre 2011
-
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

1 réponse

Messages postés
156
Date d'inscription
mardi 9 juillet 2002
Statut
Membre
Dernière intervention
23 septembre 2011

-------------------------------
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
0