Discussion :

[cyb33]

Bonjour.
J'ai créé un état dont la source est une requête. Lors de l'ouverture de cet état, il doit afficher uniquement les données par rapport à la date désirée.
Pour ce faire j'ai créé une requête SQL afin d'afficher uniquement les enrigistrements désirés. Malheureusement cette requête SQL ne fonctionne pas.
Est-ce que quelqu'un peut me donner un coup de main ?
Merci d'avance.

Voici mon 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
 
Dim strSQL As String
    Dim strDate As String
    Dim datMSB  As Date
 
    Dim db As Database
    Dim rst As Recordset
 
    'Construction de la date
    datMSB = InputBox("Veillez entrer la date désirée selon le format suivant : jj.mm.aa", "Date")
    datMSB = datMSB + 1
    strDate = "#" & Month(datMSB) & "/" & Day(datMSB) & "/" & Year(datMSB) & "#"
 
    'MsgBox datMSB
    'MsgBox strDate
 
 
    'Requête SQL avec la date
    strSQL = "SELECT tbl_Journal.jou_Id, tbl_Trafic.tra_Trafic, tbl_Lieu.lieu_Abrev, tbl_Journal.jou_DateDebut, tbl_Journal.jou_HeureDebut, tbl_Journal.jou_NoVehicule, tbl_Journal.jou_rep, tbl_Journal.jou_NoSAP, tbl_Journal.jou_StatutSAP, tbl_Journal.jou_DateFin, tbl_Journal.jou_HeureFin, tbl_Journal.jou_remarque, tbl_Journal.jou_DpAvise, tbl_Journal.jou_Termine, tbl_Journal.jou_Suppr "
    strSQL = strSQL & "FROM tbl_Vehicules INNER JOIN (tbl_Trafic INNER JOIN (tbl_Sorte INNER JOIN (tbl_Lieu INNER JOIN tbl_Journal ON tbl_Lieu.lieu_Id = tbl_Journal.jou_lieu_Id) ON tbl_Sorte.sor_Id = tbl_Journal.jou_sor_Id) ON tbl_Trafic.tra_Id = tbl_Journal.jou_tra_Id) ON tbl_Vehicules.veh_Id = tbl_Journal.jou_veh_Id "
    strSQL = strSQL & "WHERE (((tbl_Trafic.tra_Trafic)='Journal RV') AND ((tbl_Journal.jou_DateDebut)<" & strDate & ") AND ((tbl_Journal.jou_Termine)=False) AND ((tbl_Journal.jou_Suppr)=False));"
 
    'MsgBox strSQL
 
    'Ouverture de l'état
    Set db = CurrentDb
    Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

[Godzestla]

Bonjour,

Malheureusement cette requête SQL ne fonctionne pas.

cela ne suffit pas comme explication pour pouvoir t'aider.

Erreur ? Message ? ....
Que vaut StrSQL ?

[cyb33]

Il n'y a aucun message d'erreur, l'état s'ouvre avec toutes les données de la requête source. Le filtre que doit effectuer la requête SQL ne fonctionne pas.

La valeur de strSQL est :

Code sql :

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

1
2
3
SELECT tbl_Journal.jou_Id, tbl_Trafic.tra_Trafic, tbl_Lieu.lieu_Abrev, tbl_Journal.jou_DateDebut, tbl_Journal.jou_HeureDebut, tbl_Journal.jou_NoVehicule, tbl_Journal.jou_rep, tbl_Journal.jou_NoSAP, tbl_Journal.jou_StatutSAP, tbl_Journal.jou_DateFin, tbl_Journal.jou_HeureFin, tbl_Journal.jou_remarque, tbl_Journal.jou_DpAvise, tbl_Journal.jou_Termine, tbl_Journal.jou_Suppr
FROM tbl_Vehicules INNER JOIN (tbl_Trafic INNER JOIN (tbl_Sorte INNER JOIN (tbl_Lieu INNER JOIN tbl_Journal ON tbl_Lieu.lieu_Id = tbl_Journal.jou_lieu_Id) ON tbl_Sorte.sor_Id = tbl_Journal.jou_sor_Id) ON tbl_Trafic.tra_Id = tbl_Journal.jou_tra_Id) ON tbl_Vehicules.veh_Id = tbl_Journal.jou_veh_Id
WHERE (((tbl_Trafic.tra_Trafic)='Journal RV') AND ((tbl_Journal.jou_DateDebut)<#12/12/2008#) AND ((tbl_Journal.jou_Termine)=False) AND ((tbl_Journal.jou_Suppr)=False));

[EddiGordo]

Bonjour,

En fait dans ton code tu crée un objet recordset mais tu ne t'en sers pas... Essaie en spécifiant à ton état ce que doit être sa requête source avec un code du genre :

Code :

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

1
2
 
    NomdeTonEtat.RecordSource = strSQL

[cyb33]

Super, ça fait plaisir de pouvoir se faire aider par des as en la matière.

Encore merci pour votre aide.

Meilleures salutations