Discussion :

[guigui5931]

Bonjour à tous

J'ai un formulaire qui doit appeler une requete pour la passer en source d'un sous formulaire. Jusque là tout va bien. Le problème est que cette requête contient un paramètre : date. J'ai faire comme j'avais trouvé sur d'autre post j'ai donc fait ça(List_Query contient le nom de la requete et Modifiable21 la date)

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub refresh_Click()
    Dim qdf As DAO.QueryDef
    Set qdf = CurrentDb.QueryDefs(List_Query.Value)
    MsgBox (Modifiable21.Value)
    qdf.Parameters("[date]") = Modifiable21.Value 
    Forms![Main]![Stocks subform].Form.RowSource= qdf.SQL
End Sub

Mais il m'affiche quand même un boite me demandant la valeur du paramètre date. Il y a quelque chose que j'ai raté?

Merci d'avance

[ft035580]

Salut Guigui...,

Le schéma:

Je défini les paramètres de ma requête (cf.: Parameters)

Puis j'ouvre le recordset

Or, il me semble que dans ton cas toutes les conditions ne sont pas remplies

[guigui5931]

Je suis pas sur de tout comprendre, j'ai une requete qui a été faite avec QBE et ce que je voudrait c'est passer en source de mon sous formulaire le code SQL de ma requete. Mais je comprend pas comment je doit le faire

[alassanediakite]

Salut
au lieu de

Code :

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

1
2
3
4
5
6
7
Private Sub refresh_Click()
    Dim qdf As DAO.QueryDef
    Set qdf = CurrentDb.QueryDefs(List_Query.Value)
    MsgBox (Modifiable21.Value)
    qdf.Parameters("[date]") = Modifiable21.Value 
    Forms![Main]![Stocks subform].Form.RowSource= qdf.SQL
End Sub

Peux-tu essayer tout en annulant au préalable le paramètre depuis la requète list_Query

Code :

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

1
2
3
4
5
6
7
Private Sub refresh_Click()
    Dim qdf As DAO.QueryDef
    Set qdf = CurrentDb.QueryDefs("List_Query")
    Forms![Main]![Stocks subform].Form.RowSource= qdf.SQL
 Forms![Main]![Stocks subform].Form.filter="[le nom du champs devant conténir la date]=#" & format(me.Modifiable21,"dd/mm/yyyy") & "#"
 Forms![Main]![Stocks subform].Form.filteron=true
End Sub

Bonne continuation

[guigui5931]

Je suis désolé mais ça ne marche toujours pas. J'ai enlevé le paramètre de la requête j'ai mis ce code

Code :

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

1
2
3
4
5
6
7
Private Sub refresh_Click()
    Dim qdf As DAO.QueryDef, record As Recordset
    Set qdf = CurrentDb.QueryDefs(List_Query.Value)
    Forms![Main]![Stocks subform].Form.RecordSource = qdf.SQL
    Forms![Main]![Stocks subform].Form.Filter = "[S_Enddate]< #" & Format(Me.Modifiable21, "dd/mm/yyyy") & "#"
    Forms![Main]![Stocks subform].Form.FilterOn = True
End Sub

mais ça m'affiche toujours une boite de dialogue me demandant la valeur du paramètre S_Enddate.