Dim cn As Connection
Dim tt, bb, ww As Single Dim rs1 As New ADODB.Recordset ww = MsgBox("你想记录本张单据吗?如果不记录，单据号码将不会自动更新!", vbQuestion + vbYesNo)
If ww = 6 Then Set cn = CurrentProject.Connection '设置数据库连接为当前数据库 rs1.Open " 列印单据记录", cn, adOpenKeyset, adLockPessimistic, adCmdTable
cn.BeginTrans 作者: Eric666 时间: 2006-10-6 07:21
图片如下C:\Documents and Settings\zyw\My Documents\未命名.bmp作者: Grant 时间: 2006-10-6 09:26
缺少对ADO的引用,在vba视图中点击菜单栏的工具引用microsoft activex data objects xxxx的控件即可.作者: tmtony 时间: 2006-10-6 10:07
如果你是Access2000或以上版本,试着新建一个MDB文件,查看引用了有否ADO2.1如果没有,则可能Access本身已经有问题了,最好重装一下Access.如果有,则按楼上Grant的方法试试作者: Eric666 时间: 2006-10-6 18:06
谢谢Tony与Grant,按照你们的方法都试过,可惜问题还是存在,我怀疑是电脑问题,可能是在卸载某些程序时删除了什么控件,就是重新安装office都无法解决,以前的一些文件都不能正常打开,出现加载错误,也无法编译,但是在其他电脑上就可以打开.唉,真烦啊!