【カテゴリー別】Access VBA スタンダード 模擬問題 フォーム_レポート

フォーム「form1」のフォームモジュール内から、同じフォーム上にあるテキストボックス「txt1」を参照する場合の説明として、最も適切なものはどれか。

選択肢の中から適切なものを１つ解答しなさい。

標準モジュールから、開いているフォーム「form1」上のテキストボックス「txt1」の値を参照したい。参照方法として最も適切なものはどれか。

選択肢の中から適切なものを１つ解答しなさい。

標準モジュール（対象オブジェクトのモジュール以外）から、開いているフォームを参照する記述である。

次のうち、誤っているものを以下の選択肢より1つ解答しなさい。

標準モジュール（対象オブジェクトのモジュール以外）から、開いているフォーム「form1」上のテキストボックス「txt1」を参照する記述である。

誤っているものを以下の選択肢より1つ解答しなさい。

標準モジュールから、名前に半角スペースを含むフォーム「form 1」上のコントロールを参照する。

フォーム名の記述として最も適切なものはどれか。以下の選択肢より1つ解答しなさい。

form1 をフォームビューで開いて「btn1」をクリックし、表示されたメッセージボックスで［OK］を押した。最終的な txt1・txt2 の表示として正しいものはどれか。以下の選択肢より1つ解答しなさい。




［form1 のフォームモジュール]

Private Sub btn1_Click()

　　txt1.Value = "オブジェクトモジュール"

　　Me.txt2.Value = "オブジェクトモジュール"

　　Call Exam1

End Sub

［標準モジュール］

Sub Exam1()

　　Dim N As Object

　　Forms("form1").txt2.Value = "標準モジュール"

　　MsgBox "標準モジュール参照"

　　For Each N In Forms("form1").Controls

　　　　If N.ControlType = acTextBox Then

　　　　　　N.Value = "VBA"

　　　　End If

　　Next N

End Sub

メインフォーム「form1」には、サブフォームコントロール「sub1」が配置されている。対象オブジェクト自身のモジュールであるform1 のフォームモジュールから、sub1 に表示されているサブフォームそのものを参照したい。

選択肢の中から記述として適切なものを１つ解答しなさい。

メインフォーム「form1」に配置されたサブフォームコントロール「sub1」の中に、テキストボックス「txt1」がある。対象オブジェクト自身のモジュールであるform1 のフォームモジュールから、このサブフォーム内の txt1 の値を参照したい。記述選択肢の中から適切なものを１つ解答しなさい。

form1 のフォームモジュールには、次のコードが記述されています。
form1 をフォームビューで開き、オプションボタン「TypeC」を選択した。このときサブフォームに表示されるレコードの件数として正しいものはどれか。

選択肢の中から適切なものを１つ解答しなさい。

なおボタンのコントロール名は　左からopt1～opt4と設定してあります。



Private Sub frm1_AfterUpdate()

　　DoCmd.Echo False

　　Me.sub1.Form.FilterOn = False

　　Select Case Me.frm1.Value

　　Case Me.opt1.OptionValue

　　　　Me.sub1.Form.Filter = "Type = 'TypeA'"

　　Case Me.opt2.OptionValue

　　　　Me.sub1.Form.Filter = "Type = 'TypeB'"

　　Case Me.opt3.OptionValue

　　　　Me.sub1.Form.Filter = "Type = 'TypeC'"

　　Case Me.opt4.OptionValue

　　　　Me.sub1.Form.Filter = ""

　　End Select

　　Me.sub1.Form.FilterOn = True

　　DoCmd.Echo True

End Sub

フォームをダイアログボックスとして表示させたい場合について、次のうち誤っているもの以下の選択肢より1つ解答しなさい。

フォームやコントロールで発生する各イベントの発生について、次のうち誤っているものを以下の選択肢より1つ解答しなさい。

Asc関数などで得られる文字コードについて、次のうち誤っているものを以下の選択肢より1つ解答しなさい。

フォーム「form1」のテキストボックス「txt1」に、次のコードが記述されている。
form1 をフォームビューで開き、txt1 に半角の「a」を1回入力しようとした。

このときの結果として正しいものはどれか。以下の選択肢より1つ解答しなさい。



Private Sub txt1_KeyPress(KeyAscii As Integer)

　　Select Case KeyAscii

　　Case 8, 9, 13

　　　　Exit Sub

　　Case Else

　　　　If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then

　　　　　　KeyAscii = 0

　　　　　　MsgBox ("0から9の数字以外は入力できません")

　　　　End If

　　End Select

End Sub

フォームに、次のコードが記述されている。txta・txtb はどちらも空である。

フォームビューで開き、どのテキストボックスにも何も入力しないまま txtb をクリックしてフォーカスを移した。
このときの結果として正しいものはどれか。以下の選択肢より1つ解答しなさい。

