Salut,
 
Voila le code que j'ai:
 
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

il manque pas un truc du style "Private Sub Fonction" au début de ton code ??

non il y est !
les données ??
 
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'ai fait un copier/coller de ton code dans VB6 et il passe sans pb... sans aucune base access...
 
je sais pas ce qui merde chez toi  

 
Déjà la ligne là, elle peut pas marcher.
 
ensuite, si t'as une erreur à la première ligne, c'est qu'il ne sait pas ce qu'est un objet database.
 
dans ton module vba, va dans outils -> references et vérifie que microsoft ado est validé.
 
Par contre l'objet table, je sais pas ou tu l'as piqué...

J'ai eu ma réponse sur un autre forum  
 
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)  
 
Voila au cas ou quelques cherche un jour  
 
Mais maintenant , comme latruffe dis c'est  
varTable As Table  
 
qui fouar !  
 
Merci !!
 
Gwendal

Gwendal a écrit a écrit : J'ai eu ma réponse sur un autre forum     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)     Voila au cas ou quelques cherche un jour     Mais maintenant , comme latruffe dis c'est   varTable As Table     qui fouar !     Merci !!   Gwendal

 
faut mettre  
Dim vartable as table

Sa me gave !  
 
Dim vartable As Table
Erreur => "Type defini par l'utilisateur non défini"  
 
On m'a proposé un autre code !
Voila le code  
Private Sub ajouter_Click()  
Dim bd As Database  
Dim Rec As Recordset  
Set bd = CurrentDb()  
Set Rec = bd.OpenRecordset("Film",db_open_dynaset)  
Rec.AddNew  
Rec![Titre] = "titre_zone"  
Rec.Update  
Rec.Close  
End Sub  
 
 
ajouter => nom du bouton de commande  
Film => nom de la base  
Titre => nom de la colonne qui se trouve dans ma base  
titre_zone => nom du champ présent dans mon formulaire  
 
et bien maintenant sa coince sur  
Set Rec = bd.OpenRecordset("Film",db_open_dynaset)  
 
erreur type incompatible !    
 
au départ de ce topic je cherchais juste un code (simple a comprendre histoire de pas finir con, même si sa en prend la tournure !) qui me permet de remplir les champs d'une table a l'aide d'u bouton de commande ...  
 
Je vous remercie de vos réponse et du temps passé !  
 
   Gwendal  

Ben chez moi ça marche très bien.
 
Réessaye avec :
 
Dim bd As DAO.Database
Dim Rec As DAO.Recordset
Set bd = CurrentDb()
Set Rec = bd.OpenRecordset("film" )
 
ou alors garde juste Microsoft DAO 3.6 Object Library dans tes références.

Voila le code ! il marche !
 
Merci tout le monde !!!!!!
 
 

               
 
   merci du coup de main !    
 
Gwendal