1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| If Len(sDossier) > 0 Then
If Len(sWhere) > 0 Then
sWhere = sWhere & "AND " & sDossier & " "
Else
sWhere = "WHERE " & sDossier & " "
End If
End If
If Len(sStructure) > 0 Then
If Len(sWhere) > 0 Then
sWhere = sWhere & "AND " & sStructure & " "
Else
sWhere = "WHERE " & sStructure & " "
End If
End If
SQL = "SELECT tblControle.*, tblOrigine.CodeOrigine, tblNature.CodeNature, tblMDR.CodeMDR " & _
"FROM tblMDR INNER JOIN (tblNature INNER JOIN (tblOrigine INNER JOIN tblControle ON tblOrigine.IDOrigine = tblControle.IDOrigine) " & _
"ON tblNature.IDNature = tblControle.IDNature) ON tblMDR.IDCible = tblControle.IDCible " & _
sWhere & _
"ORDER BY tblControle.NumCtl DESC;" |
Partager