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

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

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

選択肢は試験実施毎に並び替えて表示されます。

タイマー機能はありません。

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

1.

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

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

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

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

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

2.

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

Sub Exam1()

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

End Sub

acViewPreview

acViewNormal

acDesign

acViewDesign

3.

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

Sub Exam1()

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

End Sub

acReadOnly

acNormal

acAdd

acEdit

4.

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

Sub Exam1()

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

End Sub

acFormPropertySettings

acFormReadOnly

acFormAdd

acFormEdit

5.

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

Sub Exam1()

　　DoCmd.OpenReport "Report1", acViewPreview

End Sub

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

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

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

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

6.

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

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

Sub Exam1()

　　DoCmd.SelectObject acForm, , 【　①　】

End Sub

True

False

acLayout

acWindowNormal

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

Restore

Maximize

Minimize

Close

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

Rename

Delete

DeleteObject

CopyObject

11.

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

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

Sub Exam1()

　　DoCmd.【　①　】 acPrintAll, 1, 3

　MsgBox "完了"

End Sub

OutputTo

PrintOut

SelectObject

Print

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

acExportFixed

acExportDelim

acImportDelim

acImportFixed

15.

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

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

Sub Exam1()

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

　　　MsgBox "完了"

End Sub

TransferSpreadsheet

ImportExcel

TransferText

TransferExcelsheet

16.

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

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

Sub Exam1()

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

　MsgBox "完了"

End Sub

Export

acExport

acLink

acImport

17.

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

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

Sub Exam1()

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

End Sub

【　①　】−acOutputForm　【　②　】−acFormatTXT

【　①　】−acOutputForm　【　②　】−acFormatXLSX

【　①　】−acOutputTable　【　②　】−acFormatTXT

【　①　】−acOutputTable　【　②　】−acFormatXLSX

18.

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

Sub Exam1()

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

　　MsgBox "完了"

End Sub

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

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

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

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

19.

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

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

Sub Exam1()

　　DoCmd.【　①　】,"data3 = 40"

　　MsgBox "完了"

End Sub

FilterRecord

ApplyFilter

RunFilter

ShowAllRecords

20.

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

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

Sub Exam1()

　DoCmd.OpenForm "Form1"

　DoCmd.GoToControl "data3"

　DoCmd.FindRecord "5",【　①　】

　　MsgBox "完了"

End Sub

acStart

acAnywhere

acEntire

acAll

21.

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

Sub Exam1()

　DoCmd.GoToControl "data3"

　DoCmd.FindRecord "30"

　【　①　】

　　　MsgBox "完了"

End Sub

DoCmd.FindRecord

DoCmd.GoToRecord

DoCmd.FindNext

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

False

Nothing

1

True

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

acQuitSaveAll

acQuitPrompt

acQuitSaveNone

True