チェックボックス

Last-modified: 2022-03-20 (日) 23:40:55

チェックのオン・オフをキーボードで行うには

[Space]

既定の動作なのでコーディングは不要です。

チェックボックスの Value プロパティで Boolean 型以外を使用するには

できません…
連結フォームの場合は、インターフェース用にチェックボックスを配置して、非表示の連結したコントロールを配置します。

'レコード移動時
Private Sub Form_Current()
    If テキスト1.Value = "OK" Then
        チェック1.Value = True

    Else
        チェック1.Value = False

    End If

End Sub

'更新後処理
Private Sub チェック1_AfterUpdate()
    If チェック1.Value Then
        テキスト1.Value = "OK"

    Else
        テキスト1.Value = "NG"

    End If

End Sub