[Resolvido]Barra de Menus Access 2003

Bom dia amigos...

Bem como nunca trabalhei com essas barras de menu´s estou encontrando problemas em adptar um aplicativo ao meu.
Tenho um modelo com essas barras, onde em um dos forms, em propriedades, outras, Barras de menu de atalhos, tem uma referencia a um objeto ou código... para se abrir um menu..

O sistema tambem tem os menus feitos em access 2003, os que foram substituidos pelas ribbons.

Ocorre que ao importar o form para o meu projeto, isto nao funciona.. e ja revirei o exemplo e não sei onde encontrar ou como confeccionar essa barras personalizadas



Se puderem ajuda, fico grato.

E aí amigão, tudo tranquilo? Veja se ajuda:

---

DA MICROSOFT:

http://office.microsoft.com/pt-br/access-help/criar-menus-e-menus-de-atalho-personalizados-usando-macros-HA010282509.aspx

---

DO SITE LINHA DE CÓDIGO DIVIDIDO EM VÁRIAS PARTES/EXEMPLOS

http://www.linhadecodigo.com.br/artigo/526/criando-menus-personalizados-no-ms-access.aspx

http://www.linhadecodigo.com.br/artigo/569/criando-menus-personalizados-no-ms-access---parte-2.aspx

http://www.linhadecodigo.com.br/artigo/720/criando-menus-personalizados-no-ms-access---parte-3.aspx

http://www.linhadecodigo.com.br/artigo/731/video-criando-menus-personalizados-no-ms-access---parte-4.aspx

http://www.linhadecodigo.com.br/artigo/732/video-criando-menus-personalizados-no-ms-access---parte-5.aspx

---

Concordo Norbs, mas confesso que essa evolução eu não gostei... Seria melhor as duas opções!

Hary, algo que você deve tomar cuidado é se estiver programando com a versão 2010 do Access.
Pois mesmo que crie as barras de menus no 2003, ou via VBA, não terá como configurar a inicialização
da barra de menus para não ir para a aba suplementos (já tentei de várias formas, mas não encontrei como). Na versão 2007 ainda dá para configurar os menus para que não vá para os suplementos.


Agora para barras de menus de atalho, é simples de se fazer usando macros...
Via VBA, sempre uso esse exemplo da ajuda do Access 2010:

Sub CreateReportShortcutMenu()
Dim cmbRightClick As Office.CommandBar
Dim cmbControl As Office.CommandBarControl

' Create the shortcut menu.
Set cmbRightClick = CommandBars.Add("cmdReportRightClick", msoBarPopup, False, True)

With cmbRightClick

' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 2521, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Quick Print"

