Probleme de code !

Question

Salut, 

Voila le code que j'ai: 

Private Sub Ajouter_bouton_Click()

Dim bd As Database  
  Set bd = CurrentDB()  

varTable As Table  
 Set varTable = bd.OpenTable("TaTable")  

varTable.AddNew  
varTable![Lechamps] = "LesDonnées"  => les données ? KESAKO ?  

varTable.Update  
varTable.Close  
End Sub 

J'obtiens un message d'erreur de compilation sur la première ligne ! (Dim bd As Database) 
Je suis sous access 2000 

Comment faire pour résoudre le probleme ? 

Merci 

Gwendal

L'amour est la victoire de l'imagination sur l'intelligence.

Seb_d_angers · Answer

Est ce que tu a ajouter les référence d'accès aux données (DAO...) ?

*********************************
J'espère t'avoir aider
A+
Seb
http://www.programmez.org

cs_Gdal · Answer

tu veux parler de la source du formulaire ?
toutes mes zones de texte sont indépendante...

Je peux l'envoyer !

Gwendal

Seb_d_angers · Answer

Non, en fait c'est dans le l'editeur de code tu fait Outils --> Références
et tu coches 
Microsoft DAO 3.6 Object Library
--------- ActiveX Data Object Recordset 2.7 Library
--------------------------------- 2.5 Library

Si tu a pas ces outils tu installes MDAC (microsoft data access je crois) que tu trouveras sur le site de microsoft ( ~ 5 Mo)

*********************************
J'espère t'avoir aider
A+
Seb
http://www.programmez.org

cs_Gdal · Answer

Ok merci maintenant sa passe !!
Mais maintenant c'est la ligne: 
varTable As Table 

qui fouar ! 

Merci !

Gwendal
_____________________________
L'amour est la victoire de l'imagination sur l'intelligence.

Seb_d_angers · Answer

Utilise un recordset

Set rs = db.OpenRecordset("nom_de_la_table")

Ou utilise tabledef au lieu de table mais je ne garanti pas le résultat, je sais plus trop.

*********************************
J'espère t'avoir aider
A+
Seb
http://www.programmez.org

Probleme de code !

5 réponses

Discussions similaires