2012-05-30 29 views
1

我在訪問表單上有一個文本框,如果文本框爲空白,我想啓用edditing。我是VBA的新手,並不確定最佳的解決方法。使用雙擊事件對我來說可以,但我寧願在加載時執行它。如何將文本框設置爲啓用事件

我試過下面的代碼,但似乎無法讓它工作。任何幫助,將不勝感激。

Private Sub EmpID_DblClick(Cancel As Integer) 
If EmpID.Text = "" Then 
    Me.EmpID.Enabled = True 
End If 
End Sub 

回答

5

對於每個記錄應該發生的事情,您最好使用當前事件。不要使用控件的.Text屬性。如果您必須使用屬性,請使用.Value。 .Text屬性僅在控件具有焦點時纔可用,並且通常僅在特殊情況下使用,例如Change事件。

Private Sub Form_Current() 
    If IsNull(EmpID) Then 
    Me.EmpID.Enabled = True 
    End If 
End Sub 

在一個正常的設置,沒有控制的機率等於一個零長度字符串(「」)

你可以說涵蓋所有基礎:

Trim(EmpID & "") = "" 
+0

這正是我想要做的。非常感謝。 – talbright

1

您正在運行到零問題

Null是不一樣的""

試試這個,而不是

If EmpID.Text Is Null Then 
    Me.EmpID.Enabled = True 
End If 
相關問題