[求助]在VBA中引用日期型变量出现问题

28795277

在以下代码中，如果将[考勤日期]由日期型改成文本类型，再将“#”换成“'”后程序就能正常运行，否则便提示错误，所以我估计问题就出在该字段的引用上，不知是不是语法错了，请各位达人帮偶看看~

With CodeContextObject

      rrr = "[考勤时间表]![工号]='" & Me![工号] & _

     "' and [考勤时间表]![考勤日期]= #" & Me![考勤日期] & "#"

      DoCmd.ApplyFilter "考勤时间表", rrr

      DoCmd.SetWarnings False

      If (.RecordsetClone.RecordCount > 0) Then

          DoCmd.RunSQL "UPDATE 考勤时间表 SET 上班时间 = '" & Time() & _

                                        "',考勤人 = '" & Me.姓名 & _

                                        "',迟到记录 = '" & Me.文本27 & _

                                        "' WHERE 工号 = '" & Me.工号 & _

                                        "' AND 考勤日期 = #" & Me.考勤日期 & "#"

会飞的鱼

引用日期变量的地方改成#"& format(me!日期,"yyyy/mm/dd") &"#时应该可以了