[Resolvido]Passar claúsula WHERE para VBA

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

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!

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

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

Experimente assim:

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

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

Sucesso!

Continua, veja a escrita:

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

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!

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

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

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!

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

Resolvido

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