Aniversários [Resolvido]

[crazyman]

sim, este codigo apenas verifica se o ano é bissesto ou nao...

Que penso que é a parte pior...

No entanto, se queres para uma data especifica, basta colocares um IF :

Ou seja, ainda mais facil

anos = DateDiff("yyyy", dt_nasc, now) -> retorna o numero de anos que o individuo tem.
depois:
If anos = 50 then
msgbox "O individuo tem: " & anos
end if

Podes colocar isto no evento load do form que cada vez que os dados de qualquer individuo forem carregados o codigo valida a condição.

---

Tb podes utilizar este codigo com um while e um EOF:

Ou seja:

O codigo vai percorrer todos os campos dt_nasc e verificar um a um se esse individuo tem 50 anos ou nao.

Em caso afirmativo retorna uma msg a dizer que sim...

Alerto que isso torna a base lenta, mas tb depende do numero de registos que a tabela tenha...