ms-access - VBA にアクセスして、フォーム内のテキストの入力を変更する

Question

ユーザーが赤を入力した場合にフォームフィールドを自動的に黄色に変更する適切な手順は何ですか?

BeforeUpdate イベントを試してみましたが、ドキュメントには次のように記載されています。

イベントのプロシージャで BeforeUpdate イベントを発生させたコントロールに含まれるデータを変更しようとすると、実行時エラーが発生します。

それは目的を打ち負かすようです。

例：

Private Sub color_BeforeUpdate(Cancel As Integer)  
    If color = "YELLOW" Then 
        color = "RED"  
    End If  
End Sub

score 0 · Accepted Answer

AfterUpdate()イベントを使用する必要があります。

また、変数を使用することをお勧めします。これは、混乱を避け、コードを明確にして再利用できるようにする方法です。

strColor = Me!Color.Value

score 0 · Accepted Answer

イベントにご利用いただけますLostFocus。

Private Sub color_LostFocus()
    If color = "RED" Then
        color = "YELLOW"
    End If
End Sub

2 に答える 2