N
news.microsoft.com
Hi all,
In a personal form, I use 2 combo
The first one allow to select the company the second one the name
when the company name changes, I extract a list of names from contact that
have the same
company name (using this function)
===============
Function ListUser()
target = item.companies
Set RepC = Application.GetNamespace("MAPI").Folders("public
folder").Folders("All public folder").Folders("My contact
adress").Folders("Contact B").Folders(target)
totalContct=RepC.items.count
Set FormPage = Item.GetInspector.ModifiedFormPages("Task1")
Set Control = FormPage.Controls("Uuser")
Control.clear
MyIndex=0
NbrI=0
switch=0
do while monindex < totalContct
MyIndex=MyIndex+1
Set myItem = Repc.Items(MyIndex)
Control.addItem myItem.fullname
loop
end Function
===========================
It was working rigth for a month, but now outlook hang's from time to time
when
we select a company in the 1st combo
Tks for help
In a personal form, I use 2 combo
The first one allow to select the company the second one the name
when the company name changes, I extract a list of names from contact that
have the same
company name (using this function)
===============
Function ListUser()
target = item.companies
Set RepC = Application.GetNamespace("MAPI").Folders("public
folder").Folders("All public folder").Folders("My contact
adress").Folders("Contact B").Folders(target)
totalContct=RepC.items.count
Set FormPage = Item.GetInspector.ModifiedFormPages("Task1")
Set Control = FormPage.Controls("Uuser")
Control.clear
MyIndex=0
NbrI=0
switch=0
do while monindex < totalContct
MyIndex=MyIndex+1
Set myItem = Repc.Items(MyIndex)
Control.addItem myItem.fullname
loop
end Function
===========================
It was working rigth for a month, but now outlook hang's from time to time
when
we select a company in the 1st combo
Tks for help