Problème de code IF et report ?

Marsh Posté le 09-08-2002 à 13:16:50

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

Reply

Marsh Posté le 09-08-2002 à 13:16:50

Reply

Marsh Posté le 09-08-2002 à 13:23:58

si Listing_1 est un checkbox, alors la syntaxe à utiliser pour tester si elle est cochée est :

If Listing_1.checked = True, then...

Tu dois tester la propriété checked, qui renvoie True si elle est cochée, sinon False

---------------
J'ai un string dans l'array (Paris Hilton)

Reply

Marsh Posté le 09-08-2002 à 14:46:15

en faite le petit formulaire se présente comme sa

------------------------------
I BP_Fermer BP_Imprimer I
------------------------------

:eek2:
Il n'y a en tout et pour tout que 2 boutons . rien d'autre.

je veux imprimer l'état qui est ouvert !

j'ai un seul formulaire "Navigateur" pour 3 listing ...
c'est toutjours le même petit formulaire qui s'ouvre...
donc faut que je m'appuie sur l'état ouvert (de toute manière je me suis arrangé pour qu'il y est toujours un et un seul état d'ouvert.)

Je cherche juste le code qui permette de dire
si listing_1 ouvert alors imprimer listing_1
si listing_2 ouvert alors imprimer listing_2
si listing_3 ouvert alors imprimer listing_3
tout sa sur le BP imprimer....

Plus clair ? :hap:

merci

Gwendal :jap:

Reply

Problème de code IF et report ?

Sujets relatifs:

Leave a Replay