Office中国论坛/Access中国论坛

标题: 请教关于 BeginTrans 的用法！！！在线等！ [打印本页]

作者: pangz 时间: 2006-11-27 20:05
标题: 请教关于 BeginTrans 的用法！！！在线等！
请教关于 BeginTrans 的用法！！！在线等！

我正在升级一个Access97程序到access2000，如下关于 BeginTrans 代码无法通过，请执教

Dim grn_db As DAO.Database
Dim grn_hd As Recordset, grn_temp As DAO.Recordset, grn_dt As DAO.Recordset

Set grn_db = DBEngine.Workspaces(0).Databases(0)
Set grn_hd = grn_db.OpenRecordset("T23", DB_OPEN_DYNASET)
Set grn_temp = grn_db.OpenRecordset("T47", DB_OPEN_DYNASET)
Set grn_dt = grn_db.OpenRecordset("T24", DB_OPEN_DYNASET)

'BeginTrans在access 2000中出错

grn_db.BeginTrans 'access97原有代码，在access97中正常运行

'如果改为如下命令，则不出错，但不知道BeginTrans 是否有效！！

BeginTrans 'Access2000 only try by bp not get anyconfirm here

请指教！！！！

作者: pangz 时间: 2006-11-30 00:59
ding 1 ding!

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