Ir ao conteúdo

Datas como aniver,no access


Gilbertjuniors

Posts recomendados

  • Membro VIP
Postado

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ê!

:cool:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!