コントロールの操作【Access】

Private Sub cmdCaption_Click()
    MsgBox Me.Caption & "/" & Me.Name
End Sub

Private Sub cmdText_Click()
　　'Textプロパティはコントロールにフォーカスがあることが前提です。
    DoCmd.GoToControl ("会員番号")
    MsgBox Me.会員番号.Text
    MsgBox Me.会員番号.Value
End Sub

Private Sub cmdColor_Click()
    Me.cmdColor.ForeColor = vbRed '赤を表す定数です。
    Me.cmdColor.BackColor = vbBlack '黒を表す定数です。
End Sub

Sub TextBoxTest()
    With Me
        'Locked=Trueは編集ができなくなります。
        .txt0.Locked = True
        .txt0.Value = "Locked = True"
        'Enabled = false1は非活性になり、フォーカスを移すことができなくなります。
        .txt1.Enabled = False
        .txt1.Value = "Enabled = False"
        'Viseble=Falseは非表示になります。
        .txt2.Visible = False
    End With
End Sub

Private Sub cmdOption_Click()
    Select Case Me.flaSample
        Case Me.opt1.OptionValue
            MsgBox "オプション1が選択されています。"
        Case Me.opt2.OptionValue
            MsgBox "オプション2が選択されています。"
        Case Else
            MsgBox "オプションが選択されていません。"
    End Select
End Sub

Private Sub cmdList1_Click()
    With Me.lstSample
        '※T_会員名簿の最初のフィールドの値を表示します。
        .RowSourceType = "Table/Query"
        .RowSource = "T_会員名簿"
    End With
End Sub

Private Sub cmdList2_Click()
    With Me.lstSample
        '指定した値を表示します。
        .RowSourceType = "Value List"
        .RowSource = "Value1;Value2;Value3"
    End With
End Sub

Private Sub cmdList3_Click()
    With Me.lstSample
        '※T_会員名簿のフィールド名を表示します。
        .RowSourceType = "Field List"
        .RowSource = "T_会員名簿"
    End With
End Sub

Private Sub cmdRetsusu_Click()
    With Me.lstSample
        .ColumnCount = 2
        .RowSourceType = "Table/Query"
        .RowSource = "T_会員名簿"
    End With
End Sub

Private Sub cmdLIstIndex_Click()
    Dim i As Long
    
    With Me.lstSample
        i = .ListIndex
        If i <> -1 Then
            MsgBox i + 1 & "行目を選択。"
        Else
            MsgBox "選択されていません。"
        End If
    End With
End Sub

Private Sub cmdSelcted_Click()
    Dim i As Long
    '選択された行をクリアし次の行を選択状態にする。
    With Me.lstSample
        i = .ListIndex
        .Selected(i) = False
        .Selected(i + 1) = True
    End With
End Sub

Private Sub cmdBoundColmn_Click()
    'リストボックスに3列表示し2列目をコントロールの値として設定する。
    With Me.lstSample
        .ColumnCount = 3
        .BoundColumn = 2
        .RowSourceType = "Table/Query"
        .RowSource = "T_会員名簿"
    End With
End Sub

Private Sub cmdRecordSelectoors_Click()
    With Me
        If .RecordSelectors Then
            .RecordSelectors = False
        Else
            .RecordSelectors = True
        End If
    End With
End Sub

Private Sub cmdSetFocus_Click()
    Me.txt0.SetFocus
End Sub