Discussion :

[forzaxelah]

Bonjour,
J'ai un léger souci sur un appel à MAJ via DAO.
Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Set db = CurrentDb
Set rst = db.OpenRecordset("T SAISIE DES RAPPORTS LOCAUX", dbOpenTable)
rst.Edit
rst.Fields("ANOMALIE_1") = Me.Texte148.Value
rst.Fields("ORIGINE DU PROBLEME") = Me.ORIGINE.Value
rst.Fields("CONSEQUENCE") = Me.Texte150.Value
rst.Fields("TYPE_APPLICATION") = Me.TYPE_APPLI.Value
rst.Fields("SERVICE") = Me.CELLULE.Value
rst.Fields("RESPONSABLE") = Me.RESPONSABLE.Value
rst.Fields("CORRESPONDANTS ASSOCIES") = Me.CORR_ASSO.Value
rst.Fields("FONCTION") = Me.FONCTION.Value
rst.Fields("ORGANE_1") = Me.ORGANE_1.Value
rst.Fields("DATE DE CREATION") = Me.DATECREATION.Value
rst.Fields("SECURITE") = Me.Cocher224.Value
rst.Fields("REGULARITE") = Me.Cocher216.Value
rst.Fields("DISPO") = Me.Cocher220.Value
rst.Fields("COUT") = Me.Cocher222.Value
rst.Fields("CONFORT") = Me.Cocher272.Value
rst.Update

L'erreur s'affiche sur:

Code :

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

 Set rst = db.OpenRecordset("T SAISIE DES RAPPORTS LOCAUX", dbOpenTable)

En fait, cette version marche pour des ajouts (je fais appel à append au lieu d'Edit dans ce cas là).

Mais là Erreur 3219, opération non valide.

Me serais je fourvoyé dans les types, options de mon recordset?

Ou bien serait il judicieux d'utiliser un "UPDATE"?

Merci pour l'aide

[LedZeppII]

Bonsoir,

Si "T SAISIE DES RAPPORTS LOCAUX" est une table liée, remplace dbOpenTable par dbOpenDynaset.

A+