J'ai un formulaire "Imprimer"
avec des cases à cocher "Listing 1" ; "Listing 2" ; "Listing 3" ;
un bouton apercu...qui:
+ ouvre l'état correspondant au choix de l'utilisateur
+ ouvre un petit formulaire "Navigation" contenant deux boutons -> Fermer et Imprimer
+ réduit le formulaire "Imprimer"
Je voudrais savoir ou est le problème avec ce code ...
(Je connais rien au VBA, donc je bidouille !)
Code du petit formulaire "Navigation"
Code :
- Private Sub imprimer_Click()
- 'Imprimer l'état Listing_1
- If "Listing_1" = True Then
- DoCmd.OpenReport "Listing_1", acNormal
- End If
- 'Imprimer l'état Listing_2
- If "Listing_2" = True Then
- DoCmd.OpenReport "Listing_2", acNormal
- End If
- 'Imprimer l'état Listing_3
- If "Listing_3" = True Then
- DoCmd.OpenReport "Listing_3", acNormal
- End If
- End Sub
- ------------------------------------------------
- Private Sub fermer_Click()
-
- 'Fermer les états ouverts
- DoCmd.Close acReport, "Listing_1"
- DoCmd.Close acReport, "Listing_2"
- DoCmd.Close acReport, "Listing_3"
-
- 'Sélectionner le formulaire Imprimer pour le rendre actif
- DoCmd.SelectObject acForm, "Imprimer"
-
- 'Restorer le formulaire Imprimer
- DoCmd.Restore
-
- 'Sélectionner le formulaire Navigation pour le rendre actif
- DoCmd.SelectObject acForm, "Navigation"
-
- 'Fermer le menu de navigation
- DoCmd.Close
- End Sub
|
---------------------------------------------------------
Pour fermer y a peut-être plus simple et moins tordu mais sa marche !
Par contre pour Imprimer, j'ai l'erreur suivante:
"Erreur d'exécution '13' ; Incompatibilité de type
je pense bien savoir ou sa cloche
-> If "Listing_1" = True Then
mais je vois pas ce que je dois mettre ?
il faut peut être déclarer une variable état ? je sais pas !!
ou mettre
Code :
- If Report.["Listing trié par artiste"] = True Then
- DoCmd.OpenReport "Listing trié par Artiste", acNormal
- End If
|
mais erreur 424
Quand on connait le VBA, mes codes paraissent surement stupides ! mais je passe déjà pas mal de temps sur les forums à la rehcerche de codes alors si je tatonne pas j'y arriverais jamais !
Merci d'avance deu coup de main !
Gwendal
