Office中国论坛/Access中国论坛

标题: 请问这段代码错在哪里？ [打印本页]

作者: 网络蜘蛛 时间: 2013-11-17 23:23
标题: 请问这段代码错在哪里？
Public Function CheckLinks() As Boolean
'检查到后台的数据库的链接，如果链接存在且正确的话，返回True。

  Dim dbs As Database, rst As Recordset

  Set dbs = CurrentDb

  '打开链接表查看表链接信息是否正确。
  On Error GoTo err

  Set rst = dbs.OpenRecordset("表_用户")
  rst.Close

CheckLinks = True

Exit Function
err:
CheckLinks = False
MsgBox "错误" & CStr(err.Number) & ": " & err.Description
End Function

这段代码在2003下运行正常，但把这个数据库转换为2007的格式后再运行，提示“错误13，类型不匹配”，请问是哪里的问题？

作者: tmtony 时间: 2013-11-18 08:51
引用DAO, 把
Dim dbs As Database, rst As Recordset
改为
Dim dbs As dao.Database, rst As dao.Recordset

作者: 网络蜘蛛 时间: 2013-11-18 23:14

tmtony 发表于 2013-11-18 08:51
引用DAO, 把
Dim dbs As Database, rst As Recordset
改为

问题解决，多谢！

作者: 好运牛 时间: 2013-11-19 20:15
网络蜘蛛：是access后台吗？

作者: 网络蜘蛛 时间: 2013-11-19 22:53

好运牛发表于 2013-11-19 20:15
网络蜘蛛：是access后台吗？

是。

作者: 好运牛 时间: 2013-12-3 22:31
谢谢回复

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