[AccessD] Custom toolbar

Chester,
Try a function like this:

Function AddCommandBar(ByVal OldToolbar As String, ByVal NewToolBar As String)
    Dim cb As CommandBar, ct As Object
    Application.CommandBars.Add (NewToolBar)
    Set cb = CommandBars(NewToolBar)
    For Each ct In CommandBars(OldToolbar).Controls
        ct.Copy cb
    Next ct
End Function

Asger
-----Oprindelig meddelelse-----
Fra: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] På vegne af Kaup, Chester
Sendt: 22. februar 2010 20:22
Til: Access Developers discussion and problem solving
Emne: [AccessD] Custom toolbar

I have a custom toolbar in a database. I would like to replicate the tool bar in the same database and add some more commands. How would I do this? I only find info on copying to another databse.


Chester Kaup

Engineering Technician

Kinder Morgan CO2 Company, LLP

Office (432) 688-3797

FAX (432) 688-3799





No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced.

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com