Barra de menus

[Eduardo Engemann]

Caros amigos to usando uma exemplo para meu bd e to modifanco ela e agora gostaria de modificar um barra já pronta , já consegui modifica seu nome e agora quero modificar seu conteudo os nomes como fazer , ele tem um modoulo que se chama modBarra, seu codigo é o seguinte:

Option Compare Database

Option Explicit

'*******************************************************************

'* Inicio *

'*******************************************************************

'DESENVOLVIDO POR SÉRGYO ROBERTO DA SILVA

'EMAIL: sergyors@bol.com.br

Function ocbars()

On Error GoTo Err_ocbars

'oculta barras de ferramentas padrão do access

DoCmd.ShowToolbar "Menu Bar", acToolbarNo

CommandBars("Database").Visible = False

Exit_ocbars:

Exit Function

Err_ocbars:

MsgBox "Contate o administrador do sistema", vbCritical, "BARRASDEMENU"

DoCmd.Quit

Resume Exit_ocbars

End Function

Function libbars()

On Error GoTo Err_libbars

'mostra barras de ferramentas padrão do access

DoCmd.ShowToolbar "Menu Bar", acToolbarYes

CommandBars("Database").Visible = True

Exit_libbars:

Exit Function

Err_libbars:

MsgBox "Contate o administrador do sistema", vbCritical, "BARRASDEMENU"

DoCmd.Quit

Resume Exit_libbars

End Function

Function barsform()

On Error GoTo Err_barsform

'mostra barras de ferramentas para formularios

DoCmd.ShowToolbar "BarIni", acToolbarNo

DoCmd.ShowToolbar "BarMenu", acToolbarNo

DoCmd.ShowToolbar "BarForm", acToolbarYes

Exit_barsform:

Exit Function

Err_barsform:

MsgBox "Contate o administrador do sistema", vbCritical, "BARRASDEMENU"

DoCmd.Quit

Resume Exit_barsform

End Function

Function barsmain()

On Error GoTo Err_barsmain

'mostra barras de ferramentas para menu principal

DoCmd.ShowToolbar "MDTrabCadastroFEIC", acToolbarYes

Exit_barsmain:

Exit Function

Err_barsmain:

MsgBox "Contate o administrador do sistema", vbCritical, "MDTrabCadastroFEIC"

DoCmd.Quit

Resume Exit_barsmain

End Function

Function barsini()

On Error GoTo Err_barsini

'mostra barras de ferramentas para inicial e login

DoCmd.ShowToolbar "BarIni", acToolbarYes

DoCmd.ShowToolbar "BarForm", acToolbarNo

DoCmd.ShowToolbar "BarMenu", acToolbarNo

Exit_barsini:

Exit Function

Err_barsini:

MsgBox "Contate o administrador do sistema", vbCritical, "BARRASDEMENU"

DoCmd.Quit

Resume Exit_barsini

End Function

Function nobars()

On Error GoTo Err_nobars

'oculta todas as barras

DoCmd.ShowToolbar "MDTrabCadastroFEIC", acToolbarNo

CommandBars("Database").Visible = False

DoCmd.ShowToolbar "SRLogin", acToolbarNo

Exit_nobars:

Exit Function

Err_nobars:

MsgBox "Contate o administrador do sistema", vbCritical, "SRLogin"

DoCmd.Quit

Resume Exit_nobars

End Function

Function ajustaform()

On Error GoTo Err_ajustaform

' ajusta form na tela

DoCmd.Restore

DoCmd.MoveSize 270, 0, 11650, 7390

Exit_ajustaform:

Exit Function

Err_ajustaform:

MsgBox Err.Description

Resume Exit_ajustaform

End Function

'*******************************************************************

'* Fim *

'*******************************************************************

o exmplo ta no seguinte link:

http://www.4shared.com/document/vLNqzyQc/SR_LOGIN_II.html

arquivo de texto com informaçoes relevantes o bd:

http://www.4shared.com/document/JMRRyjrs/LEIA-ME.html

desdeja agradeço aos que vem me dando conselhos e ajuda, fico grato.

que Deus esteja com vocês meus amigos

e-mail para contato e enviar soluções e resposta: eduardo.engemann@gmail.com

Umforte abraço

Editado Abril 11, 2010 por Eduardo Engemann

[MrMALJ]

Crie sua própria barra de menu, vou deixar um link que explica como.

http://office.microsoft.com/pt-br/access/HP051890051046.aspx