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]Localizar registro por data utilizando recordset

    avatar
    MMS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 12/04/2011

    [Resolvido]Localizar registro por data utilizando recordset Empty Localizar registro por data utilizando recordset

    Mensagem  MMS 19/6/2012, 18:57

    Pessoal boa tarde! Gostaria que me ajudassem onde está o erro no código abaixo. Se faço tentando acessar uma data e retornar o código não funciona e se uso o mesmo código para o parâmetro IDFinanceiro e retorno da data funciona. Nesse código o erro que dá é "erro 3021, Nenhum registro Atual". Obrigado!

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim Datarefer As Date
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Financeiro") 'acesso a tabela ou consulta
    Datarefer = Date

    Sql_GrupoC = "select * from Financeiro WHERE DataVencimento = " & Datarefer
    Set rs21 = db.OpenRecordset(Sql_GrupoC)
    mensagem = rs21.Fields("IDFinanceiro")

    MsgBox mensagem
    avatar
    Convidado
    Convidado


    [Resolvido]Localizar registro por data utilizando recordset Empty Re: [Resolvido]Localizar registro por data utilizando recordset

    Mensagem  Convidado 19/6/2012, 20:36

    Nenhum registro atual, significa que não encontrou nenhum registro com esse parâmetro

    Tente formatar a data

    Sql_GrupoC = "select * from Financeiro WHERE DataVencimento = " & Format(Datarefer,"dd/mm/yyyy")

    Sql_GrupoC = "select * from Financeiro WHERE DataVencimento = " & Format(Datarefer,"mm/dd/yyyy")

    Lembrando que ambos os campos, tanto tabela como form devem ser do tipo data


    Cumprimentos.
    avatar
    MMS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 12/04/2011

    [Resolvido]Localizar registro por data utilizando recordset Empty Re: [Resolvido]Localizar registro por data utilizando recordset

    Mensagem  MMS 19/6/2012, 21:02

    Infelismente não deu. Já bati a cabeça nisso... se faço pelo código me dá o retorno, mas se tento por DataVencimento, dá vazio, porém existe o registro, veja no exemplo que eu coloquei no botão por código, retorna a data. Help me
    Anexos
    [Resolvido]Localizar registro por data utilizando recordset AttachmentTESTE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 50 vez(es)
    avatar
    Convidado
    Convidado


    [Resolvido]Localizar registro por data utilizando recordset Empty Re: [Resolvido]Localizar registro por data utilizando recordset

    Mensagem  Convidado 19/6/2012, 23:11

    Quando se refere a critérios data além da função format entre #


    Dim db As DAO.Database ' database
    Dim rs As DAO.Recordset 'recordset
    Dim Datarefer As Date
    Set db = CurrentDb ' seta o banco de dados atual
    Set rs = db.OpenRecordset("Financeiro") 'acesso a tabela ou consulta
    Datarefer = Format(Date, "dd/mm/yyyy")

    Sql_GrupoC = "select * from Financeiro WHERE DataVencimento = #" & Datarefer & "# "
    Set rs = db.OpenRecordset(Sql_GrupoC)
    Mensagem = rs.Fields("IDFinanceiro")

    MsgBox Mensagem


    Cumprimentos.
    avatar
    MMS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 12/04/2011

    [Resolvido]Localizar registro por data utilizando recordset Empty Re: [Resolvido]Localizar registro por data utilizando recordset

    Mensagem  MMS 19/6/2012, 23:47

    É isso mesmo, valeu amigo, foi demais sua ajuda, show!!! Obrigado.
    avatar
    Convidado
    Convidado


    [Resolvido]Localizar registro por data utilizando recordset Empty Re: [Resolvido]Localizar registro por data utilizando recordset

    Mensagem  Convidado 20/6/2012, 00:46

    O Fórum agradece o retorno,

    Não se esqueça de clicar no joinha da Mensagem que o auxiliou.

    Conteúdo patrocinado


    [Resolvido]Localizar registro por data utilizando recordset Empty Re: [Resolvido]Localizar registro por data utilizando recordset

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:01