Microsoft Access Club >


データベースを共有モードで開く -- みんなのAccess備忘録
 

○分類
VBA
○解説
  • DAOを用いて、データベースを共有モード開くプロシージャ。

    Function DataBase共有Open()

    on error goto エラー

    dim db as database

    Set db = Workspaces(0).OpenDatabase("Accessファイル名",False,False)

    Exit Function

    エラー:

    MsgBox "予期せぬエラー発生。"
    End

    End Function(笹川 きよし)
  • ○私的意見
    書き込みはまだありません。
    ○関連リンク
    書き込みはまだありません。

    --この記事は、みんなのAccess備忘録に投稿いただいた内容です--

    Microsoft Access Club