[Resolvido] - Como abrir formulários pela programação

Eai pessoal tudo bem?
Bom é o seguinte, eu peguei um exemplo de login que achei na internet do avelino sampaio, editei ele mais ou menos como eu entendo(não sou programador), e tipo deu certo, está funcionando corretamente a parte de login!

Minha dúvida é a seguinte:
Como eu faço pra abrir o formulário de menus pela programação?
Tipo eu escolho o usuário ali no login, coloco a senha, ai clico em ok e ele se desaparece, ai ai está correto, mas quando ele desaparece tem que chamar o formulário de menu, alguém pode me ajudar?

Abraços

Olá Guilherme, seja bem vindo ao forum.

Como insere o usuário e a senha? O usuário está em um combo ou você digita em uma caixa de texto?

Obrigado pelas boas vindas!

Está em combo ja cadastrado, tipo, tem só 2 usuários cadastrados, o usário e o admin

XD

Uma vez que você tem o usuário na combo, bom seria ter tambem a senha, ou seja, na hora de criar a combo, pegar os campos usuário e senha na tabela. Nas propriedades da combo, deixar a coluna da senha oculta, definindo a quantidade de colunas como 2 e o tamanho delas como 2cm;0cm por exemplo. Assim, a segunda coluna, a da senha, fica oculta. No evento "Ao clicar" de um botão, coloque algo como:

If Me.NomeCampoSenha = Me.NomeDaCombo.Column(1) Then
DoCmd.OpenForm "NomeDoFormulário"
Else
MsgBox "Senha incorreta. Tente novamente", vbCritical, "Erro"
Me.NomeCampoDaSenha.SetFocus
Me.NomeCampoDaSenha = Null
End If

Estamos supondo que na combo existam duas colunas, a do usuário e a da senha. A primeira coluna, tem index 0 e a segunda tem index 1, por isso o 1 entre parêntese.

Olá

Veja esta linhas de código do seu formulário:

For K = 1 To Len(Me!Senha)
strSenha1 = strSenha1 & Asc(Mid$(Me!Senha, K, 1))
strsenha2 = strsenha2 & Asc(Mid$(.Column(2), K, 1))
Next K

If strSenha1 = strsenha2 Then

'repassa a identificação do usuário para a variável login
login.id = .Column(0) 'IdUsuário
login.Usuario = .Column(1) 'Nome do usuário

'esconde o formulário login
Me.visible = False

'Carrega título do aplicativo com o nome do usuário logado
Call fncTítuloUsuário(.Column(1))

'--------------------------------
'Limpar campos do form login
'--------------------------------
Me!cboUsuário = Null: Me!Senha = Null
Me!cboUsuário.SetFocus

'Call fTelaInicial
'----------------------------------------
'reconfigura ribbon rbPrincipal no logoff
'----------------------------------------
If nlogoff = False Then nlogoff = True

'------------------------------------------------------------------
'revalida todos os controles da ribbons que tiverem usando os gets
'------------------------------------------------------------------
objRibbon.Invalidate

If login.id = 1 Then DoCmd.OpenForm "frmInformativo"
If login.id > 1 Then DoCmd.OpenForm "frmPropaganda"

Aonde está em vermelho, troque pela chamada do seu formulário de menu. exemplo:

DoCmd.OpenForm "NomeDoseuFormulárioDeMenu"

Sucesso!

Obrigado pelas respostas amigos!

Consegui fazer o que eu queria.

Abraços

Resolvido!