Discussion :

[soad029]

Bonjour tout le monde !

Voilà, j'ai un formulaire qui doit normalement permettre de mettre à jour des données dans une table de ma base Access, mais seulement voilà, j'ai le message suivant lorsque je clic sur le bouton de mon formulaire pour mettre à jour :

Code :

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

1
2
 
Erreur d'exécution '3027' Mise à jour impossible. La base de données ou l'objet est en lecture seule

Pourtant j'ai déjà réussi avec une autre méthode de mettre à jour ma table (mais j'avais un autre message d'erreur...)

Voici mon 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
21
22
23
 
 ssRequete = "SELECT [idMagasin], [dateSortieMag] FROM [ReqJohann] WHERE [IdAfilliéGROUPEMENT] = '" & [Texte94] & "'"
 
'ssRequete = "SELECT idMagasin, DateSortieMag, IdAfilliéGROUPEMENT FROM PB_Affiliés INNER JOIN [PB-Magasins] ON PB_Affiliés.Numéro = [PB-Magasins].Affilié WHERE (((PB_Affiliés.IdAfilliéGROUPEMENT)='" & [Texte94] & "'))"
 
 
         Set maBase = CurrentDb
         Set monRecordset = maBase.OpenRecordset(ssRequete)
 
 
              With monRecordset
             .MoveLast ' Remplit l'objet Recordset.
             .MoveFirst
 
                 Do While Not .EOF 'puis parcours les enregistrement
 
                      monRecordset.Edit
                      monRecordset![dateSortieMag] = [Date de sortie]
                      monRecordset.Update
                     .MoveNext
                 Loop
 
         End With

Si quelqu'un voit d'où cela peut venir car là je suis tout perdu dans un océan d'incompréhension le plus total.

Merci d'avance et bonne fin de semaine.

[jean-paul lepetit]

Salut,

Il me semble qu'on ne peut pas faire de mise à jour sur un recordset qui est issu d'une requête sur plusieurs table....

[vodiem]

si je ne me trompe:
tu as ouvert une table par le formulaire
tu fais des modifications dessus
tu veux enregistrer ces modifications par recordset
t'as un erreur à ce moment

cela vient surement du fait que lorsque tu édites dans ton formulaire la table est vérrouillé, le temps de faire les modications, hors a ce moment toi tu la réouvre une seconde fois par recordset pour y inscrire des données mais tu oublie que la table est déjà verrouillée en modif pour le form.

met plutot:
[dateSortieMag] = [Date de sortie]
dans un événement du form genre 'Avant MAJ'
pour sauvegarder l'enregistrement (ton bouton)

Code :

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

DoCmd.RunCommand acCmdSaveRecord

[soad029]

Bonjour et merci de vos réponses.

J'ai trouvé une autre méthode finalement :

Code :

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

 DoCmd.RunSQL "UPDATE [PB-Magasins] set [dateSortieMag] = '" & [Date de sortie] & "' where idMagasin = '" & resu & "'"

Bonne fin de journée.