Private Sub txtb_GotFocus()

　If IsNull(Me.txtb.Value) Then

　　Me.txtb.Value = Me.txta.Value

　　Me.txtb.SelStart = Nz(Len(Me.txta.Value), 0)

　End If

　MsgBox "完了"

End Sub

フォームのテキストボックス「txta」に、次のコードが記述されている。

form1 をフォームビューで開き、txta に「123１２３」（前半は半角、後半は全角）と入力して Enter キーを押した。このとき lbla に表示される内容として正しいものはどれか。

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

  

Private Sub txta_BeforeUpdate(Cancel As Integer)

　　If LenB(Me.txta.Value) <> LenB(StrConv(Me.txta.Value, vbFromUnicode)) Then

　　　　Me.lbla.Caption = "半角"

　　Else

　　　　Me.lbla.Caption = "全角"

　　End If

End Sub

NotInList イベントの引数 Response に指定する定数について、次のうち誤っているものを以下の選択肢より1つ解答しなさい。

次のコードは、コンボボックス「cmda」に1列目のNoを入力しリストにない値が入力されたとき、確認して「form_add」フォームで新規登録する処理である。

なおNoはコンボボックス1列目の列名、Table Product1はコンボボックス2列目の列名のことである。

空欄①②③に入る語句の組み合わせとして正しいものはどれか。以下の選択肢より1つ解答しなさい。





Private Sub cmda_NotInList(NewData As String, Response As Integer)

　　Dim N As Integer

　　N = MsgBox("データを登録しますか?", vbYesNoCancel)

　　Select Case N

　　Case vbYes

　　　　DoCmd.OpenForm "form_add", , , , 【　①　】, acDialog, NewData

　　Case vbNo

　　　　Response = acDataErrContinue

　　　　Me.cmda.【　③　】

　　　　Exit Sub

　　Case vbCancel

　　　　Response = acDataErrContinue

　　　　Me.cmda.【　③　】

　　　　Exit Sub

　　End Select

　　If 【　②　】("[No]", "Table Product1", "[No] = '" & NewData & "'") <> 0 Then

　　　　Response = acDataErrAdded

　　Else

　　　　Response = acDataErrContinue

　　　　Me.cmda.【　③　】

　　End If

End Sub

フォームのテキストボックス「txta」に、次のコードが記述されている。
フォームビューで開き、txta に「abc」と入力して Enter キーを押した。このときの結果として正しいものはどれか。以下の選択肢より1つ解答しなさい。





Private Sub txta_BeforeUpdate(Cancel As Integer)

　　If Not IsNumeric(Me.txta.Value) Then

　　　　Me.lbla.Caption = "整数以外が入力"

　　　　Cancel = True

　　End If

End Sub

登録用フォーム「form_add」には、No 欄と Product Name 欄があり、次のコードが記述されている。No 欄には値（例：T1006）が入っており、Product Name 欄は空である。

Product Name 欄を空欄のままにして Enter キーを押し、レコードを確定しようとした。このときの挙動として適切なものはどれか。以下の選択肢より1つ解答しなさい。



Private Sub Form_BeforeUpdate(Cancel As Integer)

　　If IsNull(Me.[Product Name].Value) Then

　　　　Cancel = True

　　End If

End Sub

Private Sub Form_AfterInsert()

　　DoCmd.Close acForm, Me.Name

End Sub

登録用フォーム「form_add」には、No 欄と Product Name 欄があり、Product Name 欄に次のコードが記述されている。

No 欄には値（例：T1006）が入っており、Product Name 欄は空である。

Product Name 欄にカーソルを置いた状態で、Esc キーを押した。このときの結果として適切なものはどれか。以下の選択肢より1つ解答しなさい。





Private Sub Product_Name_KeyPress(KeyAscii As Integer)

　　If KeyAscii <> 27 Then Exit Sub

　　DoCmd.Close acForm, Me.Name

End Sub

リストボックス「lsta」の中から 選択したプリンタで、レポート「Table Product1」を印刷するコードである。なお印刷の前に現在の既定プリンタを変数に控え、印刷後に元へ戻している。

空欄に入る語句の組み合わせとして選択肢の中から適切なものを１つ解答しなさい。




Private Sub btn1_Click()

　　Dim OurPrinter As Object

　　If MsgBox("印刷しますか?", vbYesNo) = vbYes Then

　　　　Set OurPrinter = Application.Printer

　　　　Set Application.Printer = Application.Printers(【　①　】)

　　　　DoCmd.OpenReport "Table Product1"

　　　　Set Application.Printer = 【　②　】

　　　　Set OurPrinter = Nothing

　　End If

End Sub