Aceess 2007列表框提示输入，如果我选择一个项目？

-1

我有一个列表框有两个选项;一个是默认选项，但如果我点击其他，我希望它弹出一个输入框的信息。Aceess 2007列表框提示输入，如果我选择一个项目？

我该如何做到这一点？

2013-07-28 pmoney

为此，您需要使用更新事件后的列表框。它将返回用户输入的内容到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

来源

2013-07-29 00:01:16 ObieMD5

谢谢。我改变了，它的工作。将商店值字段更改为正确的：Private Sub List0_AfterUpdate（） Dim usrValue As String usrValue = InputBox（“请为我输入一个值”，“需要的东西”） List0.Value = “OTHER” – pmoney

@pmoney如果您的问题得到解答，请标记回答的问题。 – ObieMD5

Aceess 2007列表框提示输入，如果我选择一个项目？

回答

相关问题