erreur exécution '3020' dans Access office 2010

Bonsoir loufab,

Ce que je n'arrive pas à comprendre, c'est pourquoi, la fonction fonctionne bien sous Access XP.

Je suis assez mécontent du fait que l'office 2013 pro a été acheté pour rien, finalement.

Parce que finalement, c'est Microsoft qui est en défaut là et qu'il ne donne pas la recette pour corriger ce bug.

Il faut donc demander de l'aide, c'est embêtant.

@+

Fguy

A ta place j'éviterais d'instancier le formulaire dans un objet et de traiter les modifs au travers de celui-ci.

 

J'avoue que je ne comprends pas ce que ça veut dire, je ne suis pas un super doué en Access :-)

Je ferais directement des affectations dans la pile comme ceci :

 

Forms.FactureExMeca.Numfact = ....

c'est là, sans doute ça coince, il faut mettre le dernier n° de facture +1

 

Note que ton With ne sert pas à grand chose dans ce cas, pourquoi ne pas l'utiliser pour le forms.

 

With forms.F_Meca

.controls("NCL").value = Forms.client.controls("NCL").value

 

PS : Le ! est utilisé pour faire référence au nom de la colonne dans la source alors que le . fait référence aux contrôles.

 

Mon exemple est un peu verbeux, tu peux simplifier en omettant controls() et value.

 

Cordialement,

A ta place j'éviterais d'instancier le formulaire dans un objet et de traiter les modifs au travers de celui-ci.

Je ferais directement des affectations dans la pile comme ceci :

Forms.FactureExMeca.Numfact = ....

Note que ton With ne sert pas à grand chose dans ce cas, pourquoi ne pas l'utiliser pour le forms.

With forms.F_Meca

.controls("NCL").value = Forms.client.controls("NCL").value

PS : Le ! est utilisé pour faire référence au nom de la colonne dans la source alors que le . fait référence aux contrôles.

Mon exemple est un peu verbeux, tu peux simplifier en omettant controls() et value.

Cordialement,

Bonjour,

Ce n'est pas très clair. Peux-tu poster le code ?

Cordialement,

Merci pour ta réponse :-)

Voilà le code:

Public Function NouvelleFactureMe()

    Dim rstFact As Recordset, maBD As Database, Rep As String

    Dim meF As Form, meCL As Form

    Set maBD = CurrentDb

    Rep = MsgBox("Est-ce bien une nouvelle facture" & vbLf & vbLf & _

        "MECANIQUE" & vbLf & vbLf & _

        "que vous voulez créer ?", vbQuestion + vbDefaultButton1 + vbYesNo, "Contrôle type facture")

    If Rep = vbNo Then

        Exit Function

    End If

'-------------------------------------------------------------------

    Set rstFact = maBD.OpenRecordset("Facturation", dbOpenDynaset)

    With rstFact

        If .RecordCount > 0 Then

            'DoCmd.OpenForm "FacturesExMeCa"

            DoCmd.OpenForm "FacturesExMeCa", acNormal, "", "", acAdd, acNormal

            Set meF = Forms![FacturesExMeCa]

            meF!Numfact = DMax("numfact", "facturation") + 1

            meF![NCL] = Forms!Clients![NCL]

            meF![Nom] = Forms!Clients![Nom]

            meF!TF = "FME"

            meF!NFactLettre = "FME" & meF!Numfact

            meF!Cadre48.Visible = False

        End If

    End With

'--------------------------------------------------------------------

    Set maBD = Nothing

    Set rstFact = Nothing

    Set meF = Nothing

End Function

Bonjour,

Ce n'est pas très clair. Peux-tu poster le code ?

Cordialement,