OVH Cloud OVH Cloud

Error 3027

10 réponses
Avatar
Lyonel L
Bonjour,

J'ai essayé dans un de mes formulaires la fonction Append2Table telle que
fournie par Allen Browne
(http://members.iinet.net.au/~allenbrowne/tips.html). J'ai suivi les
indications de l'auteur et sauvé la fonction dans un module. Autre message
me disant que VBA attendait une variable ou une procédure et non un module.
J'ai alors sauvé la fonction comme indiqué pour obtenir une réponse. Mais
là, je reçois systématiquement le message d'erreur "Error 3027: Cannot
update. Database or object is read only."
J'utilise Access 2003, mais ma base est au format 2000.
Pouvez-vous m'aider à trouver une solution?

10 réponses

Avatar
Raymond [mvp]
Bonjour.

Pourquoi ne pas demander d'abord au créateur de la fonction ? il sera le
mieux placé pour te répondre et immédiatement avec une bonne solution.
Sinon, c'est laquelle dans la quantité de fonctions proposées ?
Address e-mail to:


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Lyonel L" a écrit dans le message de news:

Bonjour,

J'ai essayé dans un de mes formulaires la fonction Append2Table telle que
fournie par Allen Browne
(http://members.iinet.net.au/~allenbrowne/tips.html). J'ai suivi les
indications de l'auteur et sauvé la fonction dans un module. Autre message
me disant que VBA attendait une variable ou une procédure et non un
module.
J'ai alors sauvé la fonction comme indiqué pour obtenir une réponse. Mais
là, je reçois systématiquement le message d'erreur "Error 3027: Cannot
update. Database or object is read only."
J'utilise Access 2003, mais ma base est au format 2000.
Pouvez-vous m'aider à trouver une solution?




Avatar
Lyonel L
Désolé, j'avais oublié : il s'agit du NotInList (Adding values to lookup
tables) Addition de valeur à la table au moyen d'une liste déroulante.
Avatar
Raymond [mvp]
J'ai l'impression que tu as nommé le module du même nom que la fonction ?
non ?
rien dans la fonction ne bloque la table en lecture seule. sur quelle ligne
le message apparaît ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Lyonel L" a écrit dans le message de news:

Désolé, j'avais oublié : il s'agit du NotInList (Adding values to lookup
tables) Addition de valeur à la table au moyen d'une liste déroulante.





Avatar
Lyonel L
Merci de répondre si promptement.
Je n'avais pas inséré la fonction lorsque j'avais sauvé et utilisé le
module. Je l'ai collé dans le code seulement après avoir effacé le module.
Le message d'erreur 3027 apparaît après le message me demandant de confirmer
l'ajout de la nouvelle donnée. Du genre "Voulez-vous ajouter Raymond à
Contact?" Quand je presse OK, je reçois ce message.
Avatar
Raymond [mvp]
je ne vois rien dans la fonction. sur quelle ligne exactement ça se produit?
sur le open le update ? place des points d'arrêts sur les lignes pour suivre
pas à pas.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Lyonel L" a écrit dans le message de news:

Merci de répondre si promptement.
Je n'avais pas inséré la fonction lorsque j'avais sauvé et utilisé le
module. Je l'ai collé dans le code seulement après avoir effacé le module.
Le message d'erreur 3027 apparaît après le message me demandant de
confirmer
l'ajout de la nouvelle donnée. Du genre "Voulez-vous ajouter Raymond à
Contact?" Quand je presse OK, je reçois ce message.




Avatar
Lyonel L
J'ai créé un nouveau formulaire , cette fois au format 2002-2003. Un message
d'erreur 3265, remplace le 3027
Error 3265 : Item not found in this collection
Avatar
Lyonel L
L'erreur se produit sur la ligne
rst(vField) = NewData
Avatar
Raymond [mvp]
ce qui veut dire que tu n'as pas de champ dans la table qui s'appelle de la
valeur contenu dans vField.

vérifie bien quand tu passes dessus si vfield a bien cette valeur.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Lyonel L" a écrit dans le message de news:

J'ai créé un nouveau formulaire , cette fois au format 2002-2003. Un
message
d'erreur 3265, remplace le 3027
Error 3265 : Item not found in this collection




Avatar
Lyonel L
Raymond,
Le formulaire a été généré suivant le modèle automatique à partir de la
table. Le "combo box" a le même nom que le champ dans la table. Mais en fait
pour la ligne rst(vField) = NewData, la valeur renvoyée est "False"
Avatar
Raymond [mvp]
Bon, là, il faut que tu affiches ton appel de fonction et la fonction.
sinon envoie ton formulaire par mail dans une base avec le mini pour que ça
fonctionne.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Lyonel L" a écrit dans le message de news:

Raymond,
Le formulaire a été généré suivant le modèle automatique à partir de la
table. Le "combo box" a le même nom que le champ dans la table. Mais en
fait
pour la ligne rst(vField) = NewData, la valeur renvoyée est "False"