Bonjour;

J'essaie de faire une requête en VBA du type :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
requete = "ID_ACTION = '" & Me!lst_action & "' " & _
"and EXISTENCE= '" & Me!lst_existence & "' " & _
"and ANCIENNETE= '" & Me!lst_anciennete & "' " & _
"and APPLICATION= '" & Me!lst_application & "' " & _
"and ZONE_CLIM= '" & Me!lst_zone_clim & "' " & _
"and PERFORMANCE= '" & Me!lst_performance & "' " & _
"and SURF_PIECE= '" & Me!lst_surf_piece & "' " & _
"and ENERGIE= '" & Me!lst_energie & "' " & _
"and SECT_ACTIVITE= '" & Me!lst_sect_activite & "' " & _
"and USAGE= '" & Me!lst_usage & "' " & _
"and TYPE_EQUIP= '" & Me!lst_type_equip & "' " & _
"and MODE_SITE= '" & Me!lst_mode_site & "'"
coeff_c = DLookup("[COEFF_C]", "TAB CRITERE", requete)
Malheureusement, elle semble trop longue (> 256 caractères) et elle est tronquée. J'ai essayé avec DLookup, un recordset :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim requete As String
 
requete = "blah blah blah ...."
 
Set cn = CurrentProject.Connection
Set rst = cn.Execute(requete)
et même avec runsql mais je sais pas comment récupérer le résultat et il semblerait que cela ne fonctionne pas avec un select.

J'ai épuisé mes faibles connaissances en access et VBA. Quelqu'un aurait-il une solution ?

Merci d'avance