Office中国论坛/Access中国论坛

标题: 如何实现在input对话框点击OK或Cancel后执行不同命令? [打印本页]

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

作者: wu8313 时间: 2005-1-16 06:06
点击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[attach]8621[/attach]

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)