请帮忙(在线等)

jhzlzc29

Private Sub Form_Open(Cancel As Integer)
i = "select * from [应付结算] where 审讫=no;"
If Recordset.RecordCount = 0 Then(这里提示错误)
MsgBox ("没有要查核的记录")
Cancel = -1
DoCmd.Close
Else
End If
End Sub
我现在的操作系统是2000，OFFICE也是XP的
我的操作系统以前是XP，OFFICE也是XP的，在这环境下运行正常，请各位帮帮忙是什么问题
[em01][em01][em01]小弟很急，谢谢了!!

zhengjialon

这个代码不能运行，你把加载时将窗体的数据源设为： "select * from [应付结算] where 审讫=no;"

jhzlzc29

是呀我的窗体数据源也是这个呀，而且我刚才试了，在WIN98下也很正常呀，这是怎么回事呢

nplgacce

用<1 试试：）

jhzlzc29

我现在正在重装OFFICEXP，过会我试试，谢谢了