关于DAO的错误问题

george

如上图,不知为何?

代码如下:

Private Sub Form_Load()

Dim km As DAO.Recordset

Set km = CurrentDb.OpenRecordset("会计科目")

km.MoveFirst

For i = 1 To km.RecordCount

If IsNull(DLookup("编码", "会计科目", "编码 ='" & Me.编码 & "'")) = True Then

km("末") = -1

Else

km("末") = 0

End If

km.MoveNext

Next

End Sub

方漠

Private Sub Form_Load() Dim km As DAO.Recordset Set km = CurrentDb.OpenRecordset("会计科目") km.MoveFirst For i = 1 To km.RecordCount If IsNull(DLookup("编码", "会计科目", "编码 ='" & Me.编码 & "'")) = True Then KM.editkm("末") = -1 KM.UpdateElse KM.editkm("末") = 0 KM.UpdateEnd If km.MoveNext Next End Sub

情比金坚

这种事用查询解决不是更简单吗?

[此贴子已经被作者于2005-2-21 17:44:02编辑过]

cg1

多看看帮助， DAO 是需要先 EDIT 然后才能 UPDATE 的，和 ADO 不同的-----------------------------------------------------------------------------------------------http://access911.net 即日起提供 RSS 订阅功能，具体说明请参考    个性化的access911.net（三）本站增加 RSS 功能，多引擎跳转功能

    http://access911.net/?kbid;72FAB31E1BDCE8F3

   

RSS订阅链接如下：

http://access911.netss.asp

-----------------------------------------------------------------------------------------------

george

谢谢,我找不到DAO的帮助,请问有下载地址吗?最好是中文的,谢谢,非常感谢[em02]