MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    avatar
    oder.santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/03/2015

    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Empty [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    Mensagem  oder.santos em 20/2/2019, 16:32

    Prezados, escrevi i seguinte código:
    Código:
    StrSQL = "SELECT TOP 1 [data Abertura], [Nº controle], left([Nº controle], len([Nº controle])-5)*1 AS [numCont] " & _
    "FROM DemandaCad " & _
    "WHERE (year([data abertura]) = 2019 And (Not (DemandaCad.[Nº Controle]) Is Null)) " & _
    "ORDER BY left([Nº controle], len([Nº controle])-5)*1 DESC"

    Ele funciona direito, porém, gostaria de inserir o critério do ano "2019" em um campo de formulário, por exemplo, [Forms]![frmDemandaCad]![Ano]. So que quando coloco isso, apresenta erro de parâmetros insuficientes? Como corrijo o código?

    Outra dúvida: quanto a consulta não tem nenhum dado, também apresenta erro, informando nenhum registro atual. Como tratar esse erro? Obs. O resultado da consulta está em uma string.

    Obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Empty Re: [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    Mensagem  Alexandre Neves em 21/2/2019, 10:47

    Bom dia
    Deve apresentar como utiliza o código para tratar o erro
    Também não indicou como está a colocar o parâmetro, que será
    StrSQL = "SELECT TOP 1 [data Abertura], [Nº controle], left([Nº controle], len([Nº controle])-5) AS [numCont] " & _
    "FROM DemandaCad WHERE year([data abertura]) =" &  [Forms]![frmDemandaCad]![Ano] & " And Not IsNull(DemandaCad.[Nº Controle]) " & _
    "ORDER BY left([Nº controle], len([Nº controle])-5) DESC"


    .................................................................................
    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
    avatar
    oder.santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/03/2015

    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Empty Re: [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    Mensagem  oder.santos em 21/2/2019, 13:58

    Bom dia!
    Tentei o código mas continua o erro. Meu problema está sendo quando quero um critério que está em formulário. Não estou sabendo descrever no WHERE como buscar no formulário. Inserir um arquivo com o erro. Quando o critério está no código, da certo, mas quando busca no form, aí não funciona.
    Anexos
    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA AttachmentTeste_erro WHERE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (113 Kb) Baixado 2 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Empty Re: [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    Mensagem  Alexandre Neves em 21/2/2019, 14:34

    Onde colocou o código? não vejo


    .................................................................................
    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
    avatar
    oder.santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/03/2015

    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Empty Re: [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    Mensagem  oder.santos em 21/2/2019, 16:19

    No evento após atualizar do campo status. Neste caso, a ideia é apresentar na lista somente os registros com o status correspondente com o selecionado.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Empty Re: [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    Mensagem  Alexandre Neves em 21/2/2019, 18:02

    Private Sub FiltroStatus_AfterUpdate()

    'Refresh

      ListaDemanda.ColumnCount = 4
      ListaDemanda.ColumnHeads = True
      ListaDemanda.ColumnWidths = "0 cm; 7 cm; 1,9 cm; 3 cm"
      ListaDemanda.RowSourceType = "Table/Query"
      ListaDemanda.RowSource = "SELECT COD, DESCRIÇÃO, [Nº CONTROLE] AS [Nº], STATUS " & _
      "FROM demandacad " & _
      "WHERE STATUS ='" & Me.FiltroStatus & _
      "' ORDER BY [nº controle], descrição"
      
      Refresh
    End Sub


    .................................................................................
    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
    avatar
    oder.santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/03/2015

    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Empty Re: [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    Mensagem  oder.santos em 21/2/2019, 18:38

    Não sei o que ocorre, mas não funciona o código. Segue em anexo para verificar... Sad
    Anexos
    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA AttachmentTeste_erro WHERE_2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (111 Kb) Baixado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Empty Re: [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    Mensagem  Alexandre Neves em 21/2/2019, 19:17

    Não copiou o texto. Tem de copiar o texto que coloquei
    Código:
    ListaDemanda.RowSource = "SELECT COD, DESCRIÇÃO, [Nº CONTROLE] AS [Nº], STATUS " & _[size=12][/size]
      "FROM demandacad " & _[size=12][/size]
      "WHERE STATUS ='" & Me.FiltroStatus & _[size=12][/size]
      "' ORDER BY [nº controle], descrição"


    .................................................................................
    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
    avatar
    oder.santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/03/2015

    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Empty Re: [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    Mensagem  oder.santos em 21/2/2019, 19:53

    Estranho, continua com o erro...
    Tem como inserir no BD anexado, por gentileza?
    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Sem_tz10
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Empty Re: [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    Mensagem  Alexandre Neves em 21/2/2019, 20:49

    Bastava ter seleccionado o código e copiado, mas veja
    Anexos
    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA AttachmentTeste_erro WHERE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (105 Kb) Baixado 6 vez(es)


    .................................................................................
    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
    avatar
    oder.santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 07/03/2015

    [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA Empty Re: [Resolvido]Dificuldade em buscar critério em formulário para Consulta SQL em VBA

    Mensagem  oder.santos em 21/2/2019, 21:03

    Ahh, entendi. Um pequeno detalhe despercebido que faz toda diferença. Resolveu o problema.

    Obrigado Amigo.

      Data/hora atual: 20/10/2020, 18:47