用代码压缩后台数据库后无法自动刷新，引至“1517”错误，如何才能在压缩后刷新后台

tanlangkun

在用代码进行后台压缩后，会出现如正情况：



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



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

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

tanlangkun

我找到原因了，所以改了标题。当我用ACCESS中的链接表管理器刷新后台数据库后，错误消失，请问如何才能用代码刷新后台数据库中的所有表？

howernet

我想知道如何用代码压缩后台数据库啊~

yinwenjun

我想知道如何用代码压缩后台数据库啊~

aodou51899

'方法四
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