[Resolvido]Informar no formulário quando o cliente fizer aniversário.

oi boa tarde fiz uma consulta pra listar os clientes que faz aniversario, coloquei no campo critério "date()" dessa forma só lista as data atual.
tem como exemplo:
maria 07/09/80
joão 07/09/72 quando abrir o formulário lista todos os cliente que faça aniversario nesse dia

Crie um formulário contínuo ou em modo folha de dados de nome frmAniversário por exemplo e no evento "Ao carregar" do seu formulário principal, coloque algo assim:

If DCount("*", "NomeDaConsulta") > 0 Then
DoCmd.OpenForm "frmAniversário"
Else
Exit Sub
End If

boa tarde Criquio não certo

fiz dessa maneira

Private Sub Form_Open(Cancel As Integer)
Dim strPass1, strPass2 As Variant

' pega o dia da data atual *************************************************
strPass1 = DatePart("d", date)

' pega o dia da data_Nascimento *************************************************
strPass2 = DatePart("d", [Data_Nascimento])

If strPass1 = strPass2 Then
MsgBox "Aniversáriante do mês!", vbQuestion, "Informe"
End If
queria que só Aparecessem os aniversariantes do dia atual

Você disse que criou uma consulta. Então o filtro pode ser feito apenas na consulta e no formulário apenas abre o formulário de aniversário caso tenha aniversariantes naquele dia. Mas, na consulta, crie mais um campo assim:

DataNiver: Format([NomeDoCampoData];"dd/mm")

No critério desse campo, coloque assim:

Como Format(now;"dd/mm")

No caso acima, você terá um campo de nome DataNiver. Esse campo, pegará o dia e o mês do campo da data do aniversário e no critério ele será filtrado pelo dia e o mês atual.

Valeu Criquio deu certo um abraço

Grato pelo retorno.

Criquio pode tirar mais uma duvida como tirar um foco de um subformulário p/ entrar em um determinado campo que eu escolher no form Principal.

Se estiver em um campo do subform, tente algo assim:

Parent!NomeDoCampo.SetFocus

ou assim

Forms!NomeDoForm!NomeDoCampo.SetFocus

valeu mais outra vez