Discussion :

[pra3t0r]

Bonjour,

J’exécute ce code pour imprimer, dans une forme où je fais différentes requêtes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim A As Access.Application
Dim Num, fiche As String
Set A = CreateObject("Access.Application")
A.OpenCurrentDatabase App.Path & "\CirqueDB97.mdb"
box1 = MsgBox("voulez vous imprimer la réservation?", vbQuestion + vbYesNo, "Imprimer?")
    If box1 = vbYes Then
        A.Visible = True
        DoCmd.OpenReport "requête1", acViewPreview
        A.DoCmd.Maximize
    End If

: Je fais un preview pour que la personne concerné puisse voir l'impression même si cette preview se fait directement dans Access (ce qui n'est pas super niveau sécurité etc ).
Mon problème c'est que quand je fais (comme vous l'aurais surement remarqué) plusieurs réservations de suite (donc impressions de suites) au bout de deux ou trois impressions, j'ai ce problèmes qui arrive :
"Run time error 2486 ne peut pas exécuter cette action pour le moment".

Ce que je veux savoir :
- j'ai vu sur ce forum cette solutionpossible. Mais je voulais savoir quoi mettre dans mon module? seulement les déclarations de mes variables? ou est-ce que ça résoudrai mes pb si je mettais une fonction "imprimer" dans un module pour l'appeler dans ma forme?
C'est une erreur vraiment embêtante pour la personne qui utilise mon appli....
J’espère que vous pourrez m'éclairer =)

Merci

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set A = CreateObject("Access.Application")

puisque c'est ton programme qui créé une session Access.Application, c'est ton programme qui doit mettre fin à cette session, que l'utilisateur ai répondu OUI, NON, ou qu'il ai annulé.
Tu devrais avoir dans la suite de la réponse, une commande de fermeture de A et une libération de cette variable par un Set A = Nothing.
Il y a des chances que cela permette de ne plus avoir cette erreur.

[pra3t0r]

Salut,

Merci pour ta réponse.
Si je mets "A.closeCurrentdatabase" et ensuite "SET A = Nothing"
Après ma condition, il ne va pas m'ouvrir ma bdd et la fermer tout de suite?
Car la d'après le test que je viens juste de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub ImpAR()
 
Set A = CreateObject("Access.Application")
A.OpenCurrentDatabase App.Path & "\CirqueDB97.mdb"
 
box1 = MsgBox("voulez vous imprimer la réservation?", vbQuestion + vbYesNo, "Imprimer?")
    If box1 = vbYes Then
        A.Visible = True
        DoCmd.OpenReport "requête1", acViewPreview
        A.DoCmd.Maximize
    End If
A.CloseCurrentDatabase
Set A = Nothing
End Sub

Il me l'ouvre et ferme tout de suite. Est-ce ce bon code la?
Ou dois-je rajouter quelque chose qui dit que tant que l'utilisateur n'a pas fini de "voir" et, d'imprimer, il n’exécute pas la fermeture de la bdd?

[pra3t0r]

Re,

Ou alors est-ce que je peux stopper le code autrement que par une autre Msgbox? c'est pas très pratique..

[pra3t0r]

Petit up ^^"

Si je ne mets que " SET A = Nothing"
Ca résoudrais mon problème à coup sur?

[pra3t0r]

Pour ceux qui aurais la même erreur :
Vérifiez que vous avez bien affecté votre variable (access.application) au
Docmd.
Après cela, vous pouvez fermer la base de donnée avec le code :
A.Quit et Set A = nothing

Et là ca marche !