Erreur dans un code VBARésolu

Question

Bonjour! une fois de plus apres une semane quelqu'un pourrait me corriger ce code im mat erreur d'excution 13
incopatibilit&#233; de type. je prgroamme en vba access2002
Private Sub btnvalider_Click()
Dim MaTable As Recordset


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


Booba

econs · Accepted Answer

Salut,



pour ton dernier point :
Me.txtmoyene_Pour_Patient_x.Enabled = False

Manu

jrivet · Answer

salut,

Essaie peu etre

Set MaTable = CurrentDb.OpenRecordset("SELECT * FROM evaluation", DB_OPEN_TABLE)

(vraiment pas sur que ca marche.

Tu utilise le DAO c est ca?

cs_Jack · Answer

Ca sert &#224; quoi qu'on te r&#233;ponde si tu reposes la m&#234;me question le lendemain ?

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)

sergeszebe · Answer

Si je pose la meme question le lendemain c'est parceque je finit par croire que le pr&#233;cedent n'est pas pass&#233; et que personne ne le voit! par consequent,  le probleme demeure pos&#233;.
bon je vais changer de question:
est-ce que tu pourrais m'aider &#224; recuperer une valeur dans un formulaire qui n'est pas le formulaire courant?
je veux dire: dans le formulaire FM_General il ya un champ txtnom qui &#224; la valeur "SERGE" quand on clique sur evaluation pour evaluer serge,le formulaire evaluation s'ouvre et  je voudrai que le champ txtnom2 du formaliare evaluation prenne la valeur qui fut au champ txtnom de FM_Generale .
merci.
tien j'ai un autre soucis.je parviens &#224; calculer une moyenne.je voudrai que des que la moyenne est calcul&#233; et log&#233; dans les case  que le champ devienne non modifiable:
j'ai mis ceci:

Me.txtmoyene_Pour_Patient_x.Visible = False 
mais &#224;a le rend carement invisible je veux qu'il soit visible mais non modifiable.
merci bien


Booba

cs_Jack · Answer

Salut
Ceci devrait suffire &#224; r&#233;cup&#233;rer (ou envoyer) la valeur d'un formulaire a un autre. Suffira de mettre cette ligne dans un bouton, par exemple.
evaluation.txtnom2.Text = FM_General.txtnom.Text

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)

sergeszebe · Answer

salut!
le code ci desous transmis par jack met une eruureur: objet requis
 FM_Evaluation.txtinit.Text=G&#233;n&#233;ral.C_Prat.Text 
je rappelle que mon desir est qu' a l'ouverture du formulaire evaluation, le cahamps txtinit prenne la valeur du champs C_prat du formulaire G&#233;n&#233;ral
merci bien &#224; tous .je suis dans VBA ACESS

Booba

Erreur dans un code VBA

6 réponses

Discussions similaires