ouverture report par bouton

**Daniela** · 13/06/2009, 10h26

J'ai un probleme pour afficher un report a partir d'un formulaire.

dans mon formulaire il y a le champ IDContatto apres il y a un bouton ouvre qui permet d'ouvrir un report où il y a aussi un champ IDContatto. voila le code derrier le bouton:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub PAGATO_SENZA_STAMPA_Click()
On Error GoTo Err_PAGATO_SENZA_STAMPA_Click
 
    Dim stDocName As String
 
    stDocName = "Saldo credito cliente"
    DoCmd.OpenReport stDocName, acPreview
    stLinkCriteria = "[IDContatto]=" & "'" & Me![IDContatto] & "'"
    'CurrentDb.Execute "update Uscite set Pagato=1 where IDContatto in (select IDContatto from Dettagli_Comande_per_cliente)"'
 
Exit_PAGATO_SENZA_STAMPA_Click:
    Exit Sub
 
Err_PAGATO_SENZA_STAMPA_Click:
    MsgBox Err.Description
    Resume Exit_PAGATO_SENZA_STAMPA_Click
 
End Sub

mais il ne marche pas, pourkoi?

**Godard** · 13/06/2009, 11h32

Envoyé par Daniela

stDocName = "Saldo credito cliente"
DoCmd.OpenReport stDocName, acPreview
stLinkCriteria = "[IDContatto]=" & "'" & Me![IDContatto] & "'"

mais il ne marche pas, pourkoi?

A priori, j'écrirai:

Code :

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

1
2
3
stDocName = "Saldo credito cliente"
 stLinkCriteria = "[IDContatto]=" & "'" & Me![IDContatto] & "'"
 DoCmd.OpenReport stDocName, acPreview, , stlinkcriteria

**Daniela** · 13/06/2009, 11h43

Envoyé par Godard

A priori, j'écrirai:

stDocName = "Saldo credito cliente"
stLinkCriteria = "[IDContatto]=" & "'" & Me![IDContatto] & "'"
DoCmd.OpenReport stDocName, acPreview, , stlinkcriteria

moi j'ai fais ça mais il ne marche pas. il m'ouvre seulement un idcontatto. les autres no

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub PAGATO_SENZA_STAMPA_Click()
On Error GoTo Err_PAGATO_SENZA_STAMPA_Click
 
    'CurrentDb.Execute "update Uscite set Pagato=1 where IDContatto in (select IDContatto from Dettagli_Comande_per_cliente)"'
 
 
 
    Dim stDocName As String
    Dim StLinkCriteria As String
 
 
    stDocName = "Saldo credito cliente"
StLinkCriteria = "[IDContatto]=" & "'" & Me![IDContatto] & "'"
DoCmd.OpenReport stDocName, acPreview, , StLinkCriteria
 
 
Exit_PAGATO_SENZA_STAMPA_Click:
    Exit Sub
 
Err_PAGATO_SENZA_STAMPA_Click:
    MsgBox Err.Description
    Resume Exit_PAGATO_SENZA_STAMPA_Click
 
 
 
End Sub

**Jeannot45** · 13/06/2009, 11h49

Cest normal puisque tu lui donne un idContatto comme critère de sélection
Si tu en veux plusieurs, il faudrait enlever la ligne de critère et là tu auras tous les idContatto

Bonne continuation

**Daniela** · 13/06/2009, 12h16

Envoyé par Jeannot45

Cest normal puisque tu lui donne un idContatto comme critère de sélection
Si tu en veux plusieurs, il faudrait enlever la ligne de critère et là tu auras tous les idContatto

Bonne continuation

mais moi je veux que l'idcontatto du formulaire soit egal au idcontatto du report

**Jeannot45** · 14/06/2009, 08h55

Je n'ai donc pas trop compris ton problème.
Pourrais-tu nous en dire un peu plus sur ton état :

Que doit-il afficher ?
IdContatto représente quoi au juste ?
A quoi idContatto est-il lié ?

Pourrais-tu mettre un aperçu de ta base ?

Bonne continuation

**Daniela** · 14/06/2009, 11h44

Envoyé par Jeannot45

Je n'ai donc pas trop compris ton problème.
Pourrais-tu nous en dire un peu plus sur ton état :

Que doit-il afficher ?
IdContatto représente quoi au juste ?
A quoi idContatto est-il lié ?

Pourrais-tu mettre un aperçu de ta base ?

