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


    [Resolvido]Dlookup com critério de data

    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Dlookup com critério de data Empty [Resolvido]Dlookup com critério de data

    Mensagem  formiga10x 20/4/2014, 23:00

    Boa noite pessoal.
    Estava tudo indo bem até que me deparei com um probleminha... Ao cadastrar uma conta à pagar para o mês corrente na busca por data do formulário é encontrado agora, se eu por exemplo fizer um cadastro de uma conta à pagar para o mês seguinte dai lascou! Não acha!

    Alguém poderia me dar uma ajuda.

    Muito agradecido.

    Segue o formulário.
    Anexos
    [Resolvido]Dlookup com critério de data AttachmentfrmDespesa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (167 Kb) Baixado 71 vez(es)
    avatar
    Convidado
    Convidado


    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  Convidado 21/4/2014, 02:00

    Olá Elias.
    Do modo como o fez "pesquisa data" funciona...
    Fiz o seguinte lançamento:
    Data da compra: 20/04/2014
    Data Pagamento: 13/08/2014
    Salvei e fiz a pesquisa por 13/08/2014 e encontrou o lançamento.


    avatar
    Convidado
    Convidado


    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  Convidado 21/4/2014, 02:07

    acho que o amigo Elias se equivocou, aqui para data corrente é que não estava funcionando a pesquisa logo após o salvamento do cadastro, mas passou a funcionar depois que coloquei o refresh no evento do botão salvar
    avatar
    Convidado
    Convidado


    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  Convidado 21/4/2014, 02:21

    ????
    avatar
    Convidado
    Convidado


    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  Convidado 21/4/2014, 02:33

    Amigo Clóvis, me referi a informação do colega Elias que mencionou que a pesquisa com meses posteriores é que essa pesquisa não funcionava, fiz o teste nesse protótipo que ele postou e a pesquisa não funcionou com data do mês corrente para o caso de vc cadastrar e salvar e ao mesmo tempo fazer a pesquisa sem sair do formulário, mas após inserir o refresh no evento do botão salvar esse procedimento funcionou.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  formiga10x 21/4/2014, 03:51

    Caro colegas grato pela atenção.
    Beto coloquei o Refres como sugeriu e fiz um cadastro de uma conta para pagar no mês de maio mais precisamente dia 09 porém ao fazer a busca não obtive resultado...Nem mesmo fechando o access e abrindo novamente. Apenas preenche o grid digo "lista" e as textbox Soma caso a data seja para o mesmo mês... Será que o problema é com o meu access? Pois com o amigo cafpr parece que funcionou.
    avatar
    Convidado
    Convidado


    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  Convidado 21/4/2014, 04:20

    Elias substitui as linhas atuais do evento após atualizar do campo txtDataQuitar por essas:

    Me.lstSaida.RowSource = ("Select CodSaida,Referente,Quantidade as Qtd,ValorUnt as Valor,Total, Quitado From tblSaida Where DataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "#")
    Me.txtSomaTotais = DSum("Total", "tblSaida", "DataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "#")
    Me.txtSomaPago = DSum("Total", "tblSaida", "dataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "# And [Quitado] =" & "'Sim'")
    Me.txtSomaResta = DSum("Total", "tblSaida", "dataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "# And [Quitado] =" & "'Não'")

    Call LIMPA_CAMPOS
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  formiga10x 21/4/2014, 05:11

    Funcionou perfeitamente porém tive que adicionar um loop passando 2x pelo código só assim que preencheu o grid.
    Brigado Beto e cafpr pela força e pelo tempo gasto com o meu problema.
    Veja Beto:

    Código:
    Dim i As Integer

    For i = 1 To 2

    Me.lstSaida.RowSource = ("Select CodSaida,Referente,Quantidade as Qtd,ValorUnt as Valor,Total, Quitado From tblSaida Where DataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "#")
    Me.txtSomaTotais = DSum("Total", "tblSaida", "DataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "#")
    Me.txtSomaPago = DSum("Total", "tblSaida", "dataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "# And [Quitado] =" & "'Sim'")
    Me.txtSomaResta = DSum("Total", "tblSaida", "dataPagamento = #" & Format(txtDataQuitar, "mm/dd/yyyy") & "# And [Quitado] =" & "'Não'")

    Next i

    Foi muito útil este dúvida pois, me possibilitou aprender mais um pouco Very Happy
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  formiga10x 21/4/2014, 05:14

    Já ia esquecendo... Resolvido  Laughing 
    avatar
    Convidado
    Convidado


    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  Convidado 21/4/2014, 05:19

    Elias, fiz o teste aqui e somente com as linhas que mandei, a list é preenchida sem nenhum problema.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  formiga10x 21/4/2014, 05:22

    Aqui só preencheu passando 2x pelo código vai entender Very Happy Vai ver meu not tá veinho e precisa que repita para ele entender kkk
    avatar
    Convidado
    Convidado


    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  Convidado 21/4/2014, 05:32

    Para tirar as dúvidas.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  formiga10x 21/4/2014, 05:48

    Beto o seu funciona perfeitamente vou importar ele para o meu bd e testar
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  formiga10x 21/4/2014, 05:54

    Funcionou perfeitamente Beto agora ficou uma dúvida... O que faltou para o meu preencher o grid passando uma única vez pela tabela?
    avatar
    Convidado
    Convidado


    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  Convidado 21/4/2014, 17:07

    Só olhando os códigos contidos no vba do teu formulário, a principio era para funcionar, visto que usei o exemplo que vc postou e a única alteração que fiz foi substituir as linhas que passei.

    Conteúdo patrocinado


    [Resolvido]Dlookup com critério de data Empty Re: [Resolvido]Dlookup com critério de data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 18:03