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