请问如何实现InputBox那样的窗体

Question

就是运行期间弹出一个窗体，问用户要一个输入，然后由这个窗体得到返回值，再继续运行下面的代码？或者有办法能在inputbox里加个datetimepicker控件也成

Answer 1

在inputbox里加个datetimepicker可不容易，不过自己做一个inputbox类型的窗体就太简单了。
设置一个全局变量，在窗体中点击确定时设置一下值就可以了。

Answer 2

这是VB6的代码么？我是在ACCESS里用VBA编程。frn是form类型的对象变量么？

Answer 3

3楼、4楼：在VBA里form对象没有show这个方法

Answer 4

可否用API函数，通过获取窗口句柄，跳出你所要的窗口时，设置焦点VB是单线程，程序获取不到所需要的值就会挂起啊

Answer 5

定义一个变量例如n  当要输入时，你可以用n=inputbox("输入n"),就将n的值输入进去了，当然n你可以是定义什么类型的。

Answer 6

'form code
'这样即使父窗体多开也没关系,如果用一个全局变量会串数据
private s_ReturnValue as stringpublic sub Set_Value(s_Value)
s_ReturnValue = s_Value
end subpublic function Read_Value() as string
Read_Value = s_ReturnValue
end function

Answer 7

谢谢。我需要在inputbox里加个datetimepicker控件，供用户输入。

Answer 8

我机器没有ACCESS 不过一下代码在EXCEL VBA中调试成功UserForm2.Show 1
Me.Caption = "2133"

Answer 9

加上 acDialog 参数就可以了
Private Sub Command0_Click()
On Error GoTo Err_Command0_Click    Dim stDocName As String
    Dim stLinkCriteria As String    stDocName = "frmInput"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog    MsgBox "窗体关闭"
Exit_Command0_Click:
    Exit SubErr_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click
End Sub