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]Verificar se há dados com a data atual

    Compartilhe
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    [Resolvido]Verificar se há dados com a data atual

    Mensagem  Connekta Informatica em 11/2/2014, 18:32

    Boa Tarde

    Como eu faço para verificar se há dados com a data atual. Sendo que eu quero verificar dois campos (mas o codigo abaixo verifica somente um). Campos a ser verificado é: Data e Descricao.

    Como eu adapto ao meu código:

    If DCount("Codigo", "tblMovimento", "Data") > 0 Then

    docmd.openform "frmlogin"
    end if

    If DCount("Codigo", "tblMovimento", "Data") = 0 Then

    docmd.openform "frmempresa"

    end if


    Alguem pode me ajudar?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11240
    Registrado : 30/12/2009

    Re: [Resolvido]Verificar se há dados com a data atual

    Mensagem  criquio em 11/2/2014, 19:07

    Procure sempre dar todos os detalhes sobre o que precisa. Que tipo de referência seria esse segundo campo? Para contar as datas atuais pode usar algo como:

    Código:
    If DCount("*", "tblMovimento", "Data=#" & Date & "#") > 0 Then

    Para o segundo caso talvez seja um DLookup:

    Código:
    If DCount("*", "tblMovimento", "Data=#" & Date & "#") > 0 And DLookup("NomeDoCampoDaTabela", "tblMovimento") = "Resultado pretendido" Then

    Está faltando mais detalhes para podermos ser mais específico. Esse segundo campo seria para verificar o quê, baseado em que critério?


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar se há dados com a data atual

    Mensagem  Connekta Informatica em 12/2/2014, 19:02

    Boa Tarde Criquio

    O que eu quero é o seguinte:

    Tenho o form de login, onde tenho os campos cboUsuario e txtSenha e os botões cmdOk e cmdSair.

    Selecione o Nome do Usuário e digito a senha, ao clicar no botão OK, o sistema deve verificar na tabela tblMovimento o campo Data e Descrição.

    Se o campo Data já tem um registro com a data de hoje e a descrição "Abertura de Caixa" ele vai abrir o form Menu, mas, se na tabela Movimento não tiver como o campo com a data de hoje e nem a descrição "Abertura de caixa" ele deve abrir o form Movimento.

    Deu para esclarecer um pouco?

    Tem uma solução?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar se há dados com a data atual

    Mensagem  Connekta Informatica em 13/2/2014, 17:16

    Boa Tarde, alguma solução?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Verificar se há dados com a data atual

    Mensagem  good guy em 13/2/2014, 17:57

    Tente com o código abaixo no evento Form_Open inseri-lo no código quando usuario e senha estiverem corretos.

    Dim rs as DAO.recordset
    Dim i As Integer

    set rs = currentdb.openrecordset("tblMovimento", dbopentable)

    For i = 1 to rs.EOF
    If Dlookup("txtData","tblMovimento", "Codigo = " & i)= Date () and Dlookup("Descricao","tblMovimento", "Codigo = " & i) = "Abertura de Caixa" Then
    Docmd.Openform "Menu"

    elseif dlookup(txtData","tblMovimento","Codigo = " & i)<> Date() and dlookup("Descricao","tblMovimento","Codigo = " & i)<>"Abertura de Caixa" Then
    docmd.openform "Movimento"
    else
    exit sub
    end if
    Next i

    currentdb.close

    set rs = nothing
    set db = nothing

    Docmd.setwarnings false
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar se há dados com a data atual

    Mensagem  Connekta Informatica em 14/2/2014, 12:32

    Bom dia Good Guy

    Teste aqui mais não aconteceu nada.

    Fiz um modelo.

    Tem o form1 que contem um botão que abre o form2 que foi colocado o código.

    Ao clicar no botão do form1 somente abre o form2.

    Veja:
    Anexos
    Database1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (66 Kb) Baixado 4 vez(es)


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Verificar se há dados com a data atual

    Mensagem  good guy em 14/2/2014, 14:45

    Olá Konnecta,

    Fiz algumas modificações na sub-rotina com base em seu bd exemplo. Esse código deve ficar no formulário de login (frmSenha) que disponibilizei para você gratuitamente para você testar e com uma função para logar também de minha autoria:

    Public Sub Checar()
    'Código de Eduardo Machado (Good Guy) - Maximo Access

    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim sDescricao As String

    Set rs = CurrentDb.OpenRecordset("tblMovimento", dbOpenTable)

    sDescricao = "ABERTURA DE CAIXA"

    For i = 1 To rs.RecordCount

    If DLookup("Data", "tblMovimento", "Codigo = " & i) = Date Or DLookup("Descricao", "tblMovimento", "Codigo = " & i) = sDescricao Then
    DoCmd.OpenForm "form3"
    DoCmd.Close acForm, "form2"

    Else
    DoCmd.OpenForm "form2"
    DoCmd.Close acForm, "form3"
    End If

    Next i

    CurrentDb.Close

    Set rs = Nothing
    End Sub

    Public Function VerificaLogin(sLogin As String, sSenha As String)
    'Código de Eduardo Machado (Good Guy) - Maximo Access
    Dim nLogin As String
    Dim nSenha As String

    nLogin = Me.txtNome 'login é o nome da caixa de texto do formulário de Login
    nSenha = Me.txtSenha 'senha é o nome da caixa de texto do formulário de Login

    sLogin = Nz(DLookup("Usuario", "tblUsuários", "Usuario = '" & nLogin & "'"))
    sSenha = Nz(DLookup("senha", "tblUsuários", "Usuario = '" & sLogin & "'"))


    If sSenha = nSenha Then
    MsgBox "Senha válida !!!", vbInformation, "Testa Login"
    Call Checar
    Else
    MsgBox "Usuário ou Senha inválida !!!", vbInformation, "Testa Login"
    End If
    End Function



    Private Sub cmdOK_Click()
    'Código de Eduardo Machado (Good Guy) - Maximo Access

    If Not IsNull(txtNome) And Not IsNull(txtSenha) Then
    If VerificaLogin(txtNome, txtSenha) = True Then
    DoCmd.Close acForm, "frmSenha", acSaveYes
    Exit Sub
    End If
    End If
    End Sub
    Anexos
    Database1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (76 Kb) Baixado 7 vez(es)


    Última edição por good guy em 14/2/2014, 19:05, editado 1 vez(es)
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar se há dados com a data atual

    Mensagem  Connekta Informatica em 14/2/2014, 17:26

    Muito obrigado, deu certo.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Verificar se há dados com a data atual

    Mensagem  good guy em 14/2/2014, 19:04

    Obrigado Konnecta. O fórum todo agradece também.

    Access meu site: [Você precisa estar registrado e conectado para ver este link.]

    Lá você vai encontrar muita coisa para estudo e aplicativos importantes.


    Dê uma curtida também na minha página do Facebook.

    [Você precisa estar registrado e conectado para ver este link.]


    Meu blog com dicas de programação:
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar se há dados com a data atual

    Mensagem  Connekta Informatica em 17/2/2014, 18:16

    Boa tarde

    Reabri o tópico pois esta acontecendo um problema.

    Fui adaptar ao meu sistema o Banco de dados disponibilizado acima, mas não deu certo.

    Tirei o form1; frmSenha = frmLogin;form3 =  frmAberturaCaixa.

    Essa foram a coisas que mudou.

    Você pode ajudar novamente?
    Anexos
    Sistema.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (94 Kb) Baixado 6 vez(es)


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar se há dados com a data atual

    Mensagem  Connekta Informatica em 17/2/2014, 18:56

    Código:


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Verificar se há dados com a data atual

    Mensagem  good guy em 17/2/2014, 20:49

    Olá,

    Os campos de sua tblMovimento não são os mesmos que no seu exemplo. Não teria a função Checar que checar a data atual e a descrição "ABERTURA DO CAIXA"? A função Checar teria que estar também no formulário frmLogin. Se você não fizer a adaptação conforme está no exemplo não vai dar certo mesmo.
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar se há dados com a data atual

    Mensagem  Connekta Informatica em 18/2/2014, 11:01

    Bom dia

    Como você pode perceber já alterei o código:

    Código:


    Public Sub Checar()
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim sHistorico As String

    Set rs = CurrentDb.OpenRecordset("tblMovimento", dbOpenTable)

    sDescricao = "ABERTURA DE CAIXA"

    For i = 1 To rs.RecordCount

    If DLookup("Data", "tblMovimento", "Codigo = " & i) = Date Or DLookup("Historico", "tblMovimento", "Codigo = " & i) = sHistorico Then
    DoCmd.OpenForm "frmAberturaCaixa"
    DoCmd.Close acForm, "frmMenu"

    Else
    DoCmd.OpenForm "frmMenu"
    DoCmd.Close acForm, "frmAberturaCaixa"
    End If

    Next i

    CurrentDb.Close

    Set rs = Nothing
    End Sub


    Quando há dados deveria abrir o formulário frmMenu.

    Quando não houver dados deveria abrir o formulário frmAberturaCaixa.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Verificar se há dados com a data atual

    Mensagem  good guy em 18/2/2014, 13:46

    Olá konnekta,

    Verifique sua variável sHistorico. Existe uma outra variável sDescricao conflitando com ela. Troque sDescricao por sHistorico.
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar se há dados com a data atual

    Mensagem  Connekta Informatica em 18/2/2014, 14:18

    Fiz o que você falou, mas não deu certo.

    Veja:
    Anexos
    Sistema.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (340 Kb) Baixado 2 vez(es)


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Verificar se há dados com a data atual

    Mensagem  good guy em 18/2/2014, 16:52

    Olá Konnekta,

    Na tabela o campo codigo estava começando com 5. O looping estava procurando o codigo = 1 e não o encontrava e aí a sub ou function não funcionava.

    Teste agora
    Anexos
    Sistema.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (350 Kb) Baixado 15 vez(es)
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar se há dados com a data atual

    Mensagem  Connekta Informatica em 18/2/2014, 18:22

    Boas Good, muito obrigado por sua paciência.

    Fiz o teste aqui mais não esta funcionando do jeito que eu quero.

    Adicionei um registro com a data de hoje e com a descrição "Abertura de Caixa, fui fazer o login,selecione a empresa, o sistema abriu o form Abertura de Caixa.

    Como eu disse, quando tiver os campo da tabela: Data = Data Atual e o campo Historico = Abertura de Caixa, vá direto ao from Menu. Quando não houver nos campos da tabela o campo Data > Data Atual  e campo Historico > Abertura de Caixa, abra o form Abertura de Caixa.

    Muito Obrigado por estar me ajudando.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Verificar se há dados com a data atual

    Mensagem  good guy em 18/2/2014, 18:59

    Olá konnekta,

    Deve haver algum engano aqui. Deixe-me ver se o que você está querendo agora não está em conflito com o que você afimou acima:

    Analise o que está em negrito:

    Public Sub Checar()
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim sHistorico As String

    Set rs = CurrentDb.OpenRecordset("tblMovimento", dbOpenTable)
    sHistorico = "ABERTURA DE CAIXA"

    For i = 1 To rs.RecordCount

    'Se o campo Data for igual a data atual, abra o formulário frmAberturaCaixa.

    If DLookup("Data", "tblMovimento", "Codigo = " & i) = Date Or DLookup("Historico", "tblMovimento", "Codigo = " & i) = sHistorico Then
    DoCmd.OpenForm "frmAberturaCaixa"    '<=====

    DoCmd.Close acForm, "frmMenu"
    Else

    DoCmd.OpenForm "frmMenu"
    DoCmd.Close acForm, "frmAberturaCaixa"
    End If
    Next i
    CurrentDb.Close
    Set rs = Nothing
    End Sub


    OBS: Caso você queira modificar qual formulário deva ser aberto, altere os operadores lógicos.
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    Re: [Resolvido]Verificar se há dados com a data atual

    Mensagem  Connekta Informatica em 19/2/2014, 13:17

    Valeu Good, agora esta funcionando perfeitamente.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.





      Data/hora atual: 26/9/2018, 09:49