VBA - 灰色（背景顏色）字段2，當字段1不是空白，但是當字段1背對背時，重新設置字段2的背景顏色

Question

當我開始在字段1文本框中輸入時，字段2的背景顏色應設置爲[顏色]。如果我退格來自油田1的所有文字，背景色應重新設置爲白色（全部離開現場之前，保存等）

Answer 1

您可以嘗試在您的用戶窗體代碼窗格此代碼：

Option Explicit 

Dim typing As Boolean 

Private Sub Field1_Change() 
    With Me 
     If typing Then 
      If Len(.Field1.Text) = 0 Then 
       .Field2.BackColor = vbWhite 
       typing = False 
      End If 
     Else 
      .Field2.BackColor = vbYellow '<--| change vbYellow to your needed Field2 background color 
      typing = True 
     End If 
    End With 
End Sub 

Answer 2

的user3598756的想法可以減少到一條線：

Private Sub Field1_Change() 

    Me!Field2.BackColor = IIf(Me!Field1.Text = "", vbWhite, vbGreen) 

End Sub