muy wenas!! Tengoe l siguiente dilema jejej quiero acer una nueva barra de herramienta en q aparezcan algunos comando en otro odenador funcionaba bien y en este me da error os dejo aqui una parte del codigo y os digo onde me falla..
Dim cbr As CommandBar
Dim btn As CommandBarButton
On Error Resume Next
CommandBars("Nombre").Delete
On Error GoTo 0
Set cbr = CommandBars.Add("Nombre", msoBarTop, True, True)
Set btn = cbr.Controls.Add(msoControlButton, CommandBars("Database").Controls("Guardar").Id)
DoCmd.RunCommand acCmdSave
(Aqui es donde me falla) Set btn = cbr.Controls.Add(msoControlButton, CommandBars("Database").Controls("Primer registro").Id)
With btn
.BeginGroup = True
.OnAction = "cmdFirst_Click"
End With
Espero vuestra ayuda y un saludo
