Wenos dias, tengo el siguiente codigo para crearme una barra nueva de herramientas en el access, y me da el error de no se ha definido variable, Os dejo el codigo y espero q me podias ayudar
Public Sub ap_NuevoMenú()
Dim cmdNuevo As CommandBar
Dim cmcNuevo As CommandBarButton
On Error GoTo err_ap_NuevoMenú
Set cmdNuevo = CommandBar.Add(Name:="Cool", Position:=msoBarTop, Temporary:=True)
With cmdNuevo
.Visible = True
Set cbcNuevo = .Controls.Add(Type:=msoControButton, Temporary:=True)
With cbcNuevo
.caption = "Boton1"
.FaceId = 70
.Tag = "Boton1"
End With
Es una parte del codigo....
El fallo me lo da en cuando le asigno al cmdNuevo el CommandBar q me dice q commandBar no se ha definido variable :S:S Y la tengo arriba declarada
Un saludo y gracias
