Criterios via VBA

Amigos, desculpem, mas sou amador, e preciso de sua ajuda na seguinte instrução:

Código:


Set MyRS = MyDB.OpenRecordset("SELECT * FROM Consulta_Aniversariantes WHERE Mes ='" & Mes & "'")


Eu gostaria de referenciar o campo mes que ja esta ai, e o campo dia, existente na consulta citada no codigo. Como faço isso?

Obrigado.

Boa noite,
Não entendi.
Quer referenciar o controlo do formulário? Suponho tratar-se de caixa de combinação designada CxcMes
O campo Mes é texto?
O campo dia é número?
Evite nomes reservados para campos
Set MyRS = MyDB.OpenRecordset("SELECT * FROM Consulta_Aniversariantes WHERE Mes ='" & CxcMes & "' and DiaAniversario=" & CxcDia)

Eu acho que tenho q explicar mais detalhadamente o que preciso. Seguinte, eu baixei por meio deste site um exemplo de criação de etiquetas pra aniversariantes do mes. Vou anexar o arquivo caso nao o localizem mas o fato é que estou tentando adaptar no formulario de emissao dessas etiquetas um botão de envio de e-mails, baseado nos criterios pré-selecionados no formulario em anexo. O codigo que eu pedi ajuda anteriormente faz referencia a dois campos da consulta que gera essas etiquetas, mas no campo dia da consulta tem um criterio BETWEEN que acredito ser o meu problema. Poderia me auxiliar nessa duvida?

Obrigado

leoavila,
A consulta é esta
PARAMETERS [Formulários]![Dialogo_Aniversarios]![Dia_Inicial] Short, [Formulários]![Dialogo_Aniversarios]![Dia_Final] Short;
SELECT DISTINCTROW Tabela_Clientes.Ativo, Tabela_Clientes.Nome_Cliente, Format$([Data_Nascimento],"mmmm") AS Mes, Day([Data_Nascimento]) AS Dia, Tabela_Clientes.E_Mail, Tabela_Clientes.Telefone_Residencial, Tabela_Clientes.Telefone_Comercial
FROM Tabela_Clientes
WHERE (((Tabela_Clientes.Ativo)=True) And ((Format$([Data_Nascimento],"mmmm")) Like Formulários!Dialogo_Aniversarios!Mes) And ((Day([Data_Nascimento])) Between Formulários!Dialogo_Aniversarios!Dia_Inicial And Formulários!Dialogo_Aniversarios!Dia_Final))
ORDER BY Tabela_Clientes.Nome_Cliente;

A cláusula Between define o período entre Dia_Inicial e Dia_Final referidos no formulário.
Pretende alterar o quê

Quero que o recordset dessa linha:

Código:


Set MyRS = MyDB.OpenRecordset("SELECT * FROM Consulta_Aniversariantes WHERE Mes ='" & Mes & "' and Dia=" & Dia)


Se adeque a instrução SQL que vc citou Alexandre.

Eu quero que o Recordset abra dentro dos criterios da consulta que vc citou.

Obrigado, amigo

leoavila,
Set MyRS = MyDB.OpenRecordset("SELECT DISTINCTROW Tabela_Clientes.Ativo, Tabela_Clientes.Nome_Cliente, Format$([Data_Nascimento],"mmmm") AS Mes, Day([Data_Nascimento]) AS Dia, Tabela_Clientes.E_Mail, Tabela_Clientes.Telefone_Residencial, Tabela_Clientes.Telefone_Comercial
FROM Tabela_Clientes
WHERE (((Tabela_Clientes.Ativo)=True) And ((Format$([Data_Nascimento],"mmmm")) Like Formulários!Dialogo_Aniversarios!Mes) And ((Day([Data_Nascimento])) Between Formulários!Dialogo_Aniversarios!Dia_Inicial And Formulários!Dialogo_Aniversarios!Dia_Final))
ORDER BY Tabela_Clientes.Nome_Cliente;")