MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Pesquisar na Tabela uma data

    avatar
    MMousinho
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pesquisar na Tabela uma data Empty [Resolvido]Pesquisar na Tabela uma data

    Mensagem  MMousinho 15/7/2017, 03:21

    Boa noite.

    Tenho um sistema em access e estou apanhando numa coisa simples (Acredito eu).

    Estou montando um bloqueio de expiração no sistema.

    Tenho o Seguinte codigo no botão Logar..

    Option Compare Database

    Private Sub btn_logar_Click()

    On Error GoTo deu_erro

    'Ao Invés desta data escrita, eu quero que puxe a data na tabela "Vencimento", no campo "Data_Validade".

    If DateValue("13/7/2017") >= Now() Then
    DoCmd.OpenForm "BARRA DE PROGRESSO"
    Else
    MsgBox "A data de validade expirou!"
    DoCmd.Close
    End If

    Set wshell = CreateObject("Wscript.Shell")
    wshell.PopUp "Acessando dados no Servidor...Aguarde...", 4, "Conectando com Servidor", 5

    Dim Status As Long
    Dim max As Long
    max = 10000

    SysCmd acSysCmdInitMeter, "Consultando Banco de Dados...", max

    For Status = 0 To max
    SysCmd acSysCmdUpdateMeter, Status

    If Status Mod 1 = 0 Then
    DoEvents
    End If
    Next Status




    Dim NOMEUSU As String
    Dim SENUSU As String

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

    If IsEmpty(NOMEUSU) Or IsEmpty(SENUSU) Then
    MsgBox "Preencha os Campos..", vbOKOnly + vbCritical, "Impossível Acessar!!"

    Else
    If ExisteUsuario(NOMEUSU, SENUSU) Then

    DoCmd.Close
    DoCmd.OpenForm "INICIO"
    MsgBox "Bem Vindo Ao SisLojasMM", vbOKOnly, "Bem Vindo"




    Else
    NumInteiro = NumInteiro + 1
    If NumInteiro <= 2 Then
    MsgBox "Usuário e Senhas Incorretos..", vbOKOnly + vbCritical, "Tente Novamente!!"
    Me.txt_usuario.Value = ""
    Me.txt_senha.Value = ""
    Me.txt_usuario.SetFocus
    Else
    MsgBox "Você excedeu o numero de tentativas..", vbOKOnly + vbCritical, "Sair do Sistema!!"
    DoCmd.Quit

    End If
    End If

    End If
    Exit Sub
    deu_erro:
    MsgBox Err.Description

    End Sub


    Public Function ExisteUsuario(strNomeUsuario As String, strSenhaUsuario As String) As Boolean



    On Error GoTo deu_erro

    Dim rst As DAO.Recordset
    Dim sql As String

    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

    NOME_USUARIO = rst!NOME_USUARIO
    USUARIO_SENHA = rst!SENHA_USUARIO
    NOME = rst!NOME_
    SOBRENOME = rst!SOBRENOME
    'Vendas = rst!Vendas
    'CANCELAR_VENDA = rst!CANCELAR_VENDA
    'CONSULTAS = rst!CONSULTAS
    'CATALOGOS = rst!CATALOGOS
    'RELATORIOS = rst!RELATORIOS
    'ADMINISTRAR = rst!ADMINISTRAR

    End If

    rst.Clone
    Set rst = Nothing

    Exit Function

    deu_erro:
    MsgBox Err.Description

    End Function


    Alguem pode ajudar?
    avatar
    Phillip_Junior
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 09/12/2016

    [Resolvido]Pesquisar na Tabela uma data Empty Re: [Resolvido]Pesquisar na Tabela uma data

    Mensagem  Phillip_Junior 15/7/2017, 03:40

    Olá


    Vc não informou se essa tabela vencimento é a origem de dados onde está esse botão.

    Se for, tente no luga desse: If DateValue("13/7/2017") >= Now() Then colocar esse




    If DLookup("[Data_Validade]", "[Vencimento]") >= Now() Then

    Abraços



    .................................................................................
    Phillip_Junior
    Analista de Sistemas
    avatar
    MMousinho
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pesquisar na Tabela uma data Empty Re: [Resolvido]Pesquisar na Tabela uma data

    Mensagem  MMousinho 15/7/2017, 03:57

    Deu certo...

    Sou novo ainda e estou vascilando em muita coisa rsrs.
    avatar
    Phillip_Junior
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 09/12/2016

    [Resolvido]Pesquisar na Tabela uma data Empty Re: [Resolvido]Pesquisar na Tabela uma data

    Mensagem  Phillip_Junior 15/7/2017, 06:20

    Obrigado pelo retorno amigo


    O fórum Agradece


    Abraços e sucesso


    .................................................................................
    Phillip_Junior
    Analista de Sistemas

    Conteúdo patrocinado


    [Resolvido]Pesquisar na Tabela uma data Empty Re: [Resolvido]Pesquisar na Tabela uma data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 14:02