【カテゴリー別】Access VBA ベーシック模擬問題　DoCmd

こちらはカテゴリー別の模擬問題です。

システムに登録した順番に1問1答形式で出題されます。

タイマー機能やランダム機能はありません。

準備が整い次第、ボタンを押して試験を開始してください。

1.

DoCmdオブジェクトの説明として正しいものはどれか、以下の選択肢より１つ解答しなさい.

DoCmdオブジェクトは、VBAの変数や定数を宣言するために使用するオブジェクトである。

DoCmdオブジェクトは、メソッドを指定してAccessのデータベースオブジェクトをVBAから操作するために使用するオブジェクトである。

DoCmdオブジェクトは、テーブルのデータを直接編集するための専用オブジェクトである。

DoCmdオブジェクトは、エラー処理を行うためのステートメントである。

2.

次のコードは"Table1"テーブルをデータシートビューで開く例である。空欄に当てはまる最も適切な定数はどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.OpenTable "Table1",【　① 】,acAdd

End Sub

acViewNormal

acViewDesign

acViewPreview

acDesign

3.

次のコードは、クエリ「Query1」を「読み取り専用」で開く処理である。空欄に当てはまる最も適切な定数はどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.OpenQuery "Query1", acViewNormal, 【　①　】

End Sub

acReadOnly

acEdit

acAdd

acNormal

4.

次のコードは、フォーム"Form1"を新しいレコードを追加するモードで開く処理です。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.OpenForm "Form1", , , , 【　①　】

End Sub

acFormReadOnly

acFormAdd

acFormPropertySettings

acFormEdit

5.

次のVBAコードを実行したとき、レポート"Report1"はどのように実行されるか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.OpenReport "Report1", acViewPreview

End Sub

プリンタに直接印刷される。

画面に印刷プレビューが表示される。

デザインビューで表示される。

レイアウトビューで表示される。

6.

次のコードは、オブジェクト名を省略して、ナビゲーションウィンドウで最初に見つかったフォームを選択する処理です。

空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.SelectObject acForm, , 【　①　】

End Sub

False

acWindowNormal

True

acLayout

7.

次のVBAコードを実行したとき、フォーム"Form1"上のコントロール"txt2"はどうなるか。以下の選択肢より１つ解答しなさい。

下のボックスがコントロール"txt2"

Sub Exam1()

　　DoCmd.OpenForm "Form1"

　　DoCmd.GoToControl "txt2"

End Sub

「txt2」に値があればクリアされる。

「txt2」にフォーカスが移動する。

「txt2」が非表示になる。

「txt2」がロックされ、編集できなくなる。

8.

次のコードは、アクティブウィンドウを最小化して表示する処理です。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.SelectObject acTable, "Table1"

　　DoCmd.【　①　】

　MsgBox "完了"

End Sub

Maximize

Restore

Close

Minimize

9.

次のVBAコードを実行したとき、アクティブウィンドウの状態として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　　DoCmd.MoveSize 1440, 1440, 5000, 3000

　　MsgBox "完了"

End Sub

ウィンドウの位置はそのままで、幅5000twip、高さ3000twipにサイズ変更される。

画面の左上端から右に1440twip、下に1440twipの位置に移動し、幅5000twip、高さ3000twipにサイズ変更される。

画面の右下端から左に1440twip、上に1440twipの位置に移動し、サイズは変更されない。

ウィンドウ内のコンテンツが拡大表示される。

10.

次のコードは、フォーム"Form1"を削除する処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.【　①　】 acForm, "Form1"

　MsgBox "完了"

End Sub

CopyObject

DeleteObject

Rename

Delete

11.

次のコードは、アクティブなオブジェクト(レポートなど)の1ページ目から3ページ目までを印刷する処理である。

空欄に当てはまる最も適切な語句はどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.【　①　】 acPrintAll, 1, 3

　MsgBox "完了"

End Sub

PrintOut

OutputTo

Print

SelectObject

12.

次のVBAコードを実行したとき、列幅を変更したテーブル「Table1」の保存に関する動作として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.Close acTable, "Table1", acSaveNo

　　MsgBox "完了"

End Sub

変更内容を自動的に保存して閉じる。

変更内容を保存するかどうかを確認するダイアログを表示して閉じる。

変更内容を保存せずに閉じる。

テーブルのデザインビューに切り替えてから閉じる。

13.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.OpenForm "Form1"

　DoCmd.OpenTable "Table1"

　DoCmd.Save acForm, "Form1"

　DoCmd.Close acTable,"Table1", acSaveYes

　　MsgBox "完了"

End Sub

フォームとテーブルの両方を保存して閉じる。

フォームを保存し、テーブルを保存して閉じる。

何も保存せず閉じる。

テーブルを保存し、フォームを保存して閉じる。

14.

次のコードは、カンマ区切り付きテキストファイルをテーブル「Table1」としてインポートする処理である。

空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.TransferText 【　①　】, , "Table1", "C:¥test¥1.txt", True

