peut-être completer
par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Dim db As Database Dim rs As Recordset Dim rs2 As Recordset
et rajouter
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs2 As DAO.Recordset
ajouter quelques parenthèses
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Set rs = db.OpenRecordset("SELECT 'fnc_lvl' & [fnc_lvl_no] AS fnc_lvl , ou_no FROM dbo_vw_ou WHERE ou_no = " & chr$(34) & entity & chr$(34) & ";")
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 "Select ou_no, cd_fuid, ou_name as ou_short_name, ou_name, ou_start_dt, ou_end_dt, fnc_lvl_no as lvl from dbo_vw_ou where ((" & lvl & " = " & entity & ") and (dbo_vw_ou.ou_name Not Like '*technical*') and (dbo_vw_ou.Cd_Fuid<>''));"
Partager