Bonne continuation

alors dans le formulaire il y a la query uscite_comande avec comme champs:

Code :

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

SELECT Uscite.Dataconsumazione, Uscite.OraConsumazione, Uscite.IDContatto, ([Nome]+' '+[Cognome]) AS Cliente, Uscite.ID_Art, Articoli.Descrizione, Uscite.Quantità, prezzo_bar, prezzo_ss, ([prezzo_bar]+[prezzo_ss]) AS Totale, Uscite.Pagato

dans mon report il y a la query avec comme champs:

Code :

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

SELECT Uscite.Dataconsumazione, Uscite.OraConsumazione, Uscite.IDContatto, ([Nome]+' '+[Cognome]) AS Cliente, Uscite.ID_Art, Articoli.Descrizione, Uscite.Quantità, Articoli.Prezzo, prezzo_bar, prezzo_ss, ([prezzo_bar]+[prezzo_ss]) AS totale, Uscite.Pagato

donc ce que je veux est que quand je clic sur le bouton stampa du formulaire il s'ouvre le report où l'idcontatto.formulaire=idcontatto.report

code bouton:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub PAGATO_SENZA_STAMPA_Click()
On Error GoTo Err_PAGATO_SENZA_STAMPA_Click
 
    'CurrentDb.Execute "update Uscite set Pagato=1 where IDContatto in (select IDContatto from Dettagli_Comande_per_cliente)"'
 
 
 
    Dim stDocName As String
    Dim StLinkCriteria As String
 
 
    stDocName = "Saldo credito cliente"
StLinkCriteria = "[IDContatto]=" & "'" & Me![IDContatto] & "'"
DoCmd.OpenReport stDocName, acPreview, , StLinkCriteria
 
 
Exit_PAGATO_SENZA_STAMPA_Click:
    Exit Sub
 
Err_PAGATO_SENZA_STAMPA_Click:
    MsgBox Err.Description
    Resume Exit_PAGATO_SENZA_STAMPA_Click
 
 
 
End Sub

**Daniela** · 14/06/2009, 12h38

je suis arrivée :-)

Envoyé par Daniela

alors dans le formulaire il y a la query uscite_comande avec comme champs:

Code :

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

SELECT Uscite.Dataconsumazione, Uscite.OraConsumazione, Uscite.IDContatto, ([Nome]+' '+[Cognome]) AS Cliente, Uscite.ID_Art, Articoli.Descrizione, Uscite.Quantità, prezzo_bar, prezzo_ss, ([prezzo_bar]+[prezzo_ss]) AS Totale, Uscite.Pagato

dans mon report il y a la query avec comme champs:

Code :

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

SELECT Uscite.Dataconsumazione, Uscite.OraConsumazione, Uscite.IDContatto, ([Nome]+' '+[Cognome]) AS Cliente, Uscite.ID_Art, Articoli.Descrizione, Uscite.Quantità, Articoli.Prezzo, prezzo_bar, prezzo_ss, ([prezzo_bar]+[prezzo_ss]) AS totale, Uscite.Pagato

donc ce que je veux est que quand je clic sur le bouton stampa du formulaire il s'ouvre le report où l'idcontatto.formulaire=idcontatto.report

code bouton:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub PAGATO_SENZA_STAMPA_Click()
On Error GoTo Err_PAGATO_SENZA_STAMPA_Click
 
    'CurrentDb.Execute "update Uscite set Pagato=1 where IDContatto in (select IDContatto from Dettagli_Comande_per_cliente)"'
 
 
 
    Dim stDocName As String
    Dim StLinkCriteria As String
 
 
    stDocName = "Saldo credito cliente"
StLinkCriteria = "[IDContatto]=" & "'" & Me![IDContatto] & "'"
DoCmd.OpenReport stDocName, acPreview, , StLinkCriteria
 
 
Exit_PAGATO_SENZA_STAMPA_Click:
    Exit Sub
 
Err_PAGATO_SENZA_STAMPA_Click:
    MsgBox Err.Description
    Resume Exit_PAGATO_SENZA_STAMPA_Click
 
 
 
End Sub

**Jeannot45** · 15/06/2009, 08h14

et Bravo

Pourrais-tu nous dire d'où venait le problème et comment tu as résolu celui-ci ?

Merci

ouverture report par bouton [Toutes versions]

IHM

Discussions similaires

Partager

Partager