Office中国论坛/Access中国论坛

标题: 有关事务处理的错误 [打印本页]

作者: cnqdcc 时间: 2006-8-18 02:29
标题: 有关事务处理的错误
为什么我一使用事务处理程序就会出错,错误提示是

-214716824试着不先使用BeginTrans而提交或退回事务,

这是怎么造成的啊

我的代码摘要如下

currentproject.connection.BeginTrans

rs.moveFirst

Select case strLeixing

case "无人售票"

<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">

添加记录代码若干

case "有人售票"

添加记录代码若干

end select</BLOCKQUOTE>

if msgbox("您确定添加吗",VbYesNo)=Vbyes then

<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">

currentproject.connection.commitTrans

else

currentproject.connection.RollBackTrans</BLOCKQUOTE>

end if

作者: tz-chf 时间: 2006-8-18 04:58
关闭程序重试

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