- "Default/既定のボタン" プロパティ
- このプロパティがTrueの場合、そのコマンドボタン以外のコントロールにフォーカスがある場合でも、Enterキーを押すことによってそのボタンがクリックされたのと同じ動作をします。通常、[OK]といったボタンのように、Enterキーによって直ちに画面上のすべての入力データを確定させたいようなボタンにこれを設定します。
- コマンドボタン
-
Private Sub txtデータ_Change()
'テキストボックスの変更時
'テキストボックスが空でなくなったら
'[閉じる]ボタンの"既定のボタン"を有効にする
With Me!cmdOK
If Len(Me!txtデータ.Text) > 0 Then
.Default = True
Else
.Default = False
End If
End With
End Sub
Private Sub cmdOK_Click()
'[OK]ボタンクリック時
DoCmd.Close acForm, Me.Name
End Sub
- DefaultプロパティにFalseが設定されている状態
- DefaultプロパティにTrueが設定されると、[OK]ボタンの周囲の枠線が強調され、テキストボックス上のEnterキーで[OK]ボタンのクリック時イベントが実行されるようになります。
|
#055
