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]Erro na consulta

    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Erro na consulta Empty [Resolvido]Erro na consulta

    Mensagem  tauron 20/2/2022, 11:30

    Boas galera da selva. Estou tentando implementar um formulário que serve tanto para inclusão quanto para edição. A tabela não possui Chave em virtude de registrar uma mesma data várias vezes [dtSaida] . Para consulta, utilizo dois campos da tabela: [dtSaida] e [funcionario] no formulário os campos são [txtData] e [cboConsulta], nessa ordem de preenchimento, pois ao informar o [txtData] ele deveria me retornar no [cboConsulta] somente os nomes onde dtSaida = txtData e ao escolher um registro, deveria preencher os campos do formulário. O fato é que apos informar os campos acima, não está retornando o registro correto.
    Anexos
    [Resolvido]Erro na consulta AttachmentFormTauron.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (64 Kb) Baixado 4 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8513
    Registrado : 05/11/2009

    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  Alexandre Neves 20/2/2022, 18:00

    Boa tarde
    Experimentei com a data 16-11-2021 e escolhi ambos os funcionários e funcionou com ambos, preencheu os seus dados no formulário


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  tauron 20/2/2022, 18:35

    Obrigado Alexandre mas, se reparar, o Pedro possui dois registros e independentemente da minha escolha (16 ou 30) retornará os dados referentes ao dia 30/11/2021.

    Na Página3: Campo [data] e página 29: [dtSaida] e [dtRetorno]
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8513
    Registrado : 05/11/2009

    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  Alexandre Neves 20/2/2022, 20:06

    Coloque o critério de Data também (atenção às palavras reservadas)
    Código:
    filtro = "Funcionario = '" & Me!cboConsulta.Column(1) & "' and Data=#" & txtData & "#"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    tauron gosta desta mensagem

    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  tauron 22/2/2022, 23:01

    Obrigado. cheers
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  tauron 28/2/2022, 10:44

    Moderadores, peço perdão mas surgiu um fato novo sobre este tópico.

    No meu sistema, não consigo o retorno de alguns registro. Ao informar a data, automaticamente somente serão visualizados na combox, os registros com aquela data mas, não consigo visualizar os dados do registro selecionado e o mais estranho é que esse fato não ocorre com todos os registro da mesma data, ou seja, dependendo da seleção acontece normalmente.

    Estranho é que em um formulário com subformulário, consigo pesquisar todos os registros.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8513
    Registrado : 05/11/2009

    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  Alexandre Neves 28/2/2022, 18:59

    Boa tarde
    Devia ter tirado o "Resolvido", mas já o tirei
    Esse problema será da formatação (dd-mm-yyyy ou mm-dd-yyyy)?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  tauron 1/3/2022, 11:29

    Ficou muito confusa minha explanação. Como o filtro ocorre primeiramente por data, ao selecionar por exemplo a data 05/11/2021, na caixa de seleção, me retorna somente que teve registro neste dia mas, não consigo visualizar todos os registro do dia 05/11/2021 e aliás de ontem para hoje, não me lembro se alterei alguma confifguração nas opções do access que ao abrir o formulário e consultar um registro, está inserindo uma linha em branco na tabela.

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  Alexandre Fim 1/3/2022, 13:15

    Olá Tauron,

    Fiz ajuste na tua rotina:

    Código:


    Private Sub cboConsulta_AfterUpdate()
    Dim filtro As String
       
        '-- Alexandre Fim-------------------
        'filtro = "Funcionario = """ & Me!cboConsulta.Column(1) & """"
        filtro = "DtSaida = #" & Format(Me.cboConsulta.Column(0), "mm/dd/yyyy") & "# AND Matricula = '" & cboConsulta.Column(2) & "'"
        DoCmd.ApplyFilter , filtro
       
        '---------------------------------------
        'Outra forma de aplicar a filtragem
        '---------------------------------------
        'Me.Filter = filtro
        'Me.FilterOn = True
        'Me.Requery
        '---------------------------------------
        HabilitarComandos
        Me!cmdEditar.SetFocus
        Me!cboConsulta = Null
        Me!txtData = Null
       
    End Sub



    Também faltou atualizar o cboConsulta após informar outra data:

    Código:


    Private Sub txtData_AfterUpdate()

        Me.cboConsulta.Requery

    End Sub


    É isso.
    []'s
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erro na consulta Setinf11
    Sistemas e Tecnologia Ltda

    tauron gosta desta mensagem

    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  tauron 1/3/2022, 20:51

    Boa tarde Alexandre

    Nossa nos primeiros testes está perfeito. Quanto ao "requery" do campo txtData, com certeza o deletei quando excluir outros códigos de restrições existentes no formulário e agradeço por isso, pois não me recordava.

    Irei fazer mais testes e, em breve retornarei, já com quase 100 % de certeza que posso finalizar.

    Abraços e, mais uma vez obrigado.
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  tauron 15/3/2022, 00:11

    Obrigado.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  Alexandre Fim 15/3/2022, 00:19

    Valeu Tauron,

    O fórum agradece.

    Sucesso


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erro na consulta Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    [Resolvido]Erro na consulta Empty Re: [Resolvido]Erro na consulta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 06:48