Discussion :

[sangoke]

Bonjour à tous,

Dans mon application, j'effectue une requête qui me sélectionne plusieurs enregistrements, je voudrais ensuite modifier un seul champ pour chaque enregistrement mais rien n'y fais j'ai un message d'erreur '3027' qui me dis que la mise à jour est impossible. Ma base ou l'objet est en lecture seule. Il apparaît dès que je veux manipuler une propriété du Recordset

Mon code est le suivant :

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
 
Set base = CurrentDb
Set enreg = base.OpenRecordset("NomDeMaRequete")
 
If enreg.BOF then
    Msgbox("Aucun enregistrement")
Else
    enreg.MoveFirst
    While Not enreg.BOF 
        enreg.edit      'Message d'erreur
        enreg.Fields("NomDuChamp").Value=Date
        enreg.update
        enreg.MoveNext
    Wend
End if

Je précise que ma base est en local et que je sui l'utilisateur exclusif de la base et qu'au moment de l'exécution de ce code, il n'y q'un seul formulaire d'ouvert toutes mes tables sont fermées.

Merci pour votre aide

[f-leb]

Bonjour,

NomDeMaRequete est apparemment une requête. Il se trouve qu'on ne peut pas modifier/ajouter des valeurs à certains types de requêtes (requêtes avec UNION ou GROUP BY), c'est peut-être le cas ici.

[sangoke]

Merci bien pour votre réponse, c'est bien cela qui bloque, du coup j'en ai créé une autre dans le code VBA sans GROUP BY pour effectuer cette opération et ça fonctionne parfaitement