2010-04-09から1日間の記事一覧
[Access VBA] Refreshlinkを使用してリンクをカレントフォルダのMDBに更新する Const DbName = "XXXX" Sub RefreshTableLink() Dim t As TableDef For Each t In CurrentDb.TableDefs If t.Connect <> "" Then Debug.Print t.Connect t.Connect = ";DATABASE…
[Access VBA] Refreshlinkを使用してリンクをカレントフォルダのMDBに更新する Const DbName = "XXXX" Sub RefreshTableLink() Dim t As TableDef For Each t In CurrentDb.TableDefs If t.Connect <> "" Then Debug.Print t.Connect t.Connect = ";DATABASE…