Probleme de code !

Probleme de code ! - VB/VBA/VBS - Programmation

Marsh Posté le 23-06-2002 à 21:50:15    

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

Reply

Marsh Posté le 23-06-2002 à 21:50:15   

Reply

Marsh Posté le 23-06-2002 à 22:03:48    

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


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 23-06-2002 à 22:09:42    

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

Reply

Marsh Posté le 23-06-2002 à 22:11:37    

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  :??:


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 23-06-2002 à 23:13:39    

Gwendal a écrit a écrit :

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  




 
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é...

Reply

Marsh Posté le 24-06-2002 à 12:58:44    

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 :hello:

Reply

Marsh Posté le 24-06-2002 à 13:01:30    

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 :hello:  




 
faut mettre  
Dim vartable as table


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 24-06-2002 à 21:04:08    

Sa me gave !  
 
Dim vartable As Table
Erreur => "Type defini par l'utilisateur non défini" :gun:  
 
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 !  :cry:  
 
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  :fou:

Reply

Marsh Posté le 27-06-2002 à 11:51:57    

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.

Reply

Marsh Posté le 27-06-2002 à 13:42:50    

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

Citation :

Private Sub Sauvegarder_bouton_Click()
 
Dim bd As Database
Dim Rec As DAO.Recordset
 
Set bd = CurrentDb()
Set Rec = bd.OpenRecordset("Coordonnées", DB_OPEN_DYNASET)
 
Rec.AddNew
Rec![Nom] = Me![Nom]
Rec![Adresse] = Me![Adresse]
Rec![Tél] = Me![Tél]
Rec![Fax] = Me![Fax]
 
Rec.Update
Rec.Close
End Sub


 :D  :D  :D  :D  :D  :D  :D  
 
 :jap:  merci du coup de main !  :jap:  
 
Gwendal

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed