De uma ajuda noo Fórum....
http://dl.dropbox.com/u/26441349/Aditamento.rar
Cumprimentos.
- 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.