Bouton impression etat

Le
Arnaud
Bonjour,

Dans un fomulaire, j'ai deux zones de sélection de date et une zone de liste
déroulante. Je choisis mes dates et ça me renvoie dans la zone de liste
déroulante des codes chantiers pour lesquels il y a eu des mouvements sur la
période sélectionnée précedement. Puis j'ai un bouton qui me permet
d'imprimer un état en fonction du code chantier que j'ai sélectionné dans la
zone de liste. J'aimerai rajouter un deuxieme bouton qui m'imprime
directement (sans aperçu écran) l'état pour tous les codes chantiers présents
dans la zone de liste déroulante.

Alors si vous savez comment faire, je suis preneur!

Merci d'avance

Arnaud
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #6368981
Bonjour,

Dans un fomulaire, j'ai deux zones de sélection de date et une zone de liste
déroulante. Je choisis mes dates et ça me renvoie dans la zone de liste
déroulante des codes chantiers pour lesquels il y a eu des mouvements sur la
période sélectionnée précedement. Puis j'ai un bouton qui me permet
d'imprimer un état en fonction du code chantier que j'ai sélectionné dans la
zone de liste. J'aimerai rajouter un deuxieme bouton qui m'imprime
directement (sans aperçu écran) l'état pour tous les codes chantiers présents
dans la zone de liste déroulante.

Alors si vous savez comment faire, je suis preneur!

Merci d'avance

Arnaud
Bonjour,

Sur l'evenement clic de ton bouton
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
Next I
docmd.openreport "tonetat",acviewnormal,, "[CodeChantier] in ( "&
Left(StrIn,Len(StrIn)-1)) & ")"
end sub

Arnaud
Le #6368601
Bonjour,

Merci pour la réponse. Ca ne fonctionne pas, j'ai ce message d'erreur :
Erreur de compilation, Attendu : Expression


Bonjour,

Dans un fomulaire, j'ai deux zones de sélection de date et une zone de liste
déroulante. Je choisis mes dates et ça me renvoie dans la zone de liste
déroulante des codes chantiers pour lesquels il y a eu des mouvements sur la
période sélectionnée précedement. Puis j'ai un bouton qui me permet
d'imprimer un état en fonction du code chantier que j'ai sélectionné dans la
zone de liste. J'aimerai rajouter un deuxieme bouton qui m'imprime
directement (sans aperçu écran) l'état pour tous les codes chantiers présents
dans la zone de liste déroulante.

Alors si vous savez comment faire, je suis preneur!

Merci d'avance

Arnaud
Bonjour,

Sur l'evenement clic de ton bouton
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
Next I
docmd.openreport "tonetat",acviewnormal,, "[CodeChantier] in ( "&
Left(StrIn,Len(StrIn)-1)) & ")"
end sub




Fabien
Le #6368571
Bonjour,

Merci pour la réponse. Ca ne fonctionne pas, j'ai ce message d'erreur :
Erreur de compilation, Attendu : Expression


Bonjour,

Dans un fomulaire, j'ai deux zones de sélection de date et une zone de liste
déroulante. Je choisis mes dates et ça me renvoie dans la zone de liste
déroulante des codes chantiers pour lesquels il y a eu des mouvements sur la
période sélectionnée précedement. Puis j'ai un bouton qui me permet
d'imprimer un état en fonction du code chantier que j'ai sélectionné dans la
zone de liste. J'aimerai rajouter un deuxieme bouton qui m'imprime
directement (sans aperçu écran) l'état pour tous les codes chantiers présents
dans la zone de liste déroulante.

Alors si vous savez comment faire, je suis preneur!

Merci d'avance

Arnaud
Bonjour,

Sur l'evenement clic de ton bouton
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
Next I
docmd.openreport "tonetat",acviewnormal,, "[CodeChantier] in ( "&
Left(StrIn,Len(StrIn)-1)) & ")"
end sub

Salut,


peux tu mettre un copie de ton code ?



Arnaud
Le #6368541
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
Next I
docmd.openreport "état1",acviewnormal,, "[CodeChantier] in ( "&
Left(StrIn,Len(StrIn)-1)) & ")"
end sub




Bonjour,

Merci pour la réponse. Ca ne fonctionne pas, j'ai ce message d'erreur :
Erreur de compilation, Attendu : Expression


Bonjour,

Dans un fomulaire, j'ai deux zones de sélection de date et une zone de liste
déroulante. Je choisis mes dates et ça me renvoie dans la zone de liste
déroulante des codes chantiers pour lesquels il y a eu des mouvements sur la
période sélectionnée précedement. Puis j'ai un bouton qui me permet
d'imprimer un état en fonction du code chantier que j'ai sélectionné dans la
zone de liste. J'aimerai rajouter un deuxieme bouton qui m'imprime
directement (sans aperçu écran) l'état pour tous les codes chantiers présents
dans la zone de liste déroulante.

Alors si vous savez comment faire, je suis preneur!

Merci d'avance

Arnaud
Bonjour,

Sur l'evenement clic de ton bouton
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
Next I
docmd.openreport "tonetat",acviewnormal,, "[CodeChantier] in ( "&
Left(StrIn,Len(StrIn)-1)) & ")"
end sub

Salut,


peux tu mettre un copie de ton code ?






Fabien
Le #6368511
oui mais
Si ton bouton s'appelle Mon_Bouton alors tu devrais avoir quelque chose
comme
Private Mon_bouton_onclic()
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
Next I
docmd.openreport "état1",acviewnormal,, "[CodeChantier] in ( "&
Left(StrIn,Len(StrIn)-1)) & ")"
end sub

de plus je suis parti sur l'hypothése que [codechantier] était de type
alphanumérique : est ce vrai ?
sinon il faut modifier StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
en StrIn = StrIn & Liste0.Column(0,I) & ","

d'autre part j'ai consideré que ce codechantier, dans la liste
déroulante, était dans la premiere colonne : est ce correct ?
et enfin
il faut tester si la chaine Strin contient bien quelque chose avant de
la passer au docmd.openreport
@+
ps : si tu t'en sort pas, fais moi passer une version lite de ta base
par cjoint.com.

Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
Next I
docmd.openreport "état1",acviewnormal,, "[CodeChantier] in ( "&
Left(StrIn,Len(StrIn)-1)) & ")"
end sub




Bonjour,

Merci pour la réponse. Ca ne fonctionne pas, j'ai ce message d'erreur :
Erreur de compilation, Attendu : Expression


Bonjour,

Dans un fomulaire, j'ai deux zones de sélection de date et une zone de liste
déroulante. Je choisis mes dates et ça me renvoie dans la zone de liste
déroulante des codes chantiers pour lesquels il y a eu des mouvements sur la
période sélectionnée précedement. Puis j'ai un bouton qui me permet
d'imprimer un état en fonction du code chantier que j'ai sélectionné dans la
zone de liste. J'aimerai rajouter un deuxieme bouton qui m'imprime
directement (sans aperçu écran) l'état pour tous les codes chantiers présents
dans la zone de liste déroulante.

Alors si vous savez comment faire, je suis preneur!

Merci d'avance

Arnaud
Bonjour,

Sur l'evenement clic de ton bouton
Dim StrIn,StrSql as String
Dim I as Integer
For I=0 to Liste0.listcount
StrIn = StrIn & "'" & Liste0.Column(0,I) & "',"
Next I
docmd.openreport "tonetat",acviewnormal,, "[CodeChantier] in ( "&
Left(StrIn,Len(StrIn)-1)) & ")"
end sub

Salut,


peux tu mettre un copie de ton code ?








Publicité
Poster une réponse
Anonyme