Jump to content
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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...

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.