Discussion :

[Warwolf]

Bonjour,

Je suis confronté à cet erreur, bien que je ne vois pas quel opérateur est manquant ou inexistant.

Je manque de pratique et d'expérience, alors je n'ai pas forcément l'oeil pour repérer si ça vient d'ailleurs, si une personne plus avertie que moi repère autre chose, merci de bien vouloir m'éclairer.


Voici le bout de code qui pose soucis.

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
df = Format(Now(), "mm/dd/yyyy")
i = 1
Dim date_heure As Date
SQL_def = "SELECT [Parc Z2N].rame_complète, defauts_NAT.[Date], defauts_NAT.première, defauts_NAT.vu, defauts_NAT.exploitation FROM [Parc Z2N] INNER JOIN defauts_NAT ON [Parc Z2N].véhicule = defauts_NAT.Véhicule WHERE defauts_nat.vu = false and defauts_nat.[date] < #" & df & "#;" '[WHERE defauts_nat.vu=True] pour un reset
Set rs_def = CurrentDb.OpenRecordset(SQL_def)
rs_def.MoveLast
DoCmd.OpenForm "F_avancement"
Forms!F_avancement!afaire = rs_def.RecordCount
rs_def.MoveFirst
 
 
Do While Not rs_def.EOF
Forms!F_avancement!reste = i
DoCmd.SetWarnings False
rame_def = rs_def("rame_complète").Value
 
'If rame_def = 154 Then
'lsq = 1
'End If
 
date_heure = Format(rs_def("Date").Value & " " & rs_def("première"), "dd/mm/yy hh:mm:ss")
'test = rs_def("Date").Value & " " & rs_def("première").Value
 
SQL_Exploit_Z2N = "SELECT Exploit_Z2N.Rame, Exploit_Z2N.début_exploitation, Exploit_Z2N.fin_exploitation"
SQL_Exploit_Z2N = SQL_Exploit_Z2N & " WHERE ((Exploit_Z2N.Rame) Like '" & rame_def & "') AND (Exploit_Z2N.début_exploitation >= #" & DateAdd("n", -15, date_heure) & "#) AND (Exploit_Z2N.fin_exploitation  <= #" & DateAdd("n", 15, date_heure) & "#)) ;"
Set rs_Exploit_Z2N = CurrentDb.OpenRecordset(SQL_Exploit_Z2N)

Et c'est donc sur cette dernière ligne qu'Access me barre la route avec cette erreur 3075.

Merci d'avance !

[Warwolf]

Dieu que suis-je bête et aveugle, il me manque juste la clause FROM mais bon ...