Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
progster

Aniversários [Resolvido]

Recommended Posts

progster

Bom dia.

Estou a desenvolver uma pequena BD em Access, para o departamento de Recursos Humanos onde trabalho, e uma das componentes é criar altertas de aniversários, ou seja, ao abrir a BD automaticamente aparece o formulário de funcionários, o que eu quero é que através de um botão me apareça uma msg com a lista de funcionários que fazem 50 anos.

Desde já agradeço qualquer ajuda que me possam dar.

Cumprimentos.


Não resolvo dúvidas por PM.

Share this post


Link to post
Share on other sites
FreiNando

Tenta este exemplo:

Private Sub cmdAniversarios_Click()
    Dim rst As Recordset
    Dim Nomes As String
    Dim Data As Date
    
    Data = DateSerial(Year(Date) - 50, Month(Date), Day(Date))
    Set rst = Application.CurrentDb.OpenRecordset( _
            "SELECT [Nome] FROM  [Funcionarios] WHERE [Data_Nascimento]=#" _
            & Format(Data, "mm-dd-yyyy") & "#")
    If rst.EOF Then
        MsgBox "Hoje Não Há Aniversariantes com 50 Anos!"
    Else
        S = ""
        Do Until rst.EOF
            S = S & vbCrLf & rst!Nome
            rst.MoveNext
        Loop
        MsgBox "Hoje Fazem 50 Anos:" & S
    End If
End Sub

Acerta os nomes dos campos e da tabela pela tua base de dados.


O caminho mais curto para conseguir fazer muitas coisas é fazer uma de cada vez. Samuel Smiles

Share this post


Link to post
Share on other sites
progster

Bom Dia.

Para a parte da idade, já está a funcionar, mas agora o futuro utilizador da BD pediu-me: Para os funcionários que fazem 50 anos, é preciso saber se todos, se nenhum, ou qual deles já foi a uma consulta médica obrigatória pedida pelo serviço.

Obrigado pela ajuda. Já á alguns dias que andava de volta disto.

Agradeço qualquer ajuda que ainda me possam dar para a parte da consulta médica.

Cumprimentos.


Não resolvo dúvidas por PM.

Share this post


Link to post
Share on other sites
progster

Obrigado a todos pela ajuda prestada.

Tenho a BD a funcionar.

Cumprimentos.


Não resolvo dúvidas por PM.

Share this post


Link to post
Share on other sites
kleiver

foi me proposto um trabalho do genero deste, mas em ves de mostrar as pessoas que fizerem 50 anos,

mostre os aniversarios das pessoas e que de um alerta de que a pessoa x faz anos dentro de 2dias por exemplo. (tipo hi5/facebook)

ja fiz a BD em access e ja liguei ao VB, mas a parte do codigo e que precisava duma ajudinha.

se alguem poder ajudar agradecia.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.