请教如何实现即时提醒

goodidea

楚狐

寻欢兄帮着修改的到期提醒，本着互相学习的精神，送上代码：
Dim cn As New ADODB.Connection
Dim rst As ADODB.Recordset
Dim strfind As String
Dim strfhtno As String
Dim i As Integer
Set rst = New ADODB.Recordset
Set cn = CurrentProject.Connection
Dim sql As String
sql = "select * from tblOrdHt"
rst.Open sql, cn, 3, 3, 1
rst.MoveFirst
For i = 1 To rst.RecordCount
    If rst.Fields("FHtDate") = Date + 7 And rst.Fields("FHx") <> True Then
        strfhtno = strfhtno & vbCrLf & rst.Fields("FHtbh")
    End If
    rst.MoveNext
Next i
If strfhtno <> "" And Not IsNull(strfhtno) Then
    MsgBox "以下合同还有7天就到期了,请您及时处理!合同号为：" & vbCrLf & strfhtno & vbCrLf
End If
rst.Close
Set cn = Nothing

按合同到期日(FHtDate)提前7天提醒合同快到期了。

徐阿鹏

谢谢！！！您的帮助忘不了！
eio的。。。忘不了！

fangkinght

就是为什么不分厘卡决撒法啊

qdoffcie

问题说明白了，大家才好学习
谢谢了

yangzn

想必是eio大师的程序技法很高明，何不发出来，大家观摩一下．