[Resolvido]Abrir Formulario Inicio

Boa tarde.

Estou com um sistema de login funcionando, porém preciso que ele abra a tela inicio após o procedimento executado.

Segue abaixo os códigos do modulo...

Option Compare Database
Option Explicit

'VARIAVEL DE SESSÃO

Public xNOME_USUARIO As String
Public xSENHA_USUARIO As String
Public xNOME_ As String
Public xSOBRENOME As String
Public xVENDAS As Boolean
Public xCANCELAR_VENDAS As Boolean
Public xCONSULTAS As Boolean
Public xCATALOGO As Boolean
Public xRELATORIO As Boolean
Public xADMINISTRAR As Boolean

Public NumInteiro As Byte




E Segue abaixo os códigos do Login...

Option Compare Database

Private Sub btn_logar_Click()

'Dim é o comando de criar variáveis
'Ucase passa tudo para Maiúsculo
'DoCmd.Close fecha a janela
'DoCmd.quit Fecha Sistema

Dim NOMEUSU As String
Dim SENUSU As String

NOMEUSU = UCase(Nz(Me.txt_usuario.Value, ""))
SENUSU = UCase(Nz(Me.txt_senha.Value, ""))

'Se for vazio de uma mensagem
If IsEmpty(NOMEUSU) Or IsEmpty(SENUSU) Then
MsgBox "Preencha os campos..", vbOKOnly + vbCritical, "Impossível acessar!!"

Else
'Verifica se usuário existe no banco de dados
If ExisteUsuario(NOMEUSU, SENUSU) Then
MsgBox "Bem vindo ao Sistema..", vbOKOnly + vbCritical, "Acessando!!"
DoCmd.Close

Else
'Testar quantas vezes usuário esta tentando logar, maximo 3 vezes
NumInteiro = NumInteiro + 1
If NumInteiro <= 2 Then
MsgBox "Usuário e senha incorreto..", vbOKOnly + vbCritical, "Tente Novamente!!"
Me.txt_usuario.Value = ""
Me.txt_senha.Value = ""
Me.txt_usuario.SetFocus

Else
MsgBox "Tentativas esgotadas..", vbOKOnly + vbCritical, "Sair do sistema!!"
DoCmd.Quit
End If
End If
End If
Exit Sub
End Sub

'Função onde existe Usuário
Public Function ExisteUsuario(strNomeUsuario As String, strSenhaUsuario As String) As Boolean


'Se tiver erro executar metodo deu erro
On Error GoTo deu_erro

'variável de verificação no banco de dados iou consulta SQL
Dim rst As DAO.Recordset
'Variável para carregar a consulta SQL
Dim sql As String

'Consulta sql de usuario e senha

sql = "SELECT * FROM [USUARIOS] US WHERE US.[NOME_USUARIO] = '" & strNomeUsuario & "' AND US.[SENHA_USUARIO] = '" & strSenhaUsuario & "'"
Set rst = CurrentDb.OpenRecordset(sql)

If rst.BOF And rst.EOF Then

ExisteUsuario = False

Else

ExisteUsuario = True

xNOME_USUARIO = rst!xNOME_USUARIO
xSENHA_USUARIO = rst!xSENHA_USUARIO
xNOME_ = rst!xNOME_
xSOBRENOME = rst!xSOBRENOME
xVENDAS = rst!xVENDAS
xCANCELAR_VENDAS = rst!xCANCELAR_VENDAS
xCONSULTAS = rst!xCONSULTAS
xCATALOGO = rst!xCATALOGO
xRELATORIO = rst!xRELATORIO
xADMINISTRAR = rst!xADMINISTRAR

End If

rst.Clone
Set rst = Nothing

Exit Function

deu_erro:
MsgBox Err.Description

End Function

Lembrando que ele esta funcionando normalmente, só preciso que ele abra a tela Inicio após executar...

Obrigado pessoal...

Olá Marcelo, estou no celular mas vamos a isso.

Já deve ter criado o formulário da "tela de incio"

Então será ajustar o código para abrir o seu frmInicio

A seguir à instrução abaixo:
MsgBox "Bem vindo ao Sistema..", vbOKOnly + vbCritical, "Acessando!!"
DoCmd.Close

Coloque a instrução:
OpenForm ...
Para abrir o seu formulário da tela de inicio.
Se tiver dúvidas aperte a tecla F1 com o OpenForm selecionado.

Abraço

Obrigado man, deu certo aqui com este comando mesmo.

Obrigado mesmo!

Resolvido!!!

Olá Marcelo, fico feliz por ter ajudado.
Obrigado pelo retorno, os utilizadores do fórum agradecem.
Abraço