Discussion :

[minot83]

Bonjour,

à partir d'un formulaire préalablement filtré, je ne parviens pas à ouvrir état pour éditer les données souhaitées.

Lorsque j'exécute mon code, l'état n'affiche que le 1er enregistrement du formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub BTN_Print_Click()
    Dim stdocname As String
    Dim stlinkcriteria As String
 
    stdocname = "E_Courrier_Arrivée"
    stlinkcriteria = "[Id_Arrivée]=" & Me.[Id_Arrivée]
 
    DoCmd.OpenReport stdocname, acViewPreview, , stlinkcriteria
End Sub

une petite idée svp? (Access 2003)

[Invité]

Bonjour

C'est un peu normal, car dans cette ligne

Code :

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

 stlinkcriteria = "[Id_Arrivée]=" & Me.[Id_Arrivée]

tu ne récupéres qu'une donnée, celle qui est dans le champ Id_Arrivée.

Il faut que tu remettes en filtre de ton état le filtre qui te sert dans ton formulaire.

Philippe

[minot83]

Salut Philippe, merci de ta réponse.

Par contre je ne vois pas bien comment récupérer ce filtre, est-ce la commande Me.Filter? à la place de la condition Where ?

[Jeannot45]

Si ta requête contient les données filtrées, tu n'as plus besoin de spécifier des critères et ton code devient simplement :

Code :

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

1
2
3
4
5
6
7
8
Private Sub BTN_Print_Click()
    Dim stdocname As String
    Dim stlinkcriteria As String
 
    stdocname = "E_Courrier_Arrivée"
 
    DoCmd.OpenReport stdocname, acViewPreview
End Sub

La source de ton état étant bien entendu : la requete précédemment citée

[minot83]

Salut

Je précise que le formulaire à partir duquel je souhaite lancer l'état contenant le même résultat s'ouvre grâce à plusieurs commandes, telle que par ex :

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 BTN_CourrierA_Entité_Click()
    Dim stdocname As String
    Dim stlinkcriteria As String
    Dim stlinkcriteria2 As String
 
    stdocname = "F_Courrier_Arrivée_Liste"
    stlinkcriteria = "[Num_Service_Gestionnaire]=" & Me![ZLD_CourrierA_Entité] & " And (Date() - [T_Courrier_Arrivee].[Date création fiche arrivée]) >= " & stretard
    stlinkcriteria2 = "[Num_Service_Gestionnaire]=" & Me![ZLD_CourrierA_Entité] & " And (Date() - [T_Courrier_Arrivee].[Date création fiche arrivée]) >= " & stretard & " And SR = False And Num_Ar IS NULL"
 
   If Me.Cocher_a_traiter.Value = True Then
        DoCmd.Close
        DoCmd.OpenForm stdocname, , , stlinkcriteria2
    Else
        DoCmd.Close
        DoCmd.OpenForm stdocname, , , stlinkcriteria
    End If
End Sub

Donc le formulaire affiche, selon ce que l'utilisateur choisit, un certain nombre d'enregistrements.

De fait, je ne peux pas alimenter mon état avec la même requête puisqu'il y en a plusieurs...

Je pensais qu'il était simple d'ouvrir un état à disant, "where" les enregistrements sont les mêmes que ceux du formulaire résultat...

[minot83]

Bon, j'ai réussi !

En passant par une variable publique, dans laquelle je conserve la requête choisie, et en la posant comme condition d'ouverture de l'état.