2010/08/05

access2010 データマクロの存在確認

コードで存在を確認するすべがないかな?と思ったらあった。
Sub FuncDataMacro()
    Dim cn As ADODB.Connection, rs As New ADODB.Recordset
    
    Set cn = CurrentProject.Connection
    
    rs.CursorLocation = adUseClient
    rs.Open "select LvExtra from MSysObjects where Name='テーブル1'", cn
    
    Debug.Print rs(0)
    
    rs.Close: Set rs = Nothing
    Set cn = Nothing
End Sub
ここでデータマクロ編集するつもりはないけど。

0 件のコメント: