2013-07-28 45 views

回答

0

爲此,您需要使用更新事件後的列表框。它將返回用戶輸入的內容到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 
+0

謝謝。我改變了,它的工作。將商店值字段更改爲正確的:Private Sub List0_AfterUpdate() Dim usrValue As String usrValue = InputBox(「請爲我輸入一個值」,「需要的東西」) List0.Value = 「OTHER」 – pmoney

+0

@pmoney如果您的問題得到解答,請標記回答的問題。 – ObieMD5

相關問題