标题: 日期到期检测代码 [打印本页] 作者: ycxchen 时间: 2009-8-17 17:42 标题: 日期到期检测代码 在窗体1中，我想运行查询后达到如下目的：
1、将合同到期与不到期的记录分别用MSGBOX语句显示出来，但运行时提示出错，如何解决？
2、在例子中的“陈生”，其合同工程记录既有没到期的，也有到期的，哪么，用什么语句来检测？
盼大家指教
[attach]39284[/attach]作者: Henry D. Sy 时间: 2009-8-17 18:24
将合同到期与不到期的记录分别用MSGBOX语句显示出来-----------显示什么？？作者: Henry D. Sy 时间: 2009-8-17 18:45
不知道是不是这个意思
Private Sub Command2_Click()
Dim rs As New ADODB.Recordset
Dim qdf As DAO.QueryDef
Dim strSQL As String
Dim strWhere As String
If Not IsNull(Me.Combo0) Then
strWhere = "姓名='" & Me.Combo0 & "'"
strSQL = "select * from a where " & strWhere
Else
strSQL = "select * from a"
End If
Set qdf = CurrentDb.QueryDefs("b")
qdf.SQL = strSQL
DoCmd.OpenQuery "b"
qdf.Close
With rs
.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
Do While Not .EOF
If .Fields("结束日期") < Date Then
MsgBox .Fields(0) & "--" & .Fields(1) & "--" & "已过期"
Else
MsgBox .Fields(0) & "--" & .Fields(1) & "--" & "没过期"
End If
.MoveNext
Loop
.Close
End With
Set rs = Nothing
Set qdf = Nothing
End Sub作者: ycxchen 时间: 2009-8-18 10:14
版主真热心，万分感谢！真佩服你这么高的水平！作者: ys_lxx 时间: 2009-8-19 18:14
路过，学习一下。作者: ys_lxx 时间: 2009-8-19 18:14
路过，学习一下。作者: ys_lxx 时间: 2009-8-19 18:15 4#ycxchen
路过，学习一下。作者: taofbjty 时间: 2009-9-5 01:05
学习学习，顶了再顶！作者: apsfxc1 时间: 2009-9-5 08:53
经过，学作者: michael100 时间: 2009-9-9 12:13
路过,学习中作者: 13555609005 时间: 2009-9-27 22:39
学习一下作者: 13555609005 时间: 2009-10-24 17:26
学习一下作者: fnsmydyang 时间: 2009-10-24 20:43
学习一下，谢谢作者: peiheng 时间: 2009-11-8 01:15
日历控件作者: shitou1ge 时间: 2009-11-30 11:08
正需要学习这方面 太好了作者: bai7934 时间: 2009-12-5 21:33
路过，学习一下作者: allan111 时间: 2009-12-7 13:02
正是想要的.谢谢
