如何在Access數據庫中列出DataMacro對象？

Question

是否有可能以編程方式枚舉Access 2010+數據庫中的數據宏？如果是這樣，怎麼樣？

---

注意：Data Macros是在表設計UI的上下文中創建觸發器的類似程序。它們在Acces 2010中是新的。它們與通常的宏不同，它們很容易枚舉。

他們有自己的新AcObjectType枚舉值：acTableDataMacro，但我沒有發現指向它們的Access或DAO對象模型的其他方面。它們甚至不出現在MSysObjects表中。

Answer 1

此代碼將DataMacro元數據導出到一個XML文檔（Source）：

Sub DocumentDataMacros() 

'loop through all tables with data macros 
'write data macros to external files 
'open folder with files when done 

' click HERE 
' press F5 to Run! 

' Crystal 
' April 2010 

On Error GoTo Proc_Err 

' declare variables 
Dim db As DAO.Database _ 
, r As DAO.Recordset 

Dim sPath As String _ 
, sPathFile As String _ 
, s As String 

' assign variables 
Set db = CurrentDb 

sPath = CurrentProject.Path & "\" 

s = "SELECT [Name] FROM MSysObjects WHERE Not IsNull(LvExtra) and Type =1" 

Set r = db.OpenRecordset(s, dbOpenSnapshot) 

' loop through all records until the end 
Do While Not r.EOF 
sPathFile = sPath & r!Name & "_DataMacros.xml" 
'Big thanks to Wayne Phillips for figuring out how to do this! 
SaveAsText acTableDataMacro, r!Name, sPathFile 
'have not tested SaveAsAXL -- please share information if you do 
r.MoveNext 
Loop 

' give user a message 
MsgBox "Done documenting data macros for " & r.RecordCount & " tables ", , "Done" 

Application.FollowHyperlink CurrentProject.Path 

Proc_Exit: 
' close and release object variables 
If Not r Is Nothing Then 
r.Close 
Set r = Nothing 
End If 

Set db = Nothing 
Exit Sub 

Proc_Err: 
MsgBox Err.Description, , _ 
"ERROR " & Err.Number _ 
& " DocumentDataMacros" 

Resume Proc_Exit 
Resume 

End Sub 

編輯：戈德指出，你想反對標準宏DataMacros。我發現了一些代碼並進行了測試（它的工作原理）here

我測試了頂級函數，當您遵循該鏈接時，它保存了XML文檔中每個表的關於表宏的信息。它很好地工作，支持寫它的人。