AccessでODBCリンクテーブルを作成するプログラム。 (SQL Server2008用) モジュールを作って以下のコードを実行するとよい。 ※使用する際はDB接続情報、ODBC情報、ユーザ名の箇所を適切な値にかきかえること。(★の箇所) Option Compare Database ' ' リンク…

VBIDE.VBComponentを使うとAccessやExcelのソースにアクセスすることができる 以下、Accessのフォーム、モジュール等のコードをファイルに出力するプログラム ★の箇所は実行環境に合わせて任意の値に書き換えること ' ' 出力処理メイン ' Private Sub Sub_Co…

帳票フォームは行ごとにコントロールのプロパティを変更することはできない。 プロパティを変更するとすべての行にその内容が適用されてしまう(たぶん。。。) ただし、条件付書式を使用すれば一部のプロパティは行ごとに個別の値を設定できる。 以下のコード…

Accessのオートナンバーの列の値を初期化したい場合は テーブルの中身をすべてDeleteしたのち、 以下の３つのいずれかの方法で初期化することができる。 １．最適化を行う ２．Alter Tableで初期化する ALTER TABLE [tbl_hoge] ALTER COLUMN [clm_hoge] COUN…

Accessは使用しているとファイルサイズが巨大化する。 原因は削除したデータ分の空き領域や オブジェクトを削除・名前を変更した場合に残る残骸のせいらしい。 解消するには以下の方法で最適化を行うとよい。 ・「ツール」→「オプション」→「全般」タブの「…

Accessのカラム一覧をテキストに出力する。 Option Compare Database Private Const OUT_FILE As String = "D:\tabcoloum.tsv" ' ' テーブルのカラム一覧を出力します ' Public Sub get_TableColumns() Dim MyDB As DAO.Database Dim wkTableDef As DAO.Tabl…

Accessのテキスト型は末尾のスペースがカットされるvharchar型だが 以下のようにCreate文をクエリで実行して作成した場合はchar型の項目を作成することができる。 create table hoge ( コード char (8) NOT NULL primary key, 項目１ varchar (10) NOT NULL,…

複数のmdbのAccessのオブジェクトを１つのmdbにインポートするVBAです。 Modulesを作成し、以下のコードを貼り付けてください。 Public Function mdb_import_main() Dim FileSystem As Object '現在格納されているオブジェクトの削除を行う Call Delete_MyOb…

Accessでフォーム、コントロールの情報を取得するのは以下の通り。 ※モジュールとして作成しています。 Option Compare Database ' ' フォームに配置されたコントロールの情報取得します。 ' Public Function get_controls() Dim obj As AccessObject Dim my…

Accessのテーブルへ角スペースをキーボードで入力しようとすると 上手く入力できない。 この現象はAccessは末尾の半角スペースを除去してしまう仕様のためである。 ただし、以下の手順で入力することが可能 １．スペースをクリップボードにコピー ２．テーブ…

AccessでODBCリンクテーブルを作成するプログラム。 モジュールを作って以下のコードを実行するとよい。 ※使用する際はDB接続情報、ODBC情報、ユーザ名の箇所を適切な値にかきかえること。(★の箇所) Option Compare Database ' ' リンクテーブル作成メイン '…

AccessでODBC経由でテーブルをインポートするプログラム。 モジュールを作って以下のコードを実行するとよい。 ※使用する際はDB接続情報、ODBC情報、ユーザ名の箇所を適切な値にかきかえること。(★の箇所) Option Compare Database ' ' テーブルインポート作…

Accessのテーブルの説明欄に一括して値をセットするモジュールを作ってみた。使用方法は以下のとおり。 １．カタログ情報を格納する新規テーブルを作成する テーブル名:MyCatalog カラム:テーブル名、説明 ※テーブル名は必ずこの名前にすること(モジュール内…

Accessでoracle等からリンクを貼った場合、 テーブル名の前にユーザ名が付加されてしまう。 それを除去するにはモジュールを作って以下のコードを実行するとよい。 Option Compare Database Public Sub removeschema() Dim db As Database Dim tbl As TableD…

ネットワーク上のAccessを開こうとすると以下のようなエラーがでることがある。 このファイルを開けません。 このファイルは、イントラネット外または信頼されていないサイトに保存されています。セキュリティ上問題がある可能性があるため、ファイルを開け…

１．リンクテーブルを右クリック→リンクテーブルマネージャ ２．リンク先を更新するためのプロンプトを毎回表示する ３．リンク先を変更してＯＫ