Office中国论坛/Access中国论坛

标题: 关于DAO的错误问题 [打印本页]

作者: george 时间: 2005-2-22 00:08
标题: 关于DAO的错误问题
[attach]9028[/attach]

如上图,不知为何?

代码如下:

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

作者: 方漠 时间: 2005-2-22 01:39
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-22 01:40
这种事用查询解决不是更简单吗?

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

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

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

RSS订阅链接如下：

http://access911.netss.asp

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

作者: george 时间: 2005-2-22 16:45
谢谢,我找不到DAO的帮助,请问有下载地址吗?最好是中文的,谢谢,非常感谢[em02]

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