Discussion :

[Daniela]

Bonjour,

moi j'ai un formulaire, comment je fais avec un bouton, ouvrir un report où id_client est le meme?

Merci

[mcfly37]

Bonjour

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 MonBouton_Click()
On Error GoTo Err_MonBouton_Click
 
    Dim stDocName As String
    Dim StLinkCriteria As String
 
    stDocName = "Monreport"
    StLinkCriteria = Me.txtMonId.Value
    DoCmd.OpenReport stDocName, acPreview, , StLinkCriteria
 
Exit_MonBouton_Click:
    Exit Sub
 
Err_MonBouton_Click:
    MsgBox Err.Description
    Resume Exit_Commande50_Click
 
End Sub

Voila^^

Cordialement

Mcfly

[Daniela]

J'ai utilisé ton code mais le probleme est que quand je clic sur le bouton apparaitre un message pour inserer IDContact.

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 fattura_cliente_Click()
On Error GoTo Err_fattura_cliente_Click
 
    Dim stDocName As String
 
 
    stDocName = "Saldo credito cliente"
    StLinkCriteria = Me.IDContatto.Value
    DoCmd.OpenReport stDocName, acPreview, , StLinkCriteria
 
Exit_fattura_cliente_Click:
    Exit Sub
 
Err_fattura_cliente_Click:
    MsgBox Err.Description
    Resume Exit_fattura_cliente_Click
 
End Sub

Bonjour

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 MonBouton_Click()
On Error GoTo Err_MonBouton_Click
 
    Dim stDocName As String
    Dim StLinkCriteria As String
 
    stDocName = "Monreport"
    StLinkCriteria = Me.txtMonId.Value
    DoCmd.OpenReport stDocName, acPreview, , StLinkCriteria
 
Exit_MonBouton_Click:
    Exit Sub
 
Err_MonBouton_Click:
    MsgBox Err.Description
    Resume Exit_Commande50_Click
 
End Sub

Voila^^

Cordialement

Mcfly

[mcfly37]

Bonjour

Première chose tu n'a pas déclaré stLinkcriteria (mais le problème ne vient pas de la), en plus je vient de me rendre compte que j'avais mal écrit ce fameux stlinkcriteria justement voila comment il faut faire :

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
Private Sub fattura_cliente_Click()
On Error GoTo Err_fattura_cliente_Click
 
    Dim stDocName As String
    Dim StLinkCriteria As String
 
 
    stDocName = "Saldo credito cliente"
    StLinkCriteria = "[IDContact] = '" & Me.IDContatto.Value & "'"
    DoCmd.OpenReport stDocName, acPreview, , StLinkCriteria
 
Exit_fattura_cliente_Click:
    Exit Sub
 
Err_fattura_cliente_Click:
    MsgBox Err.Description
    Resume Exit_fattura_cliente_Click

La ca devrait marcher normalement

Cordialement

Mcfly

[Daniela]

Merci beaucoup marche tres bien. vu que tu es ainsi gentile, tu peux regarder mon programme en access et me dire ce que tu pense? si tu veux je te l'envoi par mail

Bonjour

Première chose tu n'a pas déclaré stLinkcriteria (mais le problème ne vient pas de la), en plus je vient de me rendre compte que j'avais mal écrit ce fameux stlinkcriteria justement voila comment il faut faire :

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
Private Sub fattura_cliente_Click()
On Error GoTo Err_fattura_cliente_Click
 
    Dim stDocName As String
    Dim StLinkCriteria As String
 
 
    stDocName = "Saldo credito cliente"
    StLinkCriteria = "[IDContact] = '" & Me.IDContatto.Value & "'"
    DoCmd.OpenReport stDocName, acPreview, , StLinkCriteria
 
Exit_fattura_cliente_Click:
    Exit Sub
 
Err_fattura_cliente_Click:
    MsgBox Err.Description
    Resume Exit_fattura_cliente_Click

La ca devrait marcher normalement

Cordialement

Mcfly

[mcfly37]

De rien

pour ce qui est de jeter un coup d'oeil sur ton programme je veut bien mais je n'aurais pas le temps avant la semaine prochaine (et encore c'est pas sur^^)

Ahhh les joies des stages qui se terminent à la bourre....

[Daniela]

De rien

pour ce qui est de jeter un coup d'oeil sur ton programme je veut bien mais je n'aurais pas le temps avant la semaine prochaine (et encore c'est pas sur^^)

Ahhh les joies des stages qui se terminent à la bourre....

no je dois rendre mon projet demain soir :-( juste un truc moi j'ai un formulaire où il y a le champ payé par defaul la valeur est non. moi je voudrais que avec un bouto n la valeur de ce champ pour tous les records devien oui. tu sais comment faire?