2008-10-07

12:09 【ACCESS VBA】フォームでテキストボックスなどを選択できなくする

Tag:2008-10-07

http://okwave.jp/qa2854603.html

コントロールの「フォーカス喪失後」処理に、

Private Sub 条件テキストボックス_LostFocus()

If Me.Controls("条件テキストボックス")=XX Then

Me.別のコントール.Enabled = True

Else

Me.別のコントール.Enabled = False

End If

End Sub

と、フォームの「レコード移動時」に

Private Sub Form_Current()

条件テキストボックス_LostFocus

End Sub

の２箇所設定した方が、良いのかな？

Enabled（=「使用可能」プロパティ）を操作してるだけの話ですが・・・

12:08 コンボボックスに入力できなくするためには

Tag:2008-10-07

http://www.accessclub.biz/bbs/0040/beginers16714.html

ああ、削除も不可にしたいのですか。

では [キークリック時] イベントで以下のようにすると、キーは全滅です。

Private Sub コンボ0_KeyDown(KeyCode As Integer, Shift As Integer)

KeyCode = 0

End Sub