2011-08-23 90 views

回答

3

以下是一些您可能會感興趣的註釋,具體取決於您的Access版本。

參見:GetDependencyInfo Method [Access 2003 VBA Language Reference]

不要忘了跟蹤名稱自動更正信息是不是一件好事,在大多數情況下,但在某些情況下是有用的。

Dim dinf As DependencyInfo 

For j = 0 To CurrentData.AllQueries.Count - 1 
    Set dinf = CurrentData.AllQueries(j).GetDependencyInfo 

    For i = 0 To dinf.Dependencies.Count - 1 
     ''Missing alias, query or table, as far as I can tell 
     If dinf.Dependencies.Item(i).Name Like "MISSING:*" Then 
      Debug.Print CurrentData.AllQueries(j).Name _ 
       & " " & dinf.Dependencies.Item(i).Name 
     End If 
    Next 
Next 

您可能需要更新依賴關係:

Application.CurrentProject.UpdateDependencyInfo 

這將需要保存。

+0

我只打開名稱自動更正當我特別需要跟蹤依賴關係修復事情。一旦工作完成,我再次關閉它。它適用於此目的。不過,它不應該在生產應用程序中。 –