Aceess 2007列表框提示輸入，如果我選擇一個項目？

Question

我有一個列表框有兩個選項;一個是默認選項，但如果我點擊其他，我希望它彈出一個輸入框的信息。

我該如何做到這一點？

Answer 1

爲此，您需要使用更新事件後的列表框。它將返回用戶輸入的內容到usrValue。您需要將List0更改爲您的訪問應用程序中控件的名稱。

Private Sub List0_AfterUpdate() 
    Dim usrValue As String 'what the user will by saving there value into. 
    If List0.Value = "OTHER" Then 
     usrValue = InputBox("Please enter a value for me", "Need something") 
    End If 
End Sub