Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

progster

Aniversários [Resolvido]

Mensagens Recomendadas

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.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.