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


3 participantes

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

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Connekta Informatica 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.




    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  criquio 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: www.vcssistemas.com.br

    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.

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Connekta Informatica 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.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Connekta Informatica 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.




    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  good guy 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
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Connekta Informatica 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:


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




    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.




    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  good guy 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
    [Resolvido]Verificar se há dados com a data atual AttachmentDatabase1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (76 Kb) Baixado 9 vez(es)


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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Connekta Informatica 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.




    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

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

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

    Access meu site: www.goodguyaccessvba.com.br

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


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

    https://www.facebook.com/EduardoMachado


    Meu blog com dicas de programação:
    http://evmachado.zip.net
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Connekta Informatica 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?


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




    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.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Connekta Informatica 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.




    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  good guy 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.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Connekta Informatica 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.




    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  good guy 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.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

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

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

    Veja:


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




    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.




    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  good guy 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
    [Resolvido]Verificar se há dados com a data atual AttachmentSistema.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (350 Kb) Baixado 33 vez(es)
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Connekta Informatica 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.




    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  good guy 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.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Connekta Informatica 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.





    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 07:47