Discussion :

[helas]

peut-être completer

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

par

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

et rajouter

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) & ";")

ajouter quelques parenthèses

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<>''));"

[schuitonzo]

Il me renvoie encore une syntax error sur

Public Sub sqlcmd(entity As Integer, lvl As String)

[helas]

serait-il possible d'ajouter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Sub sqlcmd(entity As Integer, lvl As String)
 On Error Goto Erreur
 
 
 ...............
 
 Exit Sub
 Erreur:
 
 Stop
 Debug.print Error
 Resume
End Sub

L'erreur va stopper le code (Stop)
Faire du pas à pas pour afficher l'erreur dans la fenetre d'execution (Debug.Print Error)
Puis repérer la ligne qui provoque l'erreur (Resume)

si c'est la même ligne qui provoque l'erreur, taper ?tx dans la fenetre d'execution

si la syntaxe est correcte, verifier le type des champs
numerique (" & lvl & " = " & entity & " and
texte ('" & lvl & "' = '" & entity & "' and