Discussion :

[marco361020]

Bonjour à tous,

j'ai un petit problème avec une requête que je voudrais mettre à jour par du code. si j'ouvre ma requête, je peux saisir des données sans problème mais si je l'ouvre dans mon code et que je met T.edit, il me dit : erreur 3027 la table ou la bd est en lecture seule.

quelqu'un a t-il une idée d'ou vient le problème? j'ai du oublier quelque chose mais je ne vois pas quoi...

Merci d'avance

Marc

[Invité]

Bonjour

Pourrait-on avoir la requête, le contexte pour ce rendre compte.

Comment exécutes-tu ta requête par du code ?

Il nous manque plein d'informations, c'est comme si tu appelais le garagiste pour lui dire que ta voiture est en panne, sans la lui montrer .

Starec

[marco361020]

c'est pas faux...
voici donc ma requête en SQL :

SQL = " SELECT Rapport_tmp.No_Historique, Rapport_tmp.Hr_debut_reel, Rapport_tmp.Hr_fin, Rapport_tmp.Nb_hres, R_Internet_missions_exceptionnelles.hres_de_jour, R_Internet_missions_exceptionnelles.hres_de_nuit, R_Internet_missions_exceptionnelles.hres_nuit_payees, R_Internet_missions_exceptionnelles.nuit, R_Internet_missions_exceptionnelles.prime_apv_leader, R_Internet_missions_exceptionnelles.ce, Rapport_tmp.commentaires"
'SQL = SQL & " FROM Rapport_tmp INNER JOIN R_Internet_missions_exceptionnelles ON (Rapport_tmp.No_operation = R_Internet_missions_exceptionnelles.No_Operation) AND (Rapport_tmp.No_Historique = R_Internet_missions_exceptionnelles.No_Historique) AND (Rapport_tmp.dt_HE = R_Internet_missions_exceptionnelles.dt_HE) AND (Rapport_tmp.Produit_ = R_Internet_missions_exceptionnelles.Produit)"
SQL = SQL & " WHERE (((Rapport_tmp.Hr_debut_reel) Is Not Null)) OR (((Rapport_tmp.Hr_fin) Is Not Null)) OR (((Rapport_tmp.Nb_hres) Is Not Null)) OR (((Rapport_tmp.commentaires) Is Not Null));"

Set T = CurrentDb.OpenRecordset(SQL)

T.MoveFirst

Do Until T.EOF
T.Edit

j'ai bien essayé avec les options de openrecordset mais sans résultat.

encore merci pour votre aide.

Marc

edit : j'ai réussi en enregistrant la requête et en l'ouvrant avec le type DbOpendynaset ce qui donne :
Set T = CurrentDb.OpenRecordset("R_Internet_import_rapport", dbOpenDynaset)
merci encore.