(Resolvido) Aviso de Vencimento de Contrato

[Ricmendes]

Olá, bom dia a todos!

Estou fazendo um pequeno banco de dados de estagiários do meu trabalho. Queria construir um aviso de vencimento de contrato, que todas vez que fosse aberto o formulario informasse os contrato com vencimento no periodo de 7 dias, 35 dias e 45 dias? Então gostaria de saber se alguém poderia me da uma ajuda.

Desde agradeço atenção de todos.

Richard

[Coteco]

Olá!

Richard

Você pode fazer uma consulta que filtre as datas que você quer e adicionar depois ao formulário...

Qual é especificamente sua dúvida?

[Ricmendes]

não deu certo

[MrMALJ]

Como você não especificou nada do seu banco para essa dúvida muito simples vou fazer um codigo generico em sql para gerar uma consulta que pega todos os registros na data, creio que apartir dela fique facil você adequa-la para sua necessidade

select * from suaTabela where suaData=now();

[Ricmendes]

acho q não fui muito claro mesmo na minha dúvida. estou criando um banco com para os estagiários. nele consta um tabela (Tab_formulario) que tem alguns itens, dentre eles o campo "contrato final", assim gostaria sempre que esse contrato estivesse vencendo no prazo de 7 dias, fosse emitidoo um aviso que o contrato do estagiário esta vencendo.

desde já agradeço atenção de todos!

[Iceguy]

Boa tarde,

Cria um macro e coloca esse código:

Public Function getDia(dias As Integer) As Date
    Dim retorno As Date
    retorno = Now - dias
    getDia = Format(retorno, "dd/mm/yyyy")
End Function

Cria as consultas assim

SELECT *
FROM suaTabela
WHERE suaTabela.seuCampoVencimento BETWEEN getDia(dias) AND getDia(0);

onde o campo com a data de vencimento tem que ser do tipo "Data", e no parâmetro da função getDia() você coloca a quantidade de dias que você quer subtrair, por exemplo hoje dia 18/02/2011, se você der um getDia(4) ele retorna 14/02/2011. O getDia(0) traz a data de hoje. aí você cria um form para ser inicializado quando abrir o banco e coloca um código tipo esse:

Private Sub Form_Load()
On Error GoTo Erro
    Dim relatorio As String 'Nome do relatório
        
    relatorio = "reportVencimento7"
    DoCmd.OpenReport relatorio, acViewPreview  'Abre relatorio reportVencimento7
    
    relatorio = "reportVencimento35"
    DoCmd.OpenReport relatorio, acViewPreview  'Abre relatorio reportVencimento35
    
    relatorio = "reportVencimento45"
    DoCmd.OpenReport relatorio, acViewPreview 'Abre relatorio reportVencimento45
    
Sair:
    DoCmd.Close acForm, Me.Name
    Exit Sub
    
Erro:
    MsgBox Err.Description, vbCritical
    Resume Sair
End Sub

Nesse exemplo criei 3 relatórios baseado nas consultas, mas se você preferir pode colocar pra abrir a consulta, daí muda o código, trocando:

relatorio = "reportVencimento7"
DoCmd.OpenReport relatorio, acViewPreview

por

consulta = "consultaVencimento7"
DoCmd.OpenQuery consulta, acViewNormal

lembrando de trocar o nome da variável de relatorio para consulta

Mas particularmente prefico criar um form com 3 botões que ficam ou não habilitados dependendo da existência de vencimentos, e que só abre se tiver pelo menos um vencimento

[Ricmendes]

Olá, fiz um exemplo do q você me mandou, mas deu alguns erros no banco. então se não for encomodo estou mandando pra vocês darem uma analisada.

grato pela atenção

http://www.4shared.com/file/rC-8v1Wn/vencimento.html

[Iceguy]

• A macro estava errada, ela tava pegando os dias anteriores e não os seguintes, aí mudei o sinal de "-" para "+"
• Referenciei a query ao combobox do formulário
• O botão gerar só habilita quando ouver um valor na combobox
• Criei um report automático, ta feio mas da pra demonstrar

Aí da uma olhada e vê como ficou

http://www.megaupload.com/?d=8N9UEQOP

[Ricmendes]

Valeu,

muito obrigado mesmo por ter me ajudado no meu problema. :rolleyes:

Resolvido