Datas como aniver,no access

[Gilbertjuniors]

Como posso configurar/progamar o Access para informar automaticamente datas importantes de meus clientes e amigos que estejam em seu banco de dados, para enviar mala-direta.

[Clemente Silva]

Bom, você teria que escrever uma função num módulo, e chamar essa função numa Macro ou então num botão ou rotina de algum Formulário.

Por exemplo, suponto que você tenha uma tabela "Clientes" com um campo "Aniversário", você pode criar um Módulo e colocar o seguinte:

Function VerificarDatas()

    Dim Banco As DAO.Database, Tabela As DAO.Recordset
    Dim Registro As Long, Aniver As String, Nome As String, Idade As Long
        
    Set Banco = CurrentDb
    Set Tabela = Banco.OpenRecordset("Clientes")
    
    For Registro = 1 To Tabela.RecordCount
        Nome = "" & Tabela.Fields("Nome").Value
        Aniver = "" & Tabela.Fields("Aniversario").Value
        If IsDate(Aniver) Then
            Idade = Aniversario(CDate(Aniver))
            If Idade > 0 Then MsgBox Nome & " faz aniversário hoje! " & Idade & " anos!", vbInformation, "Parabéns " & Nome
        End If
        Tabela.MoveNext
    Next
    
    Banco.Close
    Set Banco = Nothing
    Set Tabela = Nothing

End Function

Function Aniversario(Data As Date) As Long
    Aniversario = ((Day(Data) = Day(Date)) And (Month(Data) = Month(Date)))
    If Aniversario Then Aniversario = DateDiff("yyyy", Data, Date) Else Aniversario = 0
End Function

Depois, crie uma Macro, escolha em "Ação" o item "ExecutarCódigo" e, lá embaixo em "Nome da função", digite "VerificarDatas ()", dessa maneira.

Dê um clique duplo na macro e veja o que acontece.

Este exemplo apenas informa o aniversário, pois estou supondo que a função para emitir as malas diretas você já tem, bastando apenas chamá-la ao invés de mostrar a MsgBox.

O resto é com você!