AJUDA NO [Ô]MENU[Ô] VBA NO ACCES 2007
Pessoal me ajudem...
Quando utilizava o Access 2003 eu conseguia colocar a opção [Ô]Janela[Ô] no meu menu, mas agora estou utilizando o Access 2007 e não estou conseguindo colocar está opção , pois o Access 2007 utiliza as [Ô]abas[Ô] mas como muitos dos meus clientes ainda utilizam o Access 2003 ainda preciso ter a opção [Ô]Janela[Ô] no menu.
Muito Obrigado
Quando utilizava o Access 2003 eu conseguia colocar a opção [Ô]Janela[Ô] no meu menu, mas agora estou utilizando o Access 2007 e não estou conseguindo colocar está opção , pois o Access 2007 utiliza as [Ô]abas[Ô] mas como muitos dos meus clientes ainda utilizam o Access 2003 ainda preciso ter a opção [Ô]Janela[Ô] no menu.
Muito Obrigado
Poste um exemplo de um MDB (na versão 2003) aqui no tópico.
No 2003 eu clicava com o botão direito no menu e depois [Ô]Personalizar[Ô] lá eu colocava o menu [Ô]Janelas e Ajuda[Ô].
Eu consegui fazer assim no 2007.
Public Function AbrirAcessoRapido()
On Error GoTo trataerro
Dim vNomeFuncao As String
vNomeFuncao = CommandBars.ActionControl.Parameter
RunCommand acCmdMoreWindows
trataerro:
If Err.Number = 2501 Or Err.Number = 2046 Then
Exit Function
End If
If Err.Number <> 0 Then
MsgBox [Ô]Erro nº [Ô] & Err.Number & vbLf & Err.Description, vbInformation, [Ô]AbrirAcessoRapido[Ô]
Exit Function
End If
End Function
Mas não estou achando o comando para poder [Ô]alternar janelas[Ô] que no caso seria [Ô]WindowsSwitch[Ô]
Eu consegui fazer assim no 2007.
Public Function AbrirAcessoRapido()
On Error GoTo trataerro
Dim vNomeFuncao As String
vNomeFuncao = CommandBars.ActionControl.Parameter
RunCommand acCmdMoreWindows
trataerro:
If Err.Number = 2501 Or Err.Number = 2046 Then
Exit Function
End If
If Err.Number <> 0 Then
MsgBox [Ô]Erro nº [Ô] & Err.Number & vbLf & Err.Description, vbInformation, [Ô]AbrirAcessoRapido[Ô]
Exit Function
End If
End Function
Mas não estou achando o comando para poder [Ô]alternar janelas[Ô] que no caso seria [Ô]WindowsSwitch[Ô]
[txt-color=#0000f0][txt-size=2]CAMPANHA DEIXE NOSSO SITE LIMPO, FECHE SEU TÓPICO ASSIM QUE TIVER UMA RESPOSTA SATISFATÓRIA.[/txt-size][/txt-color]
Tópico encerrado , respostas não são mais permitidas