MsgBox "完了"

End Sub

acImportDelim

acImportFixed

acExportDelim

acExportFixed

15.

次のコードは、Excelファイル「data.xlsx」をインポートして、新しいテーブル「Table2」を作成する処理である。空欄に当てはまる最も適切な語句はどれか。

以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.【　①　】 acImport, acSpreadsheetTypeExcel12Xml, "Table2", "C:¥work¥data.xlsx", True

　　　MsgBox "完了"

End Sub

TransferText

TransferSpreadsheet

TransferExcelsheet

ImportExcel

16.

次のコードは、Cドライブの「test」フォルダにテーブルTable3をエクスポートする処理である。

空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.TransferSpreadsheet 【　①　】,acSpreadsheetTypeExcel12Xml ,"Table3", "C:¥test¥test1.xlsx ", False

　MsgBox "完了"

End Sub

acImport

acLink

acExport

Export

17.

次のコードは、テーブル「Table1」をExcelファイルとして出力する処理である。空欄に当てはまる最も適切なものはどれか。

以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.OutputTo 【　①　】, "Table1", 【　②　】,"C:¥test¥test2.xlsx", True

End Sub

【　①　】−acOutputForm　【　②　】−acFormatXLSX

【　①　】−acOutputForm　【　②　】−acFormatTXT

【　①　】−acOutputTable　【　②　】−acFormatXLSX

【　①　】−acOutputTable　【　②　】−acFormatTXT

18.

次のVBAコードを実行したときの結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.OutputTo acOutputReport, "Report1", acFormatHTML, "C:¥work¥Invoice.html"

　　MsgBox "完了"

End Sub

レポート「Report1」がプリンタで印刷される。

レポート「Report1」がHTML形式で指定の場所に保存される。

レポート「Report1」がExcel形式でエクスポートされる。

レポート「Report1」が画面上でプレビュー表示される。

19.

次のコードは、アクティブなテーブルに対して"data3 = 40"という条件でフィルタを適用する処理である。空欄に当てはまる最も適切な語句はどれか。

以下の選択肢より１つ解答しなさい。

Sub Exam1()

　　DoCmd.【　①　】,"data3 = 40"

　　MsgBox "完了"

End Sub

FilterRecord

ShowAllRecords

ApplyFilter

RunFilter

20.

次のコードは、フォーム「Form1」を開き、「data3」コントロールにフォーカスを移した後で、data3が「5」から始まるレコードを検索する処理である。

空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.OpenForm "Form1"

　DoCmd.GoToControl "data3"

　DoCmd.FindRecord "5",【　①　】

　　MsgBox "完了"

End Sub

acAll

acAnywhere

acStart

acEntire

21.

次のコードは「data3」フィールドにフォーカスを移し最初に「30」を検索した後、同じ条件で次のレコードを検索する処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.GoToControl "data3"

　DoCmd.FindRecord "30"

　【　①　】

　　　MsgBox "完了"

End Sub

DoCmd.FindNext

DoCmd.FindRecord

DoCmd.GoToRecord

DoCmd.GoToControl

22.

次のVBAコードを実行したときの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.Beep

　　Debug.Print "処理が完了しました"

End Sub

イミディエイトウィンドウに「処理が完了しました」と表示された後に警告音が鳴る。

警告音が鳴った後にイミディエイトウィンドウに「処理が完了しました」と表示される。

警告音のみが鳴り、イミディエイトウィンドウには表示されない。

イミディエイトウィンドウにのみ表示され、警告音は鳴らない。

23.

次のVBAコードを実行したときの動作として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.Echo False

　DoCmd.OpenForm "Form1"

　DoCmd.OpenForm "Form2"

　　DoCmd.Echo True

End Sub

画面の再描画が停止された状態で処理が行われ、最後に再開される。

システム警告メッセージが非表示になり、最後に表示されるようになる。

処理中のエラーが無視され、最後にエラー通知が有効になる。

ステータスバーの表示が消え、最後に再表示される。

24.

次のコードは、警告メッセージを表示せずに「Query1」クエリを実行する処理である。空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.SetWarnings 【　①　】

　DoCmd.OpenQuery "Query1"

　　MsgBox"処理実行"

End Sub

1

Nothing

True

False

25.

次のコードは、マウスポインタの形状を「砂時計（待機状態）」に変更して、時間のかかる処理中であることをユーザーに示すものである。

空欄に当てはまる最も適切な語句はどれか。空欄に入る語句を解答しなさい。

Sub Exam1()

　　Dim N As Variant

　　DoCmd. True

　　　N = Split("A,B,C",",")

　　　MsgBox Join(N, "/")

　　DoCmd.【　①　】 False

End Sub

26.

次のコードはAccessを終了する際に、保存の確認ダイアログを表示する処理である。

空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Sub Exam1()

　DoCmd.Quit 【　①　】

End Sub

acQuitSaveNone

True

acQuitPrompt

acQuitSaveAll