Mu wenas, tengo el siguiente problemilla... E creado una barra de herramientas nueva para acces con vb pero no consigo q me salgan los botones primer registro siguiente registro ultimo registro anterior :S:S dejo parte del codigo ;)
Dim cbr As CommandBar
Dim btn As CommandBarButton
Set cbr = CommandBars.Add("cbrAbencorNueva", msoBarTop, True, True)
Set btn = cbr.Controls.Add(msoControlButton, CommandBars("Database").Controls("Guardar").Id)
DoCmd.RunCommand acCmdSave
Set btn = cbr.Controls.Add(msoControlButton, CommandBars("Table Design Datasheet Row").Controls("Último").Id)
With btn
.OnAction = "cmdLast_Click"
End With
Set btn = cbr.Controls.Add(msoControlButton, CommandBars("Table Datasheet").Controls("Orden ascendente").Id)
With btn
.BeginGroup = True
.OnAction = "cmdOrdenAsc_Click"
End With
Set btn = cbr.Controls.Add(msoControlButton, CommandBars("Table Datasheet").Controls("Orden descendente").Id)
With btn
.OnAction = "cmdOrdenDesc_Click"
End With
El orden ascendente y descendente si aparecen pero el de ultimo registro nop se q el fallo proviene de lo q va en comillas (" Table Datasheet") pero nose lo q tengo q poner para los registros....
Espero q me puedan ayudar!!!
Gracias y un saludo
