[ACCESS] VBA
sergeszebe
Messages postés
185
Statut
Membre
-
blux Messages postés 2051 Date d'inscription Statut Modérateur Dernière intervention -
blux Messages postés 2051 Date d'inscription Statut Modérateur Dernière intervention -
Bonjuour!
je voudrais ecrire dans une table à partir d'un formiare .
Tbale: evaluation (nom,prenom,note1,note2)
dans le formlaire les champs sont nommé 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énom") = Me.txtprenom
MaTable("Note1") = Me.txtnote1
MaTable("Note2") = Me.txtnote2
MaTable("Commentaire") = Me.txtcomentaire
MaTable.Update
MaTable.Close
l'erreur est:incompatiblité de type! et quand j'ouvre ma table rien à été ajouter! à l'aide svp!
je voudrais ecrire dans une table à partir d'un formiare .
Tbale: evaluation (nom,prenom,note1,note2)
dans le formlaire les champs sont nommé 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énom") = Me.txtprenom
MaTable("Note1") = Me.txtnote1
MaTable("Note2") = Me.txtnote2
MaTable("Commentaire") = Me.txtcomentaire
MaTable.Update
MaTable.Close
l'erreur est:incompatiblité de type! et quand j'ouvre ma table rien à été ajouter! à l'aide svp!
2 réponses
-
salut
je crois que tu dois vérifier en mode "design" si les types des champs correspondent bien ...
-
Salut,
mets-donc ton DIM ... recordset APRES le PRIVATE SUB...
-
-
Tiens, va voir là :
http://www.commentcamarche.net/forum/affich-1947548-%5BVBA%5DType-incompatible
Ca me disait quelque chose, j'étais déjà intervenu pour un problème de ce type...
-
