Discussion :

[alaingui]

Bonjour

j'ai résolu mes autres soucis reste plus que celui la (pour l'instant)
J'ai donc une requete

Code :

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

1
2
3
4
5
PARAMETERS param Byte;
SELECT Table1.Nom, Table1.LSP
FROM Table1
GROUP BY Table1.Nom, Table1.LSP
HAVING (((c_and([table1].[LSP],[param]))=True));

j'aimerais y accéder depuis VBA Excel en DAO ou ADO
j'ai tenté en DAO mais cela ne fonctionne pas... Il me dit que la fonction c_and n'existe pas.
je vous mets mes fichiers de tests il s'agit du bouton req2 (le chemin est déclaré en haut du code)
Je ne suis pas sur que l'on puisse le faire ....

[wape]

Bonsoir,

Ci-joint une solution qui semble fonctionner...
Les modifications effectuées sont commentées dans le code.

wape

[alaingui]

merci pour ta réponse
mais le traitement devient drolement long et je perds donc tout interet de ma fonction and ...

[=JBO=]

Bonjour,

Depuis Jet 4 (apparu avec Access 2000), le SQL offre les opérateurs binaires BAND, BOR (et les autres ?).
Mais ils ne sont utilisables qu'avec ADO (ni DAO, ni mode graphique dans Access).

Au lieu d'appeler la requête dans le fichier MDB, tu pourrais construire cette requête dans Excel (en utilisant l'opérateur BAND) et l'exécuter avec ADO.

Ainsi, tu n'aurais plus besoin d'appeler la fonction utilisateur dans Access.
_

[alaingui]

merci pour cette nouvelle approche

j'ai testé et c'est ok :

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
Dim db As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
 
Set db = New ADODB.Connection
With db
  .provider = "Microsoft.JET.OLEDB.4.0"
  .ConnectionString = ActiveWorkbook.Path + "\" + nom_base
  .ConnectionTimeout = 6
  .CommandTimeout = 60
  .Open
End With
 
    Set cmd = New ADODB.Command
    With cmd
            .ActiveConnection = db
            pp = InputBox("Votre clé :", , 1)
            .CommandText = "select nom,LSP from table1 where (table1.LSP BAND " & pp & ")=table1.LSP;"  'nom de la requete
            Set rst = .Execute

Bilan

ok pour pour ma fonction qui est en fait avantageusement remplacer par BAND
PAr contre appelable unquiment en ADO et non en DAO
Et visiblement pas possible d'appeler une fonction déclarée VBA access en VBA excel ..

j'ai mis en pièce jointe le code modifié

[alaingui]

oups
j'ai oublié
ou puis-je trouver de la doc sur BAND ou BOR

merci