#2 フォーム/レポート系

ここで使われるメソッド/アクション
  • OpenForm/フォームを開く
  • OpenReport/レポートを開く
  • Close/閉じる
  • Maximize/最大化
  • Minimize/最小化
  • Restore/元のサイズに戻す
  • MoveSize/サイズ変更
  • PrintOut/印刷
  • Echo/エコー

フォームをフォームビューで開く

'フォーム"frm社員マスタ"をフォームビューで開きます
DoCmd.OpenForm "frm社員マスタ"

フォームを追加専用で開く

'フォーム"frm社員マスタ"を追加専用で開きます
DoCmd.OpenForm "frm社員マスタ", , , , acAdd

フォームを読み取り専用で開く

'フォーム"frm社員マスタ"を読み取り専用で開きます
DoCmd.OpenForm "frm社員マスタ", , , , acReadOnly

フォームをアイコンで開く

'フォーム"frm社員マスタ"をアイコン(最小化した状態)で開きます
DoCmd.OpenForm "frm社員マスタ", , , , , acIcon

フォームをダイアログとして開く

'フォーム"frm社員マスタ"をダイアログとして開きます
DoCmd.OpenForm "frm社員マスタ", , , , , acDialog

フォームを非表示で開く

'フォーム"frm社員マスタ"を非表示で開きます
DoCmd.OpenForm "frm社員マスタ", , , , , acHidden

フォームをデザインビューで開く

'フォーム"frm社員マスタ"をデザインビューで開きます
DoCmd.OpenForm "frm社員マスタ", acDesign

フォームを印刷プレビューで開く

'フォーム"frm社員マスタ"を印刷プレビューで開きます
DoCmd.OpenForm "frm社員マスタ", acPreview

フォームをデータシートビューで開く

'フォーム"frm社員マスタ"をデータシートビューで開きます
DoCmd.OpenForm "frm社員マスタ", acFormDS

特定のクエリーをレコードソースとしてフォームを開く

'クエリー"qsel社員マスタ"をレコードソースとしてフォーム"frm社員マスタ"を開きます
DoCmd.OpenForm "frm社員マスタ", , "qsel社員マスタ"

条件に合うデータだけを抽出したフォームを開く

'東京都に住む社員だけをフォーム"frm社員マスタ"に表示します
DoCmd.OpenForm "frm社員マスタ", , , "[都道府県] = '東京都'"

'シメイが"ア"〜"オ"で始まる社員だけをフォーム"frm社員マスタ"に表示します
DoCmd.OpenForm "frm社員マスタ", , , "[シメイ] Like '[ア-オ]*'"

'社員IDが10〜15の社員だけをフォーム"frm社員マスタ"に表示します
DoCmd.OpenForm "frm社員マスタ", , , "[社員ID] Between 10 And 15"

フォームに引数を渡して開く

'フォーム"frm社員マスタ"を、引数として"ABCD"を渡して開きます
DoCmd.OpenForm "frm社員マスタ", , , , , , "ABCD"

レポートを印刷する

'レポート"rpt社員マスタ"を印刷します
DoCmd.OpenReport "rpt社員マスタ"

レポートをプレビューする

'レポート"rpt社員マスタ"をプレビュー表示します
DoCmd.OpenReport "rpt社員マスタ", acPreview

レポートをデザインビューで開く

'レポート"rpt社員マスタ"をデザインビューで開きます
DoCmd.OpenReport "rpt社員マスタ", acDesign

特定のクエリーをレコードソースとしてレポートをプレビューする

'クエリー"qsel社員マスタ"をレコードソースとしてレポート"rpt社員マスタ"をプレビューします
DoCmd.OpenReport "rpt社員マスタ", acPreview, "qsel社員マスタ"

条件に合うデータだけを抽出したレポートを印刷する

'東京都に住む社員だけをレポート"rpt社員マスタ"に印刷します
DoCmd.OpenReport "rpt社員マスタ", , , "[都道府県] = '東京都'"

'シメイが"ア"〜"オ"で始まる社員だけをレポート"rpt社員マスタ"でプレビューします
DoCmd.OpenReport "rpt社員マスタ", , , "[シメイ] Like '[ア-オ]*'"

アクティブウィンドウを閉じる

'アクティブなウィンドウを閉じます。主に自分自身のフォームを閉じます。
DoCmd.Close

指定フォームを閉じる

'フォーム"frm社員マスタ"を閉じます
DoCmd.Close acForm, "frm社員マスタ"

指定レポートを閉じる

'レポート"rpt社員マスタ"のプレビューウィンドウを閉じます
DoCmd.Close acReport, "rpt社員マスタ"

デザイン変更を保存せずに閉じる

'テーブル"社員マスタ"を、デザイン変更を保存せずに閉じます
DoCmd.Close acTable, "社員マスタ", acSaveNo

デザイン変更を保存して閉じる

'クエリー"qsel社員マスタ"を、デザイン変更を強制的に保存して閉じます
DoCmd.Close acQuery, "qsel社員マスタ", acSaveYes

アクティブウィンドウを最大化する

'アクティブなウィンドウを最大化します
DoCmd.Maximize

※特定のウィンドウを対象にする場合は、SelectObjectメソッド と組み合わせます。
'フォーム"frm社員マスタ"を最大化します
DoCmd.SelectObject acForm, "frm社員マスタ"
DoCmd.Maximize

アクティブウィンドウを最小化する

'アクティブなウィンドウを最小化します
DoCmd.Minimize
  
アクティブウィンドウを元のサイズに戻す

'アクティブなウィンドウのサイズを元のサイズに戻します
DoCmd.Restore
  
ウィンドウサイズを変更する

'アクティブなウィンドウのサイズを、幅10cm、高さ8cm に変更します
DoCmd.MoveSize , , 5670, 4536

※単位は twip です。1cm は 567twip です。・・・・・10cm=5670twip
  
ウィンドウの位置を移動する

'アクティブなウィンドウを、横4cm、縦3cm の位置に移動します
DoCmd.MoveSize 2268, 1701

※単位は twip です。1cm は 567twip です。・・・・・4cm=2268twip

アクティブウィンドウを印刷する(全ページを1部だけ印刷する場合)

'アクティブなウィンドウの全ページを1部だけ印刷します
DoCmd.PrintOut

アクティブウィンドウを印刷する(指定ページだけを印刷する場合)

'アクティブなウィンドウの 1〜2ページ だけを印刷します
DoCmd.PrintOut acPages, 1, 2

アクティブウィンドウを印刷する(複数部数印刷する場合)

'アクティブなウィンドウの全ページを 5部 印刷します
DoCmd.PrintOut , , , , 5
  
画面の再描画を抑止する

DoCmd.Echo False

※通常は Applicationオブジェクトの Echoメソッドを使います。したがって、"Echo False"という記述でOKです。

画面の再描画を抑止を解除する

DoCmd.Echo True

※通常は Applicationオブジェクトの Echoメソッドを使います。したがって、"Echo True"という記述でOKです。



| Index | Prev | Next |

 

Copyright © T'sWare All rights reserved