Ver Mensaje Individual
  #1 (permalink)  
Antiguo 17/10/2008, 03:37
erDanielillo
 
Fecha de Ingreso: agosto-2008
Mensajes: 73
Antigüedad: 16 años, 8 meses
Puntos: 0
Menu de herramientas con vb

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