Discussion :

[rom22950]

Bonjour à tous,

Je cherche à faire quelque chose de relativement simple sur access et tout fonctionne parfaitement dans mon code lors de l'exécution sauf l'ouverture de la requête à la fin.

Je n'arrive pas à comprendre pourquoi, peut être quelqu'un peut il m'aider?

Merci d'avance, ci joint le code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub LaunchPoche2_Click()

Dim DAR As Date
Dim Periode As String
Dim Poche As String
Dim QryModele As DAO.QueryDef
Dim db As DAO.Database
Dim strSQLModele As String


    Periode = Forms("Reporting_Portefeuilles").Controls("ListePeriode").Value
    Poche = Forms("Reporting_Portefeuilles").Controls("ListePoche").Value
    DAR = Forms("Reporting_Portefeuilles").Controls("ListeDate").Value


        If IsNull(DAR) = True Then
            MsgBox "La date d'arrêté est mal renseignée"
            Exit Sub
        End If
        If IsNull(Periode) = True Then
            MsgBox "La période est mal renseignée"
            Exit Sub
        End If
        If IsNull(Poche) = True Then
            MsgBox "La poche est mal renseignée"
            Exit Sub
        End If


    'Utilisation du code de la requête maquette et remplacement par les élément de variable sélectionnés
    Set db = CurrentDb
    Set QryModele = db.QueryDefs("Maquette Reporting Poches")
    strSQLModele = QryModele.SQL


'Effectue le remplacement du critere par la valeur
strSQLModele = Replace(strSQLModele, "1J", Periode)
strSQLModele = Replace(strSQLModele, "10/10/2010", DAR)
strSQLModele = Replace(strSQLModele, "XXXX", Poche)

db.QueryDefs("Reporting Poches").SQL = strSQLModele

'Ouvre la requête
DoCmd.OpenQuery "Reporting Poches" 'erreur à ce niveau la


End Sub

[jimbolion]

rom22950 bonjour,

ligne 32 :

Code :

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

Set QryModele = db.QueryDefs("Maquette Reporting Poches")

ligne 41 :

Code :

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

db.QueryDefs("Reporting Poches").SQL = strSQLModele

ligne 44 :

Code :

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

DoCmd.OpenQuery "Reporting Poches" 'erreur à ce niveau la

Le nom n'est pas le même

jimbolion

[rom22950]

Salut!

Merci pour ta réponse rapide, oui en effet ce n'est pas le même mais mon cahier des charge est donné comme ça, ci joint un exemple de code "similaire" qui lui, fonctionne parfaitement...

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
27
28
29
30
31
Private Sub LaunchPoche_Click()
 
Dim DAR As Date
Dim Periode As String
Dim QryModele As DAO.QueryDef
Dim db As DAO.Database
Dim strSQLModele As String
 
DAR = Forms("Reporting_Portefeuilles").Controls("ListeDate").Value
Periode = Forms("Reporting_Portefeuilles").Controls("ListePeriode").Value
If IsNull(DAR) = True Then
    MsgBox "La date d'arrêté est mal renseignée"
    Exit Sub
End If
If IsNull(Periode) = True Then
    MsgBox "La période est mal renseignée"
    Exit Sub
End If
'Utilisation du code de la requête maquette et remplacement par les élément de variable sélectionnés
'
Set db = CurrentDb
Set QryModele = db.QueryDefs("Maquette Reporting Portefeuilles")
strSQLModele = QryModele.SQL
'Effectue le remplacement du critere par la valeur
strSQLModele = Replace(strSQLModele, "1J", Periode)
strSQLModele = Replace(strSQLModele, "10/10/2010", DAR)
db.QueryDefs("Reporting Portefeuilles").SQL = strSQLModele
'Ouvre la requête
DoCmd.OpenQuery "Reporting Portefeuilles"
 
End Sub

Je n'arrive pas à trouver pourquoi cela ne fonctionne pas correctement, c'est pourtant pas un code bien compliqué...

[jimbolion]

rom22950,

Donc il s'agit en premier lieu d'un problème de conception de code à la base (à corriger dans les 2 cas)

Tu dois avoir dans ton exemple une requête Reporting_Portefeuilles présente dans ton volet de navigation, alors que la requête Reporting Poches elle n'existe pas !

Jimbolion