一行コード ： Access

[Access VBA実行コード]

■ Accessフォーム

フォームを開く
DoCmd.OpenForm "F_一覧"

ダイアログ形式でフォームを開く
DoCmd.OpenForm "F_一覧", , , , , acDialog

フォームの最大化
DoCmd.Maximize

フォームの最小化
DoCmd.Minimize

フォームを元のサイズに戻す
DoCmd.Restore

フォームのタイトル
F_一覧.Caption = "情報一覧"

フォームを閉じる
DoCmd.Close

フォームを指定して閉じる
DoCmd.Close acForm, "F_一覧"

---

■ Accessレポート

印刷
DoCmd.OpenReport "R_一覧", acNormal

印刷プレビュー
DoCmd.OpenReport "R_一覧", acPreview

---

■ Accessコントロール

コントロールにフォーカスを移す
Commandbutton1.SetFocus

コントロールを非表示
Commandbutton1.Visible = False

コントロールを表示
Commandbutton1.Visible = False

コントロールのヒントを設定
Commandbutton1.ControlTipText = "クリックしてください。"

コントロール使用不可にする
Commandbutton1.Enabled = False

テキストボックス・コンボボックスを編集不可にする
TextBox1.Locked = True

背景色を変更
TextBox1.BackColor = VbRed

文字色を変更
TextBox1.ForeColor = VbBlack

---

■ Accessツールバー

ツールバーを表示
DoCmd.ShowToolbar "MyToolbar", acToolbarYes

ツールバーを非表示
DoCmd.ShowToolbar "MyToolbar", acToolbarNo

■ Accessオプション設定の操作

レコードの変更時に確認メッセージを表示しない
Application.SetOption "Confirm Record Changes", False

レコードの変更時に確認メッセージを表示する
Application.SetOption "Confirm Record Changes", False

オブジェクトを削除する時警告メッセージを表示しない
Application.SetOption "Confirm Document Deletions", False

オブジェクトを削除する時警告メッセージを表示する
Application.SetOption "Confirm Document Deletions", True

アクションクエリを実行する前にメッセージを表示しない
Application.SetOption "Confirm Action Queries", False

アクションクエリを実行する前にメッセージを表示する
Application.SetOption "Confirm Action Queries", True

新規作成されるレポート・フォームの余白の設定
Application.SetOption "Left Margin", 1
Application.SetOption "Right Margin", 0.8
Application.SetOption "Top Margin", 1.5
Application.SetOption "Bottom Margin", 1.2

閉じるとき最適化を行う
Application.SetOption "Auto Compact", True

閉じるとき最適化をしない
Application.SetOption "Auto Compact", False

---

■ Accessレコード操作

先頭レコードの取得
s = DFirst("名前", "T_基本")

検索
s = DLookup("名前", "T_基本", "ID =50")

テーブルの削除
DoCmd.DeleteObject acTable, "T_基本情報"

---

■Access

自分自身のファイルが存在するフォルダ＋ファイル名
Application.CurrentDb.Name

自分自身のファイルが存在するフォルダ
Application.CurrentProject.Path

Accessを終了
Application.Quit