Discussion :

[ludosnip]

bonjour

J'ai créé un code VBA pour faire un aperçu avant impression d'un état venant d'un formulaire en boite de dialogue. Cependant l'aperçu s'ouvre mais il est caché par le formulaire en boite de dialogue. J'aimerais que l'aperçu avant impression s'ouvre en premier plan. Est ce possible ?

Merci pour vos réponses

Private Sub Commande11_Click()
TempVars.Add "clients_numclient", Numclient.Value
DoCmd.OpenReport "contrat par client", acpreview, "", "[numclient]=[TempVars]![clients_numclient]", acEdit, acNormal
End Sub

[ludosnip]

Code :

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

1
2
3
4
Private Sub Commande11_Click()
TempVars.Add "clients_numclient", Numclient.Value
DoCmd.OpenReport "contrat par client", acpreview, "", "[numclient]=[TempVars]![clients_numclient]", acEdit, acNormal
End Sub

[Robert1957]

Bonjour ludosnip,
Dans ton formulaire:

Code :

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

1
2
3
4
5
Private Sub Commande11_Click()
me.visible = false
TempVars.Add "clients_numclient", Numclient.Value
DoCmd.OpenReport "contrat par client", acpreview, "", "[numclient]=[TempVars]![clients_numclient]", acEdit, acNormal
End Sub

Ce qui cache ton formulaire et permet de voir l'état.
Et dans l'état:

Code :

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

1
2
3
Private Sub Report_Close()
    Forms!LeNomDeTonFormulaire.Visible = True
End Sub

Lors de la fermeture de l'état le formulaire redevient disponible.
Bonne journée

[ludosnip]

merci pour ta réponse mais cela ne fonctionne pas, j'ai un message d'erreur "impossible de masquer le contrôle d'actif"

[madefemere]

Bonjour,
Essaies de mettre aussi l'état en mode boîte de dialogue (indépendant).

[ludosnip]

bonjour

merci pour ta réponse mais cela ne fonctionne toujours pas, j'ai mis acdialog à la place de acnormal à la fin du code. Mais il y a toujours ce message d'erreur

[Robert1957]

Bonjour ludosnip,
Je ne comprend pas, je viens de faire le test du code et cela fonctionne très bien pour moi avec un formulaire "Fen indépendante et Fen modal". Peut-être:

Code :

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

1
2
3
4
5
6
Private Sub Commande11_Click()
me.visible = false
TempVars.Add "clients_numclient", Numclient.Value
DoCmd.OpenReport "contrat par client", acpreview, "", "[numclient]=[TempVars]![clients_numclient]", acEdit, acNormal
me.Visible = false
End Sub

Une chose peut-être la fin de ton code:

Code :

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

acEdit, acNormal

Je ne crois pas que ce soit pertinent, en tout cas pas pour un état. Essaie sans les 2 dernières conditions.

Bonne journée