DamascenoJr. 4/6/2020, 05:08
Basta fazer substituições.
Vamos atribuir valores para os campos
Data_Final_Frm = 03/06/2020 'a data atual
Pra_Quem = José 'vou supor que esse campo seja do tipo texto
Antes da montagem, precisamos lembrar das regras
1. Textos/Strings devem ficar entre aspas
2. Datas precisam estar no formato Mês/Dia/Ano
3. Datas precisam estar entre cerquilhas #
Agora vamos a montagem, substituindo os campos, tal qual o VBA faz
Linha inicial
DCount("*", "Tbl_Saida_Det", "Dta_Saida =#" & Format(Me.Data_Final_Frm, "mm/dd/yyyy") & "and Pra_Quem='" & Pra_Quem1)
Substituindo os campos pelos valores
DCount("*", "Tbl_Saida_Det", "Dta_Saida =#" & Format(03/06/2020, "mm/dd/yyyy") & "and Pra_Quem='" & José)
Após a formatação da data
DCount("*", "Tbl_Saida_Det", "Dta_Saida =#" & 06/03/2020 & "and Pra_Quem='" & José)
Após as concatenações
DCount("*", "Tbl_Saida_Det", "Dta_Saida =#06/03/2020and Pra_Quem='José)
Conclusões:
No final, após todas as substituições, o VBA percebe que a sintaxe não obedece às regras.
1. A data não fica entre cerquilhas #, existe apenas a # inicial.
2. A data está ficando colada no operador "And" --> 06/03/2020and
3. O valor do campo Pra_Quem1 não está ficando entre aspas, existe apenas a aspa inicial.
Sugestões:
1. Veja e reveja como o VBA faz a montagem
2. Garanta que a data fique entre cerquilhas # adicionando uma # antes do operador "And" --> "#And...
3. Garanta que haja um espaço entre a cerquilha e o operador "And" --> "#ESPAÇOAnd...
4. Garanta que o valor do campo Pra_Quem1 fique entre aspas adicionando uma concatenação após a referência do campo no código --> ...Pra_Quem='" & Pra_Quem1 & "'")