Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Erreur'3020' update ou cancelupdate effectué sans appeler addnew ni edit

20/09/13 14:09
Bonjour,
Comme dit le sujet, impossible de trouver la solution.
La fonction fonctionne correctement sous Access XP.

Private Sub Commande37_Click()
Dim rstFact As Recordset, maBD As Database, leNbre As Long
Set maBD = CurrentDb
Set rstFact = maBD.OpenRecordset("Facturation", dbOpenDynaset)
With rstFact
.MoveFirst
.MoveLast
leNbre = !Numfact + 1
.AddNew
!Numfact = leNbre
!Nom = Forms!Clients!Nom 'le formulaire Clients est ouvert
![Date facture] = Date
!NCL = Forms!Clients!NCL
.Update
DoCmd.OpenForm "FacturesExMeCa", acNormal, "", "", acAdd, acNormal
Forms!FacturesExMeCa!Numfact = leNbre 'ici, l'erreur '3020'se produit
Forms!FacturesExMeCa!Nom = rstFact!Nom 'update ou cancel update effectué sans appeler addnew ni edit
End With
End Sub

Donc, je souhaiterais copier le dernier enregistrement de la table sur laquelle est basé le formulaire FacturesExMeCa.
D'avance merci pour vos conseils.smiling smiley

@+

Guy FALESSE
SujetAuteurEnvoyé le

Erreur'3020' update ou cancelupdate effectué sans appeler addnew ni edit

Guy Falesse20/09/13 14:09

Re: Erreur'3020' update ou cancelupdate effectué sans appeler addnew ni edit

Hervé Inisan22/09/13 18:57

Re: Erreur'3020' update ou cancelupdate effectué sans appeler addnew ni edit

Guy Falesse22/09/13 19:47

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter