如何实现在input对话框点击OK或Cancel后执行不同命令?

coolbug

好像input对话框返回的始终是输入的字串或值，并不能像msgbox那样返回vbok等作为执行下一步命令的判断选择，那该如何实现在input对话框点击OK或Cancel后执行不同命令呢？急等指教，谢谢。

wu8313

点击ok或者cancel执行不同事件。需要定义变量。cancel返回空字符串。看看这个例子。

Private Sub 命令0_Click()

Dim a As String



a = InputBox("输入1至3这样的正整数", "输入")



If a <> "" Then

Select Case a



Case 1



Me.标签1.Caption = "输入了数字1"



  

  GoTo 100



  Case 2



    Me.标签1.Caption = "输入了数字2"

     GoTo 100

   

   Case 3



    Me.标签1.Caption = "输入了数字3"

           GoTo 100

           

           

           

              

100  DoCmd.OpenForm a



End Select



Else

MsgBox "没有输入任何内容", vbInformation, "消息"

End If



End Sub

[此贴子已经被作者于2005-1-15 22:08:17编辑过]