代码取不出日期格式的值

668899

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

三个错误
1、 标题错误
2、 引用错误，gc = Me![造型数录入子窗体].form![发生日期]
3、 语法错误，SQL = "select * from 造型数历史表 where  [发生日期] =# " & gc & "#"

chenwm1973

[:50] [:50]

668899

谢谢你哈，嘿嘿

668899

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

If reset.NoMatch = True Then
没有记录的话，就进入else语句。

Henry D. Sy

不明白你要干什么
再说日期均为空值。当然出现错误。

668899

我就是想把每天的造型数存到历史库里，如果历史库里有，就先删除，再执行追加查询