' Add the Print command.
Set cmbControl = .Controls.Add(msoControlButton, 15948, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Select Pages"

' Add the Page Setup... command.
Set cmbControl = .Controls.Add(msoControlButton, 247, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Page Setup"

' Add the Mail Recipient (as Attachment)... command.
Set cmbControl = .Controls.Add(msoControlButton, 2188, , , True)
' Start a new group.
cmbControl.BeginGroup = True
' Change the caption displayed for the control.
cmbControl.Caption = "Email Report as an Attachment"

' Add the PDF or XPS command.
Set cmbControl = .Controls.Add(msoControlButton, 12499, , , True)
' Change the caption displayed for the control.
cmbControl.Caption = "Save as PDF/XPS"

' Add the Close command.
Set cmbControl = .Controls.Add(msoControlButton, 923, , , True)
' Start a new group.
cmbControl.BeginGroup = True
' Change the caption displayed for the control.
cmbControl.Caption = "Close Report"
End With

Set cmbControl = Nothing
Set cmbRightClick = Nothing
End Sub

Quer dizer entao que como o meu é 2007 eu não consigo editar esses controles?

Marcelão, form que esta ai no print, esse atalho abre um pequeno menu com as opcoes editar e excluir...

Quer dizer que sem chances de eu editá-lo no 2007?

É uma pena, mas é isso mesmo
Terá criar outros, conforme postei...

Então tá então.. hehehe..

Bem, todas as mensagens me auxiliaram.

Os links passados pelo amigo críquio creio que vão servir para substituir os atalhos que preciso.

Obrogado a todos.

O menu que eu estava querendo, era acionao ao click do botão direito do mouse em uma listbox.
As opçoes deste menu eram Excluir e editar.

O link que se encaixou perfeitamente no que eu pretendia:

http://www.linhadecodigo.com.br/artigo/569/criando-menus-personalizados-no-ms-access---parte-2.aspx


Inclusive há o exemplo para baixar.

Ficou assim

No ínicio do módulo do form:
Option Compare Database
Option Explicit
Private Const BARRA As String = "MenuAtalhoForm"


Ao abrir o form:

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
'Executa rotina para menu de atalhos
Me.MenuAtalhoForm
End Sub


Sub MenuAtalhoForm()
Dim cmdBar As CommandBar
Dim mnu As CommandBarButton

delAtalho 'Apaga a barra de comando anterior caso ela exista
Set cmdBar = CommandBars.Add _
(Name:=BARRA, Position:=msoBarPopup, Temporary:=True)

Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "Menu Popup 1"
.OnAction = "msg1"
.FaceId = 308
End With

Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "Menu Popup 2"
.OnAction = "msg2"
.FaceId = 209
End With

Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "Menu Popup 3"
.OnAction = "msg3"
.FaceId = 1714
End With

Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "&Sobre..."
.OnAction = "sobre"
.FaceId = 326
.BeginGroup = True
End With

Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "&Ajuda"
.OnAction = "ajuda"
.FaceId = 984
.BeginGroup = True
End With

End Sub

'Apaga a barra de comando anterior caso ela exista
Sub delAtalho()
On Error Resume Next 'Continua a execução caso o menu não esteja presente
CommandBars(BARRA).Delete
End Sub


Show!

Uma questão amigos

Como executar uma rotina no OnAction... Estou tentando e não está funcionando

With mnu
.Caption = "Editar Contato"
.OnAction = Me.fEditarContato
.FaceId = 208
End With


Cumprimentos.

Olha so amigos...

O código só carrega a função se esta estiver em um módulo do BD, mas se estiver no módulo do form ele não carrega.

Há como modificar isto?

Se no módulo do BD

Sub EditarContato()
If IsNull(Forms!frmFornecedores!lista) Then Exit Sub
Forms!frmFornecedores!tx1 = Forms!frmFornecedores!lista.Column(2)
Forms!frmFornecedores!tx2 = Forms!frmFornecedores!lista.Column(3)
Forms!frmFornecedores!tx4 = Forms!frmFornecedores!lista.Column(4)
Forms!frmFornecedores!tx5 = Forms!frmFornecedores!lista.Column(5)
Forms!frmFornecedores!tx6 = Forms!frmFornecedores!lista.Column(6)
Forms!frmFornecedores!tx7 = Forms!frmFornecedores!lista.Column(7)
Forms!frmFornecedores!tx8 = Forms!frmFornecedores!lista.Column(1)
Forms!frmFornecedores!tx9 = Forms!frmFornecedores!lista.Column(
Forms!frmFornecedores!StatusEditar = -1
Forms!frmFornecedores!tx1.SetFocus
End Sub

Executa normal


Mas se no módulo do form:
Sub EdicarContato()
If IsNull(Me!lista) Then Exit Function
Me!tx1 = Me!lista.Column(2)
Me!tx2 = Me!lista.Column(3)
Me!tx4 = Me!lista.Column(4)
Me!tx5 = Me!lista.Column(5)
Me!tx6 = Me!lista.Column(6)
Me!tx7 = Me!lista.Column(7)
Me!tx8 = Me!lista.Column(1)
Me!tx9 = Me!lista.Column(
Me!StatusEditar = -1
Me!tx1.SetFocus
End Sub

Não executa;

Na mensagem 4, aquele código deve ser usado apenas uma vez, o menu ficará disponível sempre no banco
para qualquer formulário.
No seu, o menu apaga sempre que executa e recria? Eu não compreendi a razão...?

Boas Marcelo.

No meu caso, preciso de menu específico por formulário e campos.

Neste exemplo carrego o menu com 2 ítens, dependendo da condição de uauário:


Sub MenuAtalhoForm()
Dim cmdBar As CommandBar
Dim mnu As CommandBarButton

delAtalho 'Apaga a barra de comando anterior caso ela exista
Set cmdBar = CommandBars.Add _
(Name:=BARRA, Position:=msoBarPopup, Temporary:=True)

Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
If XAlterar = False Then GoTo Continuar 'Esta linha utilizo para verificar o tipo de autorização de usuário
With mnu
.Caption = "Editar Contato"
.OnAction = "EditarContato"
.FaceId = 31
End With
Continuar:
If XExcluir = False Then Exit Sub 'Esta linha utilizo para verificar o tipo de autorização de usuário
Set mnu = cmdBar.Controls.Add(Type:=msoControlButton)
With mnu
.Caption = "Excluir Contato"
.OnAction = "ExcluirContato"
.FaceId = 478
End With
End Sub


As linhas em vermelho executam uma sub, a questão é que se a sub ficar no módulo do form ele não é carregada.

somente carrega se ficar no modulo do projeto.

Cumprimentos.

Alguma sugestão sobre a msg de n. 14?


Cumprimentos.