LACCDB记录锁定文件未关闭

Question

我的后端数据文件保持打开状态时出现问题，LACCDB 文件保持打开状态。我已将其范围缩小到导致问题的几行代码。我尝试了多种解决方案，但没有一个对我有用。唯一的选择是关闭前端，但这并不实用。

我想复制此 BE 文件，但如果 LACCDB 文件打开则无法复制。没有其他用户。我尝试删除查询和表（链接），但这仍然无法解决问题。运行 MS Access 2007 并在各种 PC 上进行了尝试。我还尝试将 ACCDB 文件从映射驱动器移动到本地驱动器。

代码：

Function TestMyLinks()
MyQuery="Test-Filter"
MyTable="Test"
MyCriteria = "[TestId]> 1"
MyCriteria = "SELECT [" & MyTable & "].*" & " FROM [" & MyTable & "] Where " & MyCriteria

DoCmd.DeleteObject acQuery, MyQuery    'Delete new query.
Set qdf = DataDb.CreateQueryDef(MyQuery, MyCriteria) ' Create new query
DoCmd.Close acQuery, MyQuery, acSaveYesDoCmd.Close acTable, "Test", acSaveYes

' This following code does not make any difference
'DoCmd.DeleteObject acQuery, "Test-Filter"
'DoCmd.DeleteObject acTable, "Test"
'DoCmd.TransferDatabase TransferType:=acLink, _
'        DatabaseType:="Microsoft Access", _
'        DatabaseName:="C:\MyClock\Test.accdb", _
'        ObjectType:=acTable, _
'        Source:="Attendance", _
'        Destination:="Attendance"
'Application.SetOption "Auto compact", True
'DoCmd.RunCommand acCmdCompactDatabase
'DBEngine.CompactDatabase "C:\MyClock\Test.accdb", "C:\MyClock\TestA.accdb" ' This fails1 as file locked
End Function

我尝试使用代码关闭表：

DoCmd.Close acQuery, "Test-Filter", acSaveNo
DoCmd.Close acTable, "Test", acSaveNo

我还尝试按照另一篇文章释放内存：

'release memory
qdf.Close 'i changed qdef to qdf here and below
Set qdf = Nothing