MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Abrir Formulario Inicio

    Compartilhe

    MMousinho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 02/08/2016

    [Resolvido]Abrir Formulario Inicio

    Mensagem  MMousinho em Qui 29 Jun 2017, 19:21

    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...
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Abrir Formulario Inicio

    Mensagem  ahteixeira em Sex 30 Jun 2017, 17:41

    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

    MMousinho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 02/08/2016

    Re: Abrir Formulario Inicio

    Mensagem  MMousinho em Sex 30 Jun 2017, 18:06

    Obrigado man, deu certo aqui com este comando mesmo. cheers

    MMousinho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 02/08/2016

    Re: [Resolvido]Abrir Formulario Inicio

    Mensagem  MMousinho em Sex 30 Jun 2017, 18:10

    Obrigado mesmo!

    MMousinho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 02/08/2016

    [Resolvido]Abrir Formulario Inicio

    Mensagem  MMousinho em Sex 30 Jun 2017, 18:11

    Resolvido!!!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4530
    Registrado : 15/03/2013

    Re: [Resolvido]Abrir Formulario Inicio

    Mensagem  ahteixeira em Sab 01 Jul 2017, 13:41

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

      Data/hora atual: Sab 18 Nov 2017, 01:09