A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Access » Using Forms
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Listbox on Toolbar



 
 
Thread Tools Display Modes
  #1  
Old May 26th, 2004, 11:31 AM
Rolf Gossen
external usenet poster
 
Posts: n/a
Default Listbox on Toolbar

Hi NG,

I'am working with Access 2003 and I would like to put a Listbox on a
customized Toolbar. The Fomatting-Toolbox for example has three
Listboxes on it. So why shouldn't it be possible to display a Listbox
on a customized Access-Toolbar. But I have no idea how to do it. Can
anyone help ?

Thanks
Rolf
  #2  
Old May 26th, 2004, 02:04 PM
Rick Brandt
external usenet poster
 
Posts: n/a
Default Listbox on Toolbar

"Rolf Gossen" wrote in message
om...
Hi NG,

I'am working with Access 2003 and I would like to put a Listbox on a
customized Toolbar. The Fomatting-Toolbox for example has three
Listboxes on it. So why shouldn't it be possible to display a Listbox
on a customized Access-Toolbar. But I have no idea how to do it. Can
anyone help ?



Public Sub CreateMenuList()

Dim V As Object
Dim MenuList As Object

Set V = CommandBars("MenuBarName")
Set MenuList = V.Controls(1)
MenuList.DropDownLines = 5
MenuList.Width = 150
MenuList.DropDownWidth = 150
MenuList.AddItem "FirstItemInList"
MenuList.AddItem "SecondItemInList"
MenuList.AddItem "ThirdItemInList"
MenuList.AddItem "FourthItemInList"
MenuList.AddItem "FifthItemInList"
Set MenuList = Nothing
Set V = Nothing

End Sub


--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com


  #3  
Old May 26th, 2004, 02:49 PM
Rick Brandt
external usenet poster
 
Posts: n/a
Default Listbox on Toolbar - CORRECTION

"Rick Brandt" wrote in message
...

Previous post was missing a line

Public Sub CreateMenuList()

Dim V As Object
Dim MenuList As Object

Set V = CommandBars("MenuBarName")
V.Controls.Add 4, 1
Set MenuList = V.Controls(1)
MenuList.DropDownLines = 5
MenuList.Width = 150
MenuList.DropDownWidth = 150
MenuList.AddItem "FirstItemInList"
MenuList.AddItem "SecondItemInList"
MenuList.AddItem "ThirdItemInList"
MenuList.AddItem "FourthItemInList"
MenuList.AddItem "FifthItemInList"
Set MenuList = Nothing
Set V = Nothing

End Sub


 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 12:43 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.