J'utilise actuellement la formule suivant, trouvée sur
http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form
Dim Ctl As Control
Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone
de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi
mettre comme syntaxe, ou quoi modifier dans la fonction.
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
Raymond [mvp]
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le nom du sous-formulaire. Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form Dim Ctl As Control Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi mettre comme syntaxe, ou quoi modifier dans la fonction.
Quelqu'un peut-il me'aiguiller ? Merci d'avance,
Kolonna.
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le
nom du sous-formulaire.
Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" <Kolonna@discussions.microsoft.com> a écrit dans le message de
news: 28990117-7CE2-4627-A34C-785BCEB7B8A6@microsoft.com...
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur
http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form
Dim Ctl As Control
Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone
de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi
mettre comme syntaxe, ou quoi modifier dans la fonction.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le nom du sous-formulaire. Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form Dim Ctl As Control Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi mettre comme syntaxe, ou quoi modifier dans la fonction.
Quelqu'un peut-il me'aiguiller ? Merci d'avance,
Kolonna.
Kolonna
J'ai fait un test avec une nouvelle variable string SousFormName et Set Frm = Forms(FormName)(SousFormName) Function PrepareList(FormName As String, SousFormName As String, ControlName As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le nom du sous-formulaire. Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form Dim Ctl As Control Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi mettre comme syntaxe, ou quoi modifier dans la fonction.
Quelqu'un peut-il me'aiguiller ? Merci d'avance,
Kolonna.
J'ai fait un test avec une nouvelle variable string SousFormName et
Set Frm = Forms(FormName)(SousFormName)
Function PrepareList(FormName As String, SousFormName As String, ControlName
As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le
nom du sous-formulaire.
Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" <Kolonna@discussions.microsoft.com> a écrit dans le message de
news: 28990117-7CE2-4627-A34C-785BCEB7B8A6@microsoft.com...
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur
http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form
Dim Ctl As Control
Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone
de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi
mettre comme syntaxe, ou quoi modifier dans la fonction.
J'ai fait un test avec une nouvelle variable string SousFormName et Set Frm = Forms(FormName)(SousFormName) Function PrepareList(FormName As String, SousFormName As String, ControlName As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le nom du sous-formulaire. Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form Dim Ctl As Control Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi mettre comme syntaxe, ou quoi modifier dans la fonction.
Quelqu'un peut-il me'aiguiller ? Merci d'avance,
Kolonna.
Raymond [mvp]
il faudrait que je reprenne toute la fonction pour ajuster les objets. je le note pour le faire dès que j'aurai le temp mais pas cette semaine.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
J'ai fait un test avec une nouvelle variable string SousFormName et Set Frm = Forms(FormName)(SousFormName) Function PrepareList(FormName As String, SousFormName As String, ControlName As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le nom du sous-formulaire. Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form Dim Ctl As Control Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi mettre comme syntaxe, ou quoi modifier dans la fonction.
Quelqu'un peut-il me'aiguiller ? Merci d'avance,
Kolonna.
il faudrait que je reprenne toute la fonction pour ajuster les objets.
je le note pour le faire dès que j'aurai le temp mais pas cette semaine.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" <Kolonna@discussions.microsoft.com> a écrit dans le message de
news: A956D98F-EABF-40C2-81F1-1BBE618D752B@microsoft.com...
J'ai fait un test avec une nouvelle variable string SousFormName et
Set Frm = Forms(FormName)(SousFormName)
Function PrepareList(FormName As String, SousFormName As String,
ControlName
As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter
le
nom du sous-formulaire.
Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" <Kolonna@discussions.microsoft.com> a écrit dans le message de
news: 28990117-7CE2-4627-A34C-785BCEB7B8A6@microsoft.com...
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur
http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form
Dim Ctl As Control
Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma
zone
de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi
mettre comme syntaxe, ou quoi modifier dans la fonction.
il faudrait que je reprenne toute la fonction pour ajuster les objets. je le note pour le faire dès que j'aurai le temp mais pas cette semaine.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
J'ai fait un test avec une nouvelle variable string SousFormName et Set Frm = Forms(FormName)(SousFormName) Function PrepareList(FormName As String, SousFormName As String, ControlName As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le nom du sous-formulaire. Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form Dim Ctl As Control Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi mettre comme syntaxe, ou quoi modifier dans la fonction.
Quelqu'un peut-il me'aiguiller ? Merci d'avance,
Kolonna.
Kolonna
Normal ! Tiens moi au courant si t'as le temps,
Merci, A+
il faudrait que je reprenne toute la fonction pour ajuster les objets. je le note pour le faire dès que j'aurai le temp mais pas cette semaine.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
J'ai fait un test avec une nouvelle variable string SousFormName et Set Frm = Forms(FormName)(SousFormName) Function PrepareList(FormName As String, SousFormName As String, ControlName As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le nom du sous-formulaire. Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form Dim Ctl As Control Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi mettre comme syntaxe, ou quoi modifier dans la fonction.
Quelqu'un peut-il me'aiguiller ? Merci d'avance,
Kolonna.
Normal !
Tiens moi au courant si t'as le temps,
Merci,
A+
il faudrait que je reprenne toute la fonction pour ajuster les objets.
je le note pour le faire dès que j'aurai le temp mais pas cette semaine.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" <Kolonna@discussions.microsoft.com> a écrit dans le message de
news: A956D98F-EABF-40C2-81F1-1BBE618D752B@microsoft.com...
J'ai fait un test avec une nouvelle variable string SousFormName et
Set Frm = Forms(FormName)(SousFormName)
Function PrepareList(FormName As String, SousFormName As String,
ControlName
As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter
le
nom du sous-formulaire.
Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" <Kolonna@discussions.microsoft.com> a écrit dans le message de
news: 28990117-7CE2-4627-A34C-785BCEB7B8A6@microsoft.com...
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur
http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form
Dim Ctl As Control
Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma
zone
de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi
mettre comme syntaxe, ou quoi modifier dans la fonction.
il faudrait que je reprenne toute la fonction pour ajuster les objets. je le note pour le faire dès que j'aurai le temp mais pas cette semaine.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
J'ai fait un test avec une nouvelle variable string SousFormName et Set Frm = Forms(FormName)(SousFormName) Function PrepareList(FormName As String, SousFormName As String, ControlName As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le nom du sous-formulaire. Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form Dim Ctl As Control Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi mettre comme syntaxe, ou quoi modifier dans la fonction.
Quelqu'un peut-il me'aiguiller ? Merci d'avance,
Kolonna.
cabinet.irdem
bonjour c'est irdem Raymond à complétement raison spécifie le formulaire et le sous formulaire bonjour Raymond
Normal ! Tiens moi au courant si t'as le temps,
Merci, A+
il faudrait que je reprenne toute la fonction pour ajuster les objets. je le note pour le faire dès que j'aurai le temp mais pas cette semaine.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
J'ai fait un test avec une nouvelle variable string SousFormName et Set Frm = Forms(FormName)(SousFormName) Function PrepareList(FormName As String, SousFormName As String, ControlName As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le nom du sous-formulaire. Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form Dim Ctl As Control Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi mettre comme syntaxe, ou quoi modifier dans la fonction.
Quelqu'un peut-il me'aiguiller ? Merci d'avance,
Kolonna.
bonjour c'est irdem
Raymond à complétement raison spécifie le formulaire et le sous formulaire
bonjour Raymond
Normal !
Tiens moi au courant si t'as le temps,
Merci,
A+
il faudrait que je reprenne toute la fonction pour ajuster les objets.
je le note pour le faire dès que j'aurai le temp mais pas cette semaine.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" <Kolonna@discussions.microsoft.com> a écrit dans le message de
news: A956D98F-EABF-40C2-81F1-1BBE618D752B@microsoft.com...
J'ai fait un test avec une nouvelle variable string SousFormName et
Set Frm = Forms(FormName)(SousFormName)
Function PrepareList(FormName As String, SousFormName As String,
ControlName
As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter
le
nom du sous-formulaire.
Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" <Kolonna@discussions.microsoft.com> a écrit dans le message de
news: 28990117-7CE2-4627-A34C-785BCEB7B8A6@microsoft.com...
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur
http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form
Dim Ctl As Control
Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma
zone
de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi
mettre comme syntaxe, ou quoi modifier dans la fonction.
bonjour c'est irdem Raymond à complétement raison spécifie le formulaire et le sous formulaire bonjour Raymond
Normal ! Tiens moi au courant si t'as le temps,
Merci, A+
il faudrait que je reprenne toute la fonction pour ajuster les objets. je le note pour le faire dès que j'aurai le temp mais pas cette semaine.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
J'ai fait un test avec une nouvelle variable string SousFormName et Set Frm = Forms(FormName)(SousFormName) Function PrepareList(FormName As String, SousFormName As String, ControlName As String) As Boolean
Ca ne semble pas fonctionner...
Bonjour.
il faut changer la ligne set portant sur le formulaire Frm pour rajouter le nom du sous-formulaire. Set Frm = Forms(FormName)(sous-form)
je n'ai pas testé, à voir. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Kolonna" a écrit dans le message de news:
Bonjour à tous,
J'utilise actuellement la formule suivant, trouvée sur http://officesystem.access.free.fr/ex_selection_multiple.htm
Dim Frm As Form Dim Ctl As Control Dim varItm As VariantPublic 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
Ca fonctionne très bien, mais j'aimerai pouvoir l'employer lorsque ma zone de liste se trouve dans un sous-formulaire. Et là, je ne sais plus quoi mettre comme syntaxe, ou quoi modifier dans la fonction.
