Je tente depuis des heures de faire fonctionner l'exemple présenté dans
l'article publié à cette adresse :
http://officesystem.access.free.fr/ex_selection_multiple.htm
J'ai suivi avec soins toutes les étapes et vérifié le code mais j'obtiens
toujours le message suivant "Undefined function 'CompareList' in expression"
lorsque je click sur le bouton Command0. L'article propose l'instruction SQL
suivante dans la requête : SELECT Clients.* FROM Client WHERE
CompareList([numéro]) = True;
Y a t-il une erreur dans l'exemple ou je me suis bourré quelque part ?
Comment corriger ce problème. J'ai besoin de comprendre pour appliquer cette
exemple sur un travail que j'ai a compléter au bureau. merci de votre aide.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gafish
Bonjour,
SherMichel wrote:
Je tente depuis des heures de faire fonctionner l'exemple présenté dans l'article publié à cette adresse : http://officesystem.access.free.fr/ex_selection_multiple.htm J'ai suivi avec soins toutes les étapes et vérifié le code mais j'obtiens toujours le message suivant "Undefined function 'CompareList' in expression" lorsque je click sur le bouton Command0. L'article propose l'instruction SQL suivante dans la requête : SELECT Clients.* FROM Client WHERE CompareList([numéro]) = True;
Y a t-il une erreur dans l'exemple ou je me suis bourré quelque part ? Comment corriger ce problème. J'ai besoin de comprendre pour appliquer cette exemple sur un travail que j'ai a compléter au bureau. merci de votre aide.
As tu bien copié collé le code de la page dans un module de ta base, en laissant bien le mot "public" ? Car apparemment il ne trouve pas la fonction CompareList
Arnaud -- Charte du forum : http://www.mpfa.info/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
SherMichel wrote:
Je tente depuis des heures de faire fonctionner l'exemple présenté
dans l'article publié à cette adresse :
http://officesystem.access.free.fr/ex_selection_multiple.htm
J'ai suivi avec soins toutes les étapes et vérifié le code mais
j'obtiens toujours le message suivant "Undefined function
'CompareList' in expression" lorsque je click sur le bouton Command0.
L'article propose l'instruction SQL suivante dans la requête : SELECT
Clients.* FROM Client WHERE CompareList([numéro]) = True;
Y a t-il une erreur dans l'exemple ou je me suis bourré quelque part ?
Comment corriger ce problème. J'ai besoin de comprendre pour
appliquer cette exemple sur un travail que j'ai a compléter au
bureau. merci de votre aide.
As tu bien copié collé le code de la page dans un module de ta base, en
laissant bien le mot "public" ?
Car apparemment il ne trouve pas la fonction CompareList
Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Je tente depuis des heures de faire fonctionner l'exemple présenté dans l'article publié à cette adresse : http://officesystem.access.free.fr/ex_selection_multiple.htm J'ai suivi avec soins toutes les étapes et vérifié le code mais j'obtiens toujours le message suivant "Undefined function 'CompareList' in expression" lorsque je click sur le bouton Command0. L'article propose l'instruction SQL suivante dans la requête : SELECT Clients.* FROM Client WHERE CompareList([numéro]) = True;
Y a t-il une erreur dans l'exemple ou je me suis bourré quelque part ? Comment corriger ce problème. J'ai besoin de comprendre pour appliquer cette exemple sur un travail que j'ai a compléter au bureau. merci de votre aide.
As tu bien copié collé le code de la page dans un module de ta base, en laissant bien le mot "public" ? Car apparemment il ne trouve pas la fonction CompareList
Arnaud -- Charte du forum : http://www.mpfa.info/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
SherMichel
Bonjour,
SherMichel wrote:
Je tente depuis des heures de faire fonctionner l'exemple présenté
As tu bien copié collé le code de la page dans un module de ta base, en laissant bien le mot "public" ? Car apparemment il ne trouve pas la fonction CompareList
Arnaud -- Charte du forum : http://www.mpfa.info/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci pour ta prompte réponse Gafish.
Je t'ai collé ci-après le code de mon module standard que j'ai nommé ComparList:
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
J'espère que tu pourras y trouver l'erreur
Merci encore une fois pour ton aide précieuse. Bonne fin de journée
Bonjour,
SherMichel wrote:
Je tente depuis des heures de faire fonctionner l'exemple présenté
As tu bien copié collé le code de la page dans un module de ta base, en
laissant bien le mot "public" ?
Car apparemment il ne trouve pas la fonction CompareList
Arnaud
--
Charte du forum : http://www.mpfa.info/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci pour ta prompte réponse Gafish.
Je t'ai collé ci-après le code de mon module standard que j'ai nommé
ComparList:
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
J'espère que tu pourras y trouver l'erreur
Merci encore une fois pour ton aide précieuse. Bonne fin de journée
Je tente depuis des heures de faire fonctionner l'exemple présenté
As tu bien copié collé le code de la page dans un module de ta base, en laissant bien le mot "public" ? Car apparemment il ne trouve pas la fonction CompareList
Arnaud -- Charte du forum : http://www.mpfa.info/ Recherche dans les archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci pour ta prompte réponse Gafish.
Je t'ai collé ci-après le code de mon module standard que j'ai nommé ComparList:
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
J'espère que tu pourras y trouver l'erreur
Merci encore une fois pour ton aide précieuse. Bonne fin de journée
Eric
Bonjour, Le mdule ne doit pas porter le même nom que la fonction. Renommes le en modCompareList.
Je t'ai collé ci-après le code de mon module standard que j'ai nommé ComparList:
--
A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Le mdule ne doit pas porter le même nom que la fonction. Renommes le en
modCompareList.
Je t'ai collé ci-après le code de mon module standard que j'ai nommé
ComparList:
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
