Office中国论坛/Access中国论坛

标题: 用代码压缩后台数据库后无法自动刷新，引至“1517”错误，如何才能在压缩后刷新后台 [打印本页]

作者: tanlangkun 时间: 2005-7-30 22:17
标题: 用代码压缩后台数据库后无法自动刷新，引至“1517”错误，如何才能在压缩后刷新后台
在用代码进行后台压缩后，会出现如正情况：

[attach]12108[/attach]

而且在查询中也会出现如下情况：

[attach]12107[/attach]

这是为什么，有人知道吗？

[此贴子已经被作者于2005-7-30 16:33:30编辑过]

作者: tanlangkun 时间: 2005-7-31 00:33
我找到原因了，所以改了标题。当我用ACCESS中的链接表管理器刷新后台数据库后，错误消失，请问如何才能用代码刷新后台数据库中的所有表？

作者: howernet 时间: 2006-11-18 08:23
我想知道如何用代码压缩后台数据库啊~

作者: yinwenjun 时间: 2006-11-29 00:33
我想知道如何用代码压缩后台数据库啊~

作者: aodou51899 时间: 2016-5-25 22:59
'方法四
Public Function ComPactBackDB(FilePath As String, Optional Exclusive As Boolean = False, Optional bstrPassword As String) As Boolean
'通过前台压缩后台数据库，不会出现方法三提示文件打开无法压缩
On Error GoTo ErrorHandler
Dim objAccess As Object
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase FilePath, Exclusive, bstrPassword
objAccess.CommandBars("Tools").Controls(7).Controls(2).accDoDefaultAction
ComPactBackDB = True
ExitHere:
Exit Function
ErrorHandler:
ComPactBackDB = False
GoTo ExitHere
End Function

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