Office中国论坛/Access中国论坛

标题: 日期比较问题！ [打印本页]

作者: petrak 时间: 2005-6-30 09:34
标题: 日期比较问题！
如题，想通过一个窗体，通过输入＂起始日期＂和＂终止日期＂，把＂代号＂（也是在这个窗体上输入的）追加到另一个表中所有日期在＂起始日期＂和＂终止日期＂之间的数据．

我是这样做的：

　　　Set db = DBEngine(0)(0)

　 Set rst1 = db.OpenRecordset("表2", DB_OPEN_DYNASET)

　　 SuchKriterium = "BeginDat" & ">=" & Me!VDatum '& " And " & "BeginDat" & "<= " & Me![BDatum])

　　rst1.FindFirst SuchKriterium

　　　If Not rst1.NoMatch Then

With rst1

  　　 While Not rst1.EOF

.Edit

   !LFNR = Me.Auflfnr

   .Update '       rst1.FindNext SuchKriterium

   If rst1.NoMatch Then GoTo ende

Wend

ende:

  End With

End If

rst1.Close

   Set db = Nothing

可是日期不能正确比较．大家看看，什么地方错了啊？或者有什么别的办法？先谢谢大家了！！

[em01]

作者: 海狸先生 时间: 2005-6-30 16:05
dao 只能有一个条件吧

作者: petrak 时间: 2005-6-30 21:04
啊!是吗?5555555,不过还是谢谢斑竹啦,看来还是要用别的方法了.

作者: 静儿 时间: 2005-6-30 21:54
为什么不用更新查询呢？

作者: garyshang 时间: 2007-11-4 20:31
学习一下

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