[Resolvido]Ajuda com Menu Interativo

Boa tarde companheiros,

Um grande abraço a todos que fazem esse esplendoroso fórum... Deus os abençoe de forma grandiosa...

Venho mais uma vez pedir ajuda aos companheiros. Hoje referente a uma dificuldade que surgiu quando comecei um projeto no Access... É com um Menu interativo que peguei o script aqui no fórum...

É o seguinte, conforme imagem abaixo, criei os botões e ativei os forms como Menus e ao Passar o mouse sobre os botões exibe os Menus com os botões.

A dificuldade é que ao passar o Mouse o menu é exibido abaixo do Botão em referência, só que AO PERDER FOCO, os menus não ficam ocultos... Ou seja, estou precisando de uma função que ao "tirar o ponteiro do mouse de sobre o botão, oculte o menu".

Desde já agradeço a todos pela ajuda que sempre tem nos dado...

Abraço a todos,

Veja esse exemplo:

Grande Tauron, boa tarde.

Baixei o mdb, vou ver se adapto a minha necessidade. No meu caso, fiz com botões, no projeto do mdb, está com label...

Desde já agradeço, pela ajuda e atenção...

Grande Tauron, bom dia...

Consegui resolver a parada de outra forma...

Vou deixar o Exemplo aqui para outros que quiserem implementar um Menu simples na aplicação, sem muito rodeio...

Lembrando, os Scriptes foram encontrados aqui na sala de REPOSITÓRIOS. Por tanto, não é minha autoria...

As informações que constam nesse BD ajuda bastante...

Gostaria de pedir sua ajuda só em mais uma coisa, e creio que como você é fera pode me dar uma dica e já fecho o chamado...

-----------------------------------------------------------------------------------------

Tenho uma caixa de combinação Menu no form principal do Sistema. Estou usando o script abaixo para conectar e abrir os forms indicados. Só que o que estou precisando é: usar essa combo, tanto para escolher na lista de formulários que está numa tabela, como ao digitar a descrição, também abrir ao dar enter... Ou seja, pesquisar digitando ou escolhendo na combo.

Tem como fazer isso numa combo?

Segue excript usado:

Private Sub cboMENUS_AfterUpdate()
If cboMENUS.Text = "Visualizar Relatórios" Then
DoCmd.OpenForm "frmRelatórios", acNormal, "", "", , acNormal
ElseIf cboMENUS.Text = "Cadastro de Fornecedores" Then
DoCmd.OpenForm "frmCadFornec", acNormal, "", "", , acNormal
ElseIf cboMENUS.Text = "Cadastro de Empresas" Then
DoCmd.OpenForm "frmCadEmpresa", acNormal, "", "", , acNormal
ElseIf cboMENUS.Text = "Cadastro de Funcionários" Then
DoCmd.OpenForm "frmCadFunc", acNormal, "", "", , acNormal
ElseIf cboMENUS.Text = "Área de Login" Then
DoCmd.OpenForm "frmLogin", acNormal, "", "", , acNormal
ElseIf cboMENUS.Text = "Ajuda do Sistema" Then
DoCmd.OpenForm "frmAjuda", acNormal, "", "", , acNormal
ElseIf cboMENUS.Text = "Faça sua Doação" Then
DoCmd.OpenForm "frmDoações", acNormal, "", "", , acNormal
End If

Exit Sub
End Sub

No Ao Alterar da Combo:

Private Sub cboMENUS_Change()
If Me.NewRecord Then
cboMENUS = vbNull
Else
cboMENUS = ""
End If
End Sub

Por favor me ajude...

Agradeço desde já...

Boa tarde a todos... Deu certo... Já consegui resolver...

Resolvido