求助：mdb 在xp+office2000中出错?在win98+office2000中正常运行

ccczzz

Private Sub 命令8_Click()

Dim i As Long

    Dim rs As DAO.Recordset

   ' Set rs = Me.frm科室折旧子窗体.Form.RecordsetClone

    Set rs = Me.frm科室折旧子窗体.Form.RecordsetClone

    rs.MoveFirst

   

    For i = 1 To rs.RecordCount

        rs.Edit

        rs("K折旧是否") = False

        rs("科室折旧日期") = Null

        rs.Update

        rs.MoveNext

    Next i

End Sub

海狸先生

传上来看一看？

ccczzz

[此贴子已经被作者于2005-6-30 12:29:52编辑过]

海狸先生

我这里通过，xp+office2003估计是你的系统有问题

eyewitnes

我的也可以通过winxp+access2000

[此贴子已经被作者于2005-6-30 15:30:34编辑过]

ccczzz

以下是引用海狸先生在2005-6-30 14:23:00的发言：



我这里通过，

xp+office2003

估计是你的系统有问题

在安装office2000时有消息框弹出，见附图，是否有关？如何解决？

ccczzz

以下是引用eyewitnes在2005-6-30 15:30:00的发言：

我的也可以通过winxp+access2000

请问您用的是什么版本的winxp?，我用上海政府版。谢谢

tz-chf

Dim rs As DAO.Recordset文本和图片不一样。

eyewitnes

以下是引用ccczzz在2005-6-30 15:51:00的发言：





请问您用的是什么版本的winxp?，我用上海政府版。谢谢

我也不知道，系统不是我装的，不过我敢肯定是盗版，哈哈

zhujianming

有时候盗版的ＯＦＦＩＣＥ似乎有问题，同样的代码，不能运行，但是复制下来，重新做个窗体，粘贴上去竟然又行了．[em06]