access備忘禄～テーブル構造を変える～

テスト用のmdbが自分のＰＣにあって、さらに、操作用のmdbが社員のPCにあって、基本テーブルは社内ネットワークの機関部に置いてある。なーんて状態。

そんなとき、テスト用にVBAを書いて

テーブル構造をこちゃこちゃ変えようとするよりも、新しいテーブルを作るVBAを作って基本のmdbに新しいデーブルができるようにする。操作用には新しいテーブルに入れたいレコードを入れておいて、そこから更新クエリで基本のmdbにレコードを更新するようにすればいいじゃーん。と気が付いた。

遅いよ。

参考：自宅サーバーでやってみよう

１．テスト用のmdbに新しいテーブルを作る。
２．基本用のmdbの古いテーブルを削除するVBAを書く

ここでは、フォーム上にボタンを作っている感じ。

３．新しいテーブルを作成する
フィールドの型はVBでデータベースを参考に。

４．主キーを設定する

続く。。。。。

Private Sub コマンド1_Click()

Dim db As Database
Set db = CurrentDb 　'このデータベース上を操作するってことだから、データベースのあるソースを書けばいい。
= DBEngine.Workspaces(0).OpenDatabase("C:\Documents and Settings～")

'２．テーブル削除

db.Execute "DROP TABLE テーブル名"

'３．テーブル作成
db.Execute "CREATE TABLE テーブル名 (フィールド名1 INTEGER, フィールド名2 TEXT, フィールド名3 TEXT)"

'４．主キー設定
db.Execute "alter table テーブル名 add constraint pk_a primary key ( フィールドA, フィールドB )"

db.Close
Set db = Nothing

End Sub