[Resolvido]Aviso quando chegar a data

bem galera, sou novo no fórum e sei muito pouco de Vba,
O problema é o seguinte, tenho uma tabela de adiantamento, com código, funcionário, data do adiantamento, data do desconto, e o valor, estou usando um código que me manda uma mensagem na data que tem adiantamento a ser descontado, queria que essa mensagem me mostrasse o funcionário e a quantidade do adiantamento...

Peguei esse código nesse fórum

Private Sub Form_Open(Cancel As Integer)
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("adiantamento", dbOpenDynaset)
rst.FindFirst "[Data do desconto] = date()"
If rst.NoMatch Then
MsgBox "Não tem adiantamento .", vbInformation
Else
MsgBox "tem adiantamento", vbInformation
End If

quem puder me dar uma ajuda.. Abraços a todos
Set rst = Nothing
Set dbs = Nothing
End Sub

Olá, seja bem vindo ao fórum!

Você pode tentar utilizando o DCount tambem:

Código:

If DCount("*", "NomeDaTabela", "SeuCampoData=#" & Format(Now, "mm/dd/yyyy") & "#") > 0 Then
    MsgBox "Há vencimentos para hoje", vbInformation, "Status"
Else
    MsgBox "Não há vencimentos para hoje", vbInformation, "Status"
End If

Então, não funcionou..

sem querer abusar, esse código mostraria no nome do funcionário?? e o valor do adiantamento??

Melhor criar uma consulta com os campos que quer, colocando na linha critério do campo da data = Date(). Depois, crie um formulário contínuo tendo essa consulta como base. No evento "Ao carregar" do formulário principal você verifica se a consulta contem registros. Se tiver, abre esse formulário contínuo:

Código:

If DCount("*", "NomeDaConsulta") > 0 Then
    DoCmd.OpenForm "NomeDoFormulárioContínuo"
End If

Esse procedimento é melhor porque pode ter mais de um registro com a data atual e assim mostra todos.

deu certinho..
mas só mais uma paradinha, quando abri o formulário principal como pop-up e maximizado, o formulário da consulta abre com pop-up e fica atrás do principal, como faço para ele ficar na frente do principal??

Nas propriedades dele, aba Outra e linha "janela restrita", coloque Sim.

Bom dia Amigos havia feito este modelo quando vi o tópico ontem.

Utiliza a gravação de um log em listbox.


Codigos

Código:


Private Sub Form_Load()
    Dim Rst As Recordset
   
    Set Rst = Me.RecordsetClone
    DoCmd.OpenForm "FormAviso", acNormal, , , , acDialog

    Rst.MoveFirst
   
    Do While Not Rst.EOF
        If Rst!DataAditamento <= Date Then
        EscreveLog (Rst!DataAditamento & "  Para o funcionario  " & Rst!Funcionario)
      End If
    Rst.MoveNext


Loop
End Sub
'Escreve log's em listBox no Form
Private Sub EscreveLog(msg As String)
On Error GoTo TrataErro
    ' adiciona menssagem
    Forms!FormAviso!lista.RowSource = Forms!FormAviso!lista.RowSource & msg & ";"
    Forms!FormAviso!lista = Forms!FormAviso!lista.ItemData(Forms!FormAviso!lista.ListCount() - 1)
    Exit Sub
TrataErro:
    MsgBox Error, , Err
End Sub


http://dl.dropbox.com/u/26441349/Aditamento.rar

Cumprimentos

Valeu a todos e muito obrigado

como o BD era simples, está resolvido e agradeço a todos

Harysohn testei mas nao funcionou
eu queria aquela tela de log da seu programa de biometria igual a essa imagem pois to querendo mostrar os itens importados da minha nota fiscal...

**** Este tópico foi dividido por se tratar de dúvida diversa ao original.
Esta dúvida no tópico:

http://maximoaccess.forumeiros.com/t7780-escrever-log-em-listbox-dos-dados-contidos-em-um-recordset

Editado por: Harysohn Pina em 23/05/2012