bonjour à tous, mon problème est le suivant, j'aimerai envoyer laselection que je fait d'une liste à selection multiple vers une procédure stockée ou une view dans un projet ADP. sous access simple le code marche mais sous ADP il ne fonctionne pas.
je colle au dessous le mail que j'ai envoyer sur un forum américain, en espérant qu'une ame charitable a déjà été confronté à ce problèmé (cela fait une semaine que je ma triture le cerveau)
"hi.
first I have a table (Clients) with :
Numéro (number), Clients (char) as field.
I got a form with a listbox (Liste1) with column 1 bound to the table (Clients) and a command button that open a query on click :
my module contain:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub Commande0_Click() If Not PrepareList(Me.Name, Me.Liste1.Name) Then MsgBox "impossible de lancer la requête" Else DoCmd.OpenQuery "requête1" End If End Sub
and my query (requête1)got this code:
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
20
21
22
23
24
25
26
27
28
29 Option Compare Database Option Explicit Dim frm As Form Dim ctl As Control Dim varItm As Variant Public Function PrepareList(FormName As String, _ ControlName As String) As Boolean On Error GoTo Err_PrepareList Set frm = Forms(FormName) Set ctl = frm(ControlName) If ctl.ItemsSelected.Count = 0 Then GoTo Err_PrepareList PrepareList = True Exit Function Err_PrepareList: PrepareList = False End Function Public Function CompareList(ParameterValue As Variant) As Boolean For Each varItm In ctl.ItemsSelected If CStr(ParameterValue) = ctl.ItemData(varItm) Then CompareList = True Exit Function End If Next varItm CompareList = False End Function
when I select multiple item item on the list and after I click on yhe button, my selection is vivible on the query.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 SELECT Clients.* FROM Clients WHERE CompareList([numéro]) = True;
with access it works great but with ADP project, it says that ADO cannot read the (Comparelist) function that is written in my module. (as there are no query in ADP, I've tried with a view, function or procedure that I've call with:
for example)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub Commande0_Click() If Not PrepareList(Me.Name, Me.Liste1.Name) Then MsgBox "impossible de lancer la requête" Else DoCmd.OpenView "requête1" End If End Sub
I hope you've got all the informations.
thanx's for your help."
merci à vous
Partager