【カテゴリー別】Access VBA ベーシック 模擬問題　フォーム_レポート

フォームとレポートの役割に関する説明として、最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、標準モジュールからフォーム「Form1」を参照してフォームの標題を表示する処理と、

フォーム「Form1」のフォームモジュールからフォーム自身を参照してフォームの標題を表示する処理である。

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

' 標準モジュールから実行するプロシージャ

Sub Exam1()

　　MsgBox 【　①　】. Caption

End Sub

' フォーム「Form1」のフォームモジュールから実行するプロシージャ

Private Sub btn1_Click()

　　MsgBox 【　②　】. Caption

End Sub

次のコードは、フォームモジュール内に記述されており、フォームの表題に表示されている文字列を表示する処理である。

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

Private Sub btn1_Click()

　MsgBox【　①　】. Caption

End Sub

次の文章のうち正しいものはどれか。以下の選択肢より１つ解答しなさい。

次のコードは、フォームの元となるデータ(レコードソース)を"Table2"テーブルに設定する処理である。

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

Private Sub btn1_Click()

　　Forms("Form1").【　①   】 = "Table2"

End Sub

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

Private Sub btn1_Click()

 Me.Filter = "data3 Like '5*'"

　Me.FilterOn = True

　MsgBox Me.Recordset.RecordCount

　Me.FilterOn = False

　Me.Requery

　　MsgBox Me.Recordset.RecordCount

End Sub

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

Private Sub btn1_Click()

　Me.【　①　】 = "data3 DESC"

　Me.OrderByOn = True

　　MsgBox "完了"

End Sub

次のコードは、カレントレコードのレコード番号を表示する処理である。空欄に当てはまる最も適切なプロパティはどれか。以下の選択肢より１つ解答しなさい。

Private Sub btn1_Click()

　MsgBox Forms("Form1").【　①　】& "がカレントレコード番号です"

End Sub

次のコードは、フォームに「data4が '5' で始まる」というフィルタ条件を設定し、そのフィルタを有効にする処理である。

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

Private Sub btn1_Click()

　Me.Filter = "data4 Like '5*'"

　Me.【　①　】 = True

MsgBox "完了"

End Sub

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

Private Sub btn_Click()

　　With Forms("Form Sports1").Recordset

　　　.FindFirst "data4 = 40"

　　　.FindNext "data4 = 60"

　　MsgBox "完了しました。"

　　End With

End Sub

RecordsetオブジェクトのFind系メソッドを使用した検索結果に関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

Find系メソッド(FindFirstメソッドなど)を使用してレコードを検索した結果、条件を満たすレコードが見つからなかった場合、NoMatchプロパティは【　①　】を返します。

条件を満たすレコードが見つかった場合は【　②　】を返します。

レコードセットの移動に関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

フォームのRecordsetプロパティで取得したレコードセットオブジェクトにおいて、カレントレコードを先頭のレコードに移動するメソッドは【　①   】であり、次のレコードに移動するメソッドは【　②   】である。

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

Private Sub btn1_Click()

　Forms("MainForm").Form1.Form.data1 = "123"

End Sub

コントロールのプロパティを利用して、値の取得や設定を行うことができます。

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

【コントロールに値を設定する場合】 コントロール.プロパティ = 【　①　】

【コントロールから値を取得する場合】 【　②　】 = コントロール.プロパティ

コントロールに関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

フォームのタイトルバーに表示される文字列や、ユーザーに見える標題を返すのは【　①　】プロパティであり、フォームやコントロールをVBAで識別する際に利用されるのは【　②　】プロパティです。

次のVBAコードは、フォーム上に配置されたテキストボックス(txt1)の前景色(文字色)を青色に、背景色を黄色に変更する処理です。

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

Private Sub btn1_Click()

　　Me.txt1.【　①　】 = vbBlue

　　Me.txt1.【　②　】 = vbYellow

End Sub

