ACCESS 里面用vb写的VBA，无法正常调用数据，谢谢！

christianozhao 2008-03-12 07:48:17

'判断出库记录是不是大于4个月小

StrTemp = "select top 1 * from [Repair Record] where [Feeder S/N] ='" & Me.[Feeder SN] & "' and [Repair Record].[Export Time] < (DateAdd(""m"", -4, Now())) order [Export Time] desc"

rst.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rst.RecordCount <> 0 Then

MsgBox "距离现在" + CStr(DateDiff("d", rst("Export Time"), Now())) + "天", vbOKOnly
Forms!Import![Feeder SN].SetFocus
Else
MsgBox "很好可以通过", vbOK, "确认！"

End If
rst.Close

'结束
以上是我写的一个数据库代码，我首先找出了Export time 字段中距离今天最近的日期，但是在进行判断的时候（跟目前时间比如果小于4个月就报警，并要生成一份报告保存这些纪录），在判断的时候出现了错误，他调用的rst("Export Time")不是我指定的距离今天最近的日期，请问哪里错了，谢谢！

...全文