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


2 participantes

    [Resolvido]Passar claúsula WHERE para VBA

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Passar claúsula WHERE  para VBA Empty Passar claúsula WHERE para VBA

    Mensagem  Marcelo David 23/1/2012, 12:58

    Amigos, essa dúvida é para sanar outra de um tópico que abri aqui.
    Tenho a seguinte cláusula WHERE no construtor de consultas do Access:

    WHERE (((tbPedidos.DataPedido)=DateAdd("d",([tbPedidos].[DataPedido])>15,Date())) AND ((tbPedidos.AndamentoA)="Enviado para aprovação"));

    Como passa-la para o VBA?

    Grato


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Passar claúsula WHERE  para VBA Marcel11
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Avelino Sampaio 23/1/2012, 14:02

    Olá amigo Marcelo

    Quando se tem apenas uma tabela envolvida não ha necssidade de indicá-la antes de cada campo. Isso reduz bem a escrita, melhorando o entendimento.

    primeiro faça um teste com uma parte condição. Depois junta tudo no final

    Por exemplo, teste primeiro assim:

    mysql = "SELECT ... FROM ... WHERE AndamentoA='Enviado para aprovação';"

    Se tudo correu bem , agora teste com a outra filtragem:

    mysql = "SELECT ... FROM ... WHERE DataPedido = DateAdd('d',DataPedido>15,Date());"

    dado certo junta tudo com o AND

    mysql = "SELECT ... FROM ... WHERE AndamentoA='Enviado para aprovação' AND DataPedido = DateAdd('d',DataPedido>15,Date());"

    USE o proprio ambiente SQL da consulta para alterar e testar o resultado

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Marcelo David 23/1/2012, 15:20

    Avelino, tentei o que disse, e agora está dando erro de sintaxi aqui:

    "DataPedido=DateAdd('d',DataPedido>15,Date());"


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Passar claúsula WHERE  para VBA Marcel11
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Avelino Sampaio 23/1/2012, 19:06

    Experimente assim:

    DataPedido=DateAdd('d',DataPedido > 15,Date);"

    Se continuar a dar erro, me mostre a escrita toda.

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Marcelo David 23/1/2012, 19:30

    Continua, veja a escrita:

    "SELECT DataPedido, AndamentoA FROM tbPedidos WHERE AndamentoA='Enviado para aprovação' AND DataPedido=DateAdd('d',DataPedido > 15,Date);"



    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Passar claúsula WHERE  para VBA Marcel11
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Avelino Sampaio 23/1/2012, 20:21

    Marcelo , fiz um teste aqui com pequeno exemplo, carregando um formulário com a consulta e não acusou erro de sintaxe.

    Me.RecordSource = "SELECT DataPedido, AndamentoA FROM tblPedidos WHERE AndamentoA='Enviado para aprovação' AND DataPedido=DateAdd('d',Datapedido < 15,Date());"

    Segue exemplo:

    baixe aqui

    Se quiser faça alterações neste exemplo para adptar melhor ao seu caso e me mande para analisar.

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Marcelo David 23/1/2012, 20:59

    Presiso contar esses registros.
    Uso como critério a String com a escrita SQL, mas da erro...
    Como de controle funciona perfeito...


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Passar claúsula WHERE  para VBA Marcel11
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Marcelo David 23/1/2012, 21:06

    O tópico que estou tentando resolver com este é o seguinte:
    http://maximoaccess.forumeiros.com/t5945-contar-registros-inseridos-nos-ultimos-7-dias


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Passar claúsula WHERE  para VBA Marcel11
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Avelino Sampaio 23/1/2012, 21:25

    Olá

    Crieu um campo chamado Contador e testei assim:

    Me!Contador = DCount("*", "tblPedidos", "AndamentoA='Enviado para aprovação' AND DataPedido=DateAdd('d',Datapedido < 15,Date())")

    Outro teste aqui, usando o beteween.

    Me!Contador = DCount("*", "tblPedidos", "AndamentoA='Enviado para aprovação' AND DataPedido between date() AND (date()-7)")

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Marcelo David 23/1/2012, 21:47

    Agora tudo perfeito!!!
    Muito obrigao Avelino!
    Obs.: (Um puxão de orelhas: ta devendo o curso de InnoSetup, rsrs)


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Passar claúsula WHERE  para VBA Marcel11
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Marcelo David 23/1/2012, 21:47

    Resolvido


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Passar claúsula WHERE  para VBA Marcel11
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Avelino Sampaio 23/1/2012, 22:07

    Olá Marcelo

    Estou terminando a edição da vídeo-aula sobre o innosetup, que terá 38 minutos de duração.

    Além da vídeo-aula, abrirei um canal, via msn, para ajudar a pessoal no que for preciso.

    grato



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    Conteúdo patrocinado


    [Resolvido]Passar claúsula WHERE  para VBA Empty Re: [Resolvido]Passar claúsula WHERE para VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:24