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

次のコードは、フォーム自身のモジュールに記述され、そのフォーム上の[txt1]テキストボックスに文字列を設定するものである。

空欄に入る語句を解答しなさい。


Sub Exam1()

　　 .txt1.Value = "サンプル"

　　MsgBox "完了"

End Sub

次のコードは、標準モジュールから[Fフォーム]フォームと[Rレポート]レポートのタイトルバー文字列（Captionプロパティ）を設定するものである。

空欄に入る語句を解答しなさい。


Sub Exam1()

　　 ("Fフォーム").Caption = "顧客入力"

　　 ("Rレポート").Caption = "売上明細"

　　MsgBox "完了"

End Sub

次のコードは、メインフォームのモジュールから、サブフォームコントロール[sub1]内にある[txt1]テキストボックスに値を設定するものである。

空欄に入る語句を解答しなさい。


Sub Exam1()

　　Me.sub1. .txt1.Value = "サンプル"

　　MsgBox "完了"

End Sub

次のコードは、サブフォームのモジュールに記述され、メインフォーム上の[txt1]テキストボックスに値を設定するものである。

空欄に入る語句を解答しなさい。


Sub Exam1()

　　Me. .txt1.Value = "サンプル"

　　MsgBox "完了"

End Sub

次のコードは、DoCmdオブジェクトを使用して[F詳細]フォームを開くものである。

空欄に入る語句を解答しなさい。


Sub Exam1()

　　DoCmd. "F詳細"

　　MsgBox "完了"

End Sub

次のコードは、現在アクティブなフォームの名前と、現在アクティブなコントロールの名前を取得して表示するものである。

空欄に入る語句を解答しなさい。


Sub Exam1()

　　Dim N As String

　　N = Screen. .Name & " / " & Screen. .Name

　　MsgBox N

　　MsgBox "完了"

End Sub

次のコードは、[F詳細]フォームをダイアログボックスとして開くものである。

空欄に入る語句を解答しなさい。


Sub Exam1()

　　DoCmd.OpenForm "F詳細", , , , ,

　　MsgBox "完了"

End Sub

次のコードは、現在アクティブなフォーム自身を閉じるものである。

空欄に入る語句を解答しなさい。


Sub Exam1()

　　DoCmd. acForm, Screen.ActiveForm.Name

　　MsgBox "完了"

End Sub

次のコードは、[F一覧]フォームから[F詳細]フォームを開く際に、7番目の引数を利用して文字列「1001」を渡すものである。

空欄に入る語句を解答しなさい。


Sub Exam1()

　　DoCmd.OpenForm "F詳細", :="1001"

　　MsgBox "完了"

End Sub

次のコードは、[txt1]テキストボックスでキーが押されたときに発生し、押されたキーの文字コードを表示するイベントプロシージャである。

空欄に入る語句を解答しなさい。


Private Sub txt1_ (KeyAscii As Integer)

　　MsgBox KeyAscii

End Sub

次のコードは、文字「A」のANSI文字コードを取得して表示するものである。

空欄に入る語句を解答しなさい。


Sub Exam1()

　　MsgBox ("A")

　　MsgBox "完了"

End Sub

次のコードは、[txt1]でキーが押されたとき、その入力を無効化（キャンセル）するイベントプロシージャである。

空欄に入る語句を解答しなさい。


Private Sub txt1_KeyPress(KeyAscii As Integer)

　　 = 0

End Sub

次のコードは、[txt2]テキストボックスにフォーカスが移ったときに発生し、[txt1]の値を[txt2]にコピーするイベントプロシージャである。

空欄に入る語句を解答しなさい。


Private Sub txt2_ ()

　　Me.txt2.Value = Me.txt1.Value

End Sub

次のコードは、[txt1]テキストボックスにフォーカスを移し、カーソル位置を先頭（0）に設定するものである。

空欄に入る語句を解答しなさい。


Private Sub btn1_Click()

　　Me.txt1.SetFocus

　　Me.txt1. = 0

End Sub

次のコードは、[txt1]の値が更新される前に発生し、未入力の場合に更新を取り消すイベントプロシージャである。

空欄に入る語句を解答しなさい。


Private Sub txt1_ (Cancel As Integer)

　　If IsNull(Me.txt1.Value) Then Cancel = True

End Sub

次のコードは、BeforeUpdateイベントで、数値以外が入力された場合にデータの更新を取り消すものである。

空欄に入る語句を解答しなさい。


Private Sub txt1_BeforeUpdate(Cancel As Integer)

　　If Not IsNumeric(Me.txt1.Value) Then

　　　　 = True

　　End If

End Sub

次のコードは、[txt1]テキストボックス内の文字列全体を選択状態にするものである。

空欄に入る語句を解答しなさい。


Private Sub btn1_Click()

　　Me.txt1.SetFocus

　　Me.txt1.SelStart = 0

　　Me.txt1. = Len(Me.txt1.Value)

End Sub

次のコードは、文字列「ABC」のバイト数（Unicode）を取得して表示するものである。

空欄に入る語句を解答しなさい。


Sub Exam1()

　　Dim N As String

　　N = "ABC"

　　MsgBox (N)

　　MsgBox "完了"

End Sub

次のコードは、コンボボックス[cmb1]にリストにない値が入力されたときに発生するイベントプロシージャである。

空欄に入る語句を解答しなさい。


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

　　MsgBox "リストにない値が入力されました"

End Sub

次のコードは、NotInListイベントの引数を宣言する部分である。「入力された新しい値」と「追加可否やメッセージ表示を制御する定数」を受け取る2つの引数の名前を答えなさい。

空欄に入る語句を解答しなさい。


Private Sub cmb1_NotInList( As String, As Integer)

　　MsgBox "登録確認"

End Sub

次のコードは、システムで利用可能なすべてのプリンタ名をリストボックス[lst1]に追加するものである。

空欄に入る語句を解答しなさい。


Private Sub Form_Load()

　　Dim o As Object

　　For Each o In Application.

　　　　Me.lst1.AddItem o.DeviceName

　　Next o

End Sub