我在訪問表單上有一個文本框,如果文本框爲空白,我想啓用edditing。我是VBA的新手,並不確定最佳的解決方法。使用雙擊事件對我來說可以,但我寧願在加載時執行它。如何將文本框設置爲啓用事件
我試過下面的代碼,但似乎無法讓它工作。任何幫助,將不勝感激。
Private Sub EmpID_DblClick(Cancel As Integer)
If EmpID.Text = "" Then
Me.EmpID.Enabled = True
End If
End Sub
我在訪問表單上有一個文本框,如果文本框爲空白,我想啓用edditing。我是VBA的新手,並不確定最佳的解決方法。使用雙擊事件對我來說可以,但我寧願在加載時執行它。如何將文本框設置爲啓用事件
我試過下面的代碼,但似乎無法讓它工作。任何幫助,將不勝感激。
Private Sub EmpID_DblClick(Cancel As Integer)
If EmpID.Text = "" Then
Me.EmpID.Enabled = True
End If
End Sub
對於每個記錄應該發生的事情,您最好使用當前事件。不要使用控件的.Text屬性。如果您必須使用屬性,請使用.Value。 .Text屬性僅在控件具有焦點時纔可用,並且通常僅在特殊情況下使用,例如Change事件。
Private Sub Form_Current()
If IsNull(EmpID) Then
Me.EmpID.Enabled = True
End If
End Sub
在一個正常的設置,沒有控制的機率等於一個零長度字符串(「」)
你可以說涵蓋所有基礎:
Trim(EmpID & "") = ""
您正在運行到零問題
Null
是不一樣的""
試試這個,而不是
If EmpID.Text Is Null Then
Me.EmpID.Enabled = True
End If
這正是我想要做的。非常感謝。 – talbright