Office中国论坛/Access中国论坛

标题: 代码取不出日期格式的值 [打印本页]

作者: 668899 时间: 2008-10-28 15:12
标题: 代码取不出日期格式的值
Dim db As DAO.Database
Dim reset As DAO.Recordset
Dim re As Integer
Dim gc As Date
gc = Me![造型数录入子窗体]![发生日期]

Set db = DBEngine.Workspaces(0).Databases(0)
SQL = "select * from 造型数历史表 where [发生日期] = " & gc & ""

这是我做的一段代码．gc 这个变量的值我取不出来，这是为什么啊，谁能帮我看看，gc我想让他等于造型数录入子窗体上发生日期，发生日期是个2008-09-10这样的日期格式，谁能帮我看看啊

[ 本帖最后由 668899 于 2008-10-29 09:53 编辑 ]

作者: Henry D. Sy 时间: 2008-10-28 16:34
三个错误
1、标题错误
2、引用错误，gc = Me![造型数录入子窗体].form![发生日期]
3、语法错误，SQL = "select * from 造型数历史表 where [发生日期] =# " & gc & "#"

作者: chenwm1973 时间: 2008-10-28 22:34
[:50] [:50]

作者: 668899 时间: 2008-10-29 08:43
谢谢你哈，嘿嘿

作者: 668899 时间: 2008-10-29 09:35
Dim db As DAO.Database
Dim reset As DAO.Recordset
Dim re As Integer
Dim gc As Date
gc = Me![造型数录入子窗体].Form![发生日期]

Set db = DBEngine.Workspaces(0).Databases(0)
SQL = "select * from 造型数历史表 where  [发生日期] =# " & gc & "#"
Set reset = db.OpenRecordset(SQL, DB_OPEN_DYNASET)
reset.FindFirst " [发生日期] = # " & gc & "#"
If reset.NoMatch = True Then

／／就这个循环为什么进不去啊，明明造型数历史表里有这个日期啊
   re = MsgBox("该日造型数已经导入完毕，需要重新导入吗？", vbYesNo, "提示信息")
   If re = 6 Then

      reset.Close
         db.Close
      DoCmd.OpenQuery "删除造型数历史表已追加数据"
         DoCmd.OpenQuery "每日造型数追加造型数历史表"
            End If
  Else
   reset.Close
   db.Close

   DoCmd.OpenQuery "每日造型数追加造型数历史表"

  End If
MsgBox "保存完毕！！！！！！"

  End Sub

作者: Henry D. Sy 时间: 2008-10-29 09:42
If reset.NoMatch = True Then
没有记录的话，就进入else语句。

作者: Henry D. Sy 时间: 2008-10-29 10:30
不明白你要干什么
再说日期均为空值。当然出现错误。

作者: 668899 时间: 2008-10-29 10:41
我就是想把每天的造型数存到历史库里，如果历史库里有，就先删除，再执行追加查询

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