Famille de systèmes de gestion de bases de données relationnelles Microsoft conçus pour être faciles à utiliser.
Oui désactiver DAO 3.6
Sinon tu avant d'ouvrir le formulaire facture tu crées l'enregistrement via une requête paramétrée.
Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
Bonjour,
Lorsque j'exécute une fonction comprenant addnew ou edit se terminant pas update dans Access office 2010 j'ai cette erreur '3020' qui me dit que je n'ai pas addnew ou edit.
Cette erreur se produit dans Access office 2010 ou office 2013.
Par contre, cette erreur ne se produit pas dans Access Office XP.
Mystère, aucune des réponses que j'ai pu glaner n'ont été satisfaisantes jusque maintenant.
D'avance merci pour votre aide.
@+
Guy FALESSE
Famille de systèmes de gestion de bases de données relationnelles Microsoft conçus pour être faciles à utiliser.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Oui désactiver DAO 3.6
Sinon tu avant d'ouvrir le formulaire facture tu crées l'enregistrement via une requête paramétrée.
Mince je n'avais pas compris du tout le problème. Du coup s'il est résolu c'est parfait !
Content pour toi.
à bientôt !
Cordialement,
salut loufab,
Non, justement le problème n'est pas résolu, j'ai toujours le même problème d'erreur 3020, alors, si tu avais encore de bonnes idées, ça m' arrangerait bien.:-)
@+
Mince je n'avais pas compris du tout le problème. Du coup s'il est résolu c'est parfait !
Content pour toi.
à bientôt !
Cordialement,
Salut Loufab,
Si on prenait le problème à l'envers.:
Dim rstFact As Recordset, maBD As Database, LeNbre As Long
Set maBD = CurrentDb
Set rstFact = maBD.OpenRecordset("Facturation", dbOpenDynaset)
With rstFact
.MoveFirst
.MoveLast
MsgBox ("") & !Numfact
LeNbre = !Numfact + 1
MsgBox ("") & LeNbre
.AddNew
!Numfact = LeNbre
!Nom = Forms!Clients!Nom
![Date facture] = Date
!NCL = Forms!Clients!NCL
.Update
End with
Ici, on a le nouveau n° numFact sans problème.
Le problème est d'ouvrir le formulaire basé sur la table facturation et y copier le dernier enregistrement de la table et c'est là le nœud du problème.
Il faut nécessairement un recordset pour y mettre addnew et update.
@+