VBA ACCESS FORM

Question

---お尋ねします。ACCESSのform作成です。

テキストBOXでFORMに下記のVBAを書き込んでいます。

If Nz(Me!テキストボックス名,"") = "" Then
Me!次の次のテキストボックス名.SetForcus
Else
Me!次のテキストボックス名.SetFocus
End If

例えば”あり”の場合はその下の２つに値をいれたいです。

逆に”無し”の時はグレーアウトし書き込み不可にしたいです。

上記のコードだと”無し”のときは飛びますが

上ボタンで上に戻ると書き込みができます。

できないようにするには後どのようなVBAをかけばよろしいでうすか？

宜しくお願いいたします。

Answer 1

質問の答えになっているかわかりませんが、
Me!テキストボックス名.Enabled=False
とするとそのテキストボックスは非活性（使用不可）となり、
入力やフォーカスが飛ばなくなります。

Answer 2

下記の【現状】と【期待する動作】に受け取り違いがなければ、tomo.inaさんの指摘通りEnabled設定で対応可能だと思います。

【現状】
Formに
(1)テキストボックス名
(2)次のテキストボックス名
(3)次の次のテキストボックス名
の３つのテキストボックスを配置している。

【期待する動作 】
(1)のテキストボックスの値がNULLまたは空文字""の場合
⇒(2)のテキストボックスは使用不可とする
⇒(3)のテキストボックスにフォーカス移動する

(1)のテキストボックスの値がNULLおよび空文字""でない場合
⇒(2)のテキストボックスは使用可とする
⇒(2)のテキストボックスにフォーカス移動する

コードは以下のようなかんじになるかと。

If Nz(Me!テキストボックス名,"") = "" Then 
    Me!次のテキストボックス名.Enabled = False 
    Me!次の次のテキストボックス名.SetForcus 
Else 
    Me!次のテキストボックス名.Enabled = True 
    Me!次のテキストボックス名.SetFocus 
End If

---

説明の書き方をもう少し改善されたほうが早期解決の近道になると思います。

・日本語がおかしい
・オブジェクト名がわかりにくい
などは、登校前に読み手の立場から文章を読み返してみると気が付けるかもしれません。

また、VB系の言語ではダブルクォート(")で囲った文字は文字列を意味しますので、説明文中に"あり"とか"なし"のような記載があると、読み手としては"あり"や"なし"という文字列が入力されている場合の動作と受け取ってしまうので避けたほうが無難です。
今回は提示コードから文字列を指しているわけではないと解釈しましたが、今後投稿される際はちょっと心がけてみてください。