Discussion :

[Tintou]

Je ne l'ai pas préciser mais j'ai un bouton avec lequel j'essai de sauver, dans lequel j'ai mis le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DoCmd.RunCommand acCmdSaveRecord

Peut-etre est ce ça qui ne va pas.

[Heureux-oli]

Je ne suis pas un expert et j'ai du mal à comprendre l'objectif des lignes :
rs.AddNew
rs.Fields(1) = "OLI01"
rs.Fields(2) = "Oli02"
rs.Update

Si c'est pour modifier les données, moi je voudrais pouvoir le faire manuellement via le formulaire (en tapant direct dans les textBox) et pas avec du code.

Pour faire les test, il fallait que je mette quelque chose.
rs.Addnew ajout d'un recordset
rs.fields(1) = "oli01" je vais insérer oli01 dans le deuxième champ de la table, le premier étant un num auto
rs.update c'est la mise à jour de mon recordset.

maintenant, tu peux à la place de "Oli01", mettre : me.moncontrole01

[Tintou]

Au moment de l'exécution, on me répond que ce type d'opération (__.addnew), n'est pas possible pour ce type d'objet (listrep)

J'ai vu que tu avais défini ta varaiable en DAO.Recordset, moi c'est juste un recordset, y a-t-il une différence ?

[Tintou]

On vient de me dire que je pouvais essayer avec un runSQL : UPDATE

J'essaie

[Heureux-oli]

Au moment de l'exécution, on me répond que ce type d'opération (__.addnew), n'est pas possible pour ce type d'objet (listrep)

J'ai vu que tu avais défini ta varaiable en DAO.Recordset, moi c'est juste un recordset, y a-t-il une différence ?

Oui, il y a une différence.
Le recordset peut exister en DAO et en ADO.

Pour les recordset, je te conseille un peu de lecture ici

[Tintou]

Comme ça, ça marche, voici le code que j'ai mis sur un boutton "Save" :

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
DoCmd.RunSQL "UPDATE REPORT SET REPORT.ContractID = " & 
Me.ContractName.Column(0) & ", REPORT.CustID = " & 
Me.Customer.Column(0) & ", REPORT.MCmodID = " & Me.MCModel.Column(0) &
 ", REPORT.MC_Serial = '" & Me.MC_Serial & "', REPORT.Robot_Serial = '" & 
Me.RobotSerial & "', REPORT.Mold_Serial1 = '" & Me.Mold1Serial & "', 
REPORT.Mold_Serial2 = '" & Me.Mold2Serial & "', REPORT.MSEID = " & 
Me.MSE.Column(0) & ", REPORT.[Date] = #" & Me.dat & "#, 
REPORT.HourMeterReading = '" & Me.HourMeterReading & "' WHERE 
REPORT.ReportID = " & Form_ReportSearch.Report & ";"

C'est un peu long mais c'est parce que je mets à jour tous mes champs.

En tout cas merci pour vos réponses.