Bom dia

 

Estou precisando de um código que faça a consulta de todos os Aniversariantes do mês atual quando carregar o Form.

 

Muito Obrigado

SELECT * FROM [TABELA] WHERE FORMAT('[CAMPO_DTANIVER]',MM) = 'XX'

 

DIM DT1 AS DATE

DIM DT2 AS DATE

 

DT1=DATE()-DAY(DATE)

DT1=DT1+32

DT1=DT1-DAY(DT1)+1 ' ACHA O PRIMEIRO DIA DO MES CORRENTE

Dt2 = Dt1 + 31
Dt2 = Dt2 - Day(Dt2) ' ACHA O ÚLTIMO DIA DO MES CORRENTE

 

SET BASE=DB.OPENRECORDSET("SELECT TABELA.Nome, TABELA.ANIVERSARIO FROM ANIVERSARIO WHERE (((TABELA.ANIVERSARIO) Between " & CDATE(DT1) & " And " & CDATE(DT2) & "));")

 

DESCULPE ESQUECI DE RETIRAR O ANO

No Load do form:

Dim dMesAtual As Date

dMesAtual = Date()

sSql = "SELECT * FROM tblAniversariantes WHERE Data =#" & Format(dMesAtual, "mm") & "#"