コントロールのプロパティに関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

フォーム上のコントロールを無効に設定するには【　①   】プロパティにFalseを設定します。

一方、コントロールのデータ編集だけを無効にするには、【　②   】プロパティにTrueを設定します。

次のVBAコードは、フォーム上に配置されたfrmオプショングループ内で、どのオプションボタン(op1、op2)が選択されているかを確認し、メッセージを表示する処理です。

このコードを実行した際、事前にオプションボタン「op2」が選択されていた場合の実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Private Sub btn1_Click()

　　Select Case Me.frm.Value

　　　　Case Me.op1.OptionValue

　　　　　　MsgBox "op1"

　　　　Case Me.op2.OptionValue

　　　　　　MsgBox "op2"

　　End Select

End Sub

リストボックスとコンボボックスに関する説明として、正しいものはどれか。以下の選択肢より１つ解答しなさい。

次のVBAコードは、フォーム上に配置されたボタン(btn1)をクリックし、リストボックス(list1)に、指定した値のリストをデータとして表示するための処理です。

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


→

Private Sub btn1_Click()

　　Me.list1.【　①　】 = "Value List"

　　Me.list1.【　②　】 = "9;8;7;6;5"

　MsgBox "完了"

End Sub

リストボックスの項目の追加・削除に関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

RowSourceTypeプロパティが「Value List」に設定されている場合、【　①   】メソッドを使用してリストボックスに新しい項目を追加できます。

また、項目を削除する場合はRemoveItemメソッドを使用しますが、引数に項目番号を指定して削除する場合、リストボックスの項目番号は【　②   】から始まる点に注意が必要です。

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

Private Sub btn1_Click()

　Me.list1.ColumnCount = 3

　Me.list1.RowSourceType = "Value List"

　Me.list1.RowSource = "A;B;C;D;E;F"

　　MsgBox "完了"

End Sub

ListIndexプロパティに関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

リストボックスで選択されたデータの項目番号を取得するには、ListIndexプロパティを使用します。

行数は"0"から始まるため、リストボックスの2行目のデータを選択している場合、ListIndexプロパティが返す値は【　①   】になります。また、どの項目も選択されていないときは【　②   】を返します。

次のVBAコードはリストボックスを操作するコードである。実行したとき、リストボックスの実行結果として正しいものはどれか。以下の選択肢より１つ解答しなさい。

Private Sub btn1_Click ()

　Dim i As Integer

　For i = 0 To Me.list.ListCount - 1

　　Me.list.Selected(i) = True

　MsgBox "選択しました。"

　Next i

End Sub

次のコードは、リストボックス「list1」の２列目の値をコントロールの値として取得するように設定し、その値を表示する処理である。

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

なおlst1はリストボックスのことである。

Private Sub btn1_Click()

Me.lst1.【　①   】 = 2

    Dim N As Variant

     N = Me.lst1.Value

    MsgBox "選択されたデータは 「" & N & "」 です。"

End Sub

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

Private Sub btn1_Click()

　If Me.RecordSelectors = True Then

　　Me.RecordSelectors = False

　Else

　　Me.RecordSelectors = False

　End If

　　MsgBox "完了"

End Sub

次のVBAコードは、フォーム上に配置されたテキストボックス(txt1)とボタン(btn1)を操作する処理です。このコードを実行したときの実行結果として正しいものはどれか。

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

Private Sub btn1_Click()

　　Me.btn1.SetFocus

　　Me.txt1.Value = "VBA"

　　　MsgBox Me.txt1.Text

End Sub

コントロールへのフォーカス移動に関する文章について、空欄に当てはまる最も適切なものはどれか。以下の選択肢より１つ解答しなさい。

VBAを使用して指定したコントロールにフォーカスを移動するには、コントロールの【　①　】メソッドを使用します。

これは、DoCmdオブジェクトの【　②　】メソッドを使用した場合と同じような処理を行うことができます。