Office中国论坛/Access中国论坛

标题: [求助]自定义的日期为什么不能用于查询？ [打印本页]

作者: fountain1107 时间: 2005-12-31 08:06
标题: [求助]自定义的日期为什么不能用于查询？
Dim Idate As Date

Dim strSQL As String

Dim qdf As QueryDef

Idate = InputBox("请按YYYY－MM－DD的样式输入所处理数据的日期", "请输入日期")

strSQL = "SELECT * from cj WHERE (((cj.到期日)<Idate) And ((cj.延期日)<Idate)"

Set qdf = CurrentDb.CreateQueryDef("bl_cj", strSQL)

DoCmd.OpenQuery qdf.Name

为什么定义了日期数据，到了查询时还要再输入日期呢？

请高手帮助改一下！！！！

作者: 阿笨 时间: 2005-12-31 08:39
strSql="SELECT * from cj WHERE (((cj.到期日)<#" & Idate & "#) And ((cj.延期日)<#" & Idate & "#)"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)