Probleme pour lire une base ACCESS

Bilo1000 Messages postés 3 Date d'inscription samedi 28 octobre 2000 Statut Membre Dernière intervention 6 novembre 2007 - 1 août 2002 à 11:46
cs_joflo Messages postés 156 Date d'inscription mardi 9 juillet 2002 Statut Membre Dernière intervention 23 septembre 2011 - 1 août 2002 à 11:59
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
A voir également:

1 réponse

cs_joflo Messages postés 156 Date d'inscription mardi 9 juillet 2002 Statut Membre Dernière intervention 23 septembre 2011
1 août 2002 à 11:59
-------------------------------
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
Rejoignez-nous