Erreur 13:Incompatibilité de type VBA ACESS

Question

Bonjuour!
je voudrais ecrire dans une table &#224; partir d'un formulaire .
Table: evaluation (nom,prenom,note1,note2) 
dans le formlaire les champs sont nomm&#233;  txtnom,txtprenom ...
voila le code que j'ai fait:


Dim MaTable As Recordset
Private Sub btnvalider_Click()
Set MaTable = CurrentDb.OpenRecordset("evaluation", DB_OPEN_TABLE)  ------>C'EST QU'IL MET ERREUR13
MaTable.AddNew
MaTable("Nom") = Me.txtnom
MaTable("Pr&#233;nom") = Me.txtprenom
MaTable("Note1") = Me.txtnote1
MaTable("Note2") = Me.txtnote2
MaTable("Commentaire") = Me.txtcomentaire
MaTable.Update
MaTable.Close
end sub


l'erreur est:incompatiblit&#233; de type! et quand j'ouvre ma table rien &#224; &#233;t&#233; ajouter! &#224; l'aide svp!


Booba

cs_Jack · Answer

Salut
Ce doit &#234;tre DB_OPEN_TABLE qu'il n'aime pas.
La variable VB qui va bien porte le nom  dbOpenTable  sans _
M&#233;rfiance aussi : les noms des tables et des champs doivent respecter la case (min/maj)

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_casy · Answer

Jack &#224; dit : "doivent respecter la casse (min/maj)"

Questions con : 
    CurrentDb est bien d&#233;clar&#233; 'as Database' quelque part dans ton code ?
    Tu as bien fait un Set CurrentDb = bidule.OpenDataBase(...) aussi avant de venir cliquer sur ton bouton ?

<hr size="2" width="100%">

Erreur 13:Incompatibilité de type VBA ACESS

2 réponses

Discussions similaires