erreur exécution '3020' dans Access office 2010

Salut Loufab,

Je viens de t'envoyer un message avec la solution que j'ai trouvée grâce aux directives de Lilo51 de développez.com

Bon, comme tu n'as pas pu provoquer ce phénomène, en attendant, je vais faire avec la nouvelle fonction.

Mais, je prends bonne note de toutes tes remarques.

Comment puis-je trouver les ocx, comme ça, je travaille sur la copie que j'avais faite avant de décompiler.

Voir si c'est bien cela qui provoque ce dysfonctionnement.

Encore merci :-)

@+

Ok bien reçu et testé.

1. Le fenêtrage centré

Pour le fenêtrage c'est Menu Fichier/Options/Base de données active/Options de la fenêtre Document/ Fenêtres superposées.

Puis OK.

Tu sors de l'appli puis tu rouvre. Il n'y a rien d'autre à faire.

2. Le problème qui nous occupe.

La seule chose qu'il m'a été nécessaire de faire c'est d'enlever le contrôle OCX date, que je n'ai pas sur ma VM. Sinon tout fonctionne parfaitement et impossible de reproduire ce bug.

• Soit c'est lié à l'ocx et dans ce cas un test rapide consiste à supprimer le champ Date Facture.
• Soit c'est un problème général à la machine (cohabitation 2003/2010, dll foireuses ?). C'est pour cela que les VM sont de plus en plus nécessaires vu le nombre pléthorique de versions d'OS. 

De toute façon je te conseille de ne plus bosser avec des OCX, c'est une source de problème (avec Windows 8 notamment). Surtout que le plug-in calendrier est déjà disponible en version 2010 pour les champs au format date.

Cordialement,

Salut Loufab,

Merci pour ton dévouement, le mot n'est pas trop fort.

J'ai finalement trouvé le code à faire grâce aussi à Lilo51 du club.

Voici le code:

 Dim rst As Recordset, maBD As Database, leNbre As Long, stLinkCriteria

    Set maBD = CurrentDb

    Set rst = maBD.OpenRecordset("facturation", dbOpenDynaset)

        With rst

          .MoveLast

            leNbre = !Numfact

           .AddNew

           !Numfact = leNbre + 1

           leNbre = rst!Numfact

           ![Date facture] = Date

         .Update

         .Close

       End With

    stLinkCriteria = "NumFact =" & leNbre

    DoCmd.OpenForm "FacturesExMeCa", acNormal, , stLinkCriteria, acFormEdit

    Forms!FacturesExMeCa!Numfact = leNbre

    Forms!FacturesExMeCa!NCL = Forms!Clients!NCL

    Forms!FacturesExMeCa!TF = "FME"

    Forms!FacturesExMeCa!NfactLettre = "FME" & leNbre

 End Function

@+

Je te propose de m'envoyer un MP sur mon compte Développez.com, mon pseudo est le même.

http://www.developpez.net/forums/u59268/loufab/

Salut Loufab,

Comment t'envoyer le .zip?

Au message que j'ai reçu j'ai répondu et ai envoyé le fichier, mais j'ai reçu un message disant que l'adresse est introuvable.

@+