InputBox 函数求助

zyz0055 · 发表于 2005-7-20 10:38

InputBox 函数求助

Private Sub Report_Open(Cancel As Integer) Dim Message, Title, Default, monthv As String Message = "请输入月份" ' 设置提示信息。 Title = "InputBox 月份" ' 设置标题。 Default = "" ' 设置缺省值。 monthv = InputBox(Message, Title, Default) ' 显示信息、标题及缺省值。 Me.Text1 = monthv End Sub

请问为什么不能把monthv的值传递给me.Text1(ACCESS报表中的一个文本框控件）

可乐虫 · 发表于 2005-7-20 11:31

把事件写到主体里

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer) Dim Message, Title, Default, monthv As String Message = "请输入月份" ' 设置提示信息。 Title = "InputBox 月份" ' 设置标题。 Default = "" ' 设置缺省值。 monthv = InputBox(Message, Title, Default) ' 显示信息、标题及缺省值。 Me.Text1.Value = monthv

End Sub

zyz0055 · 发表于 2005-7-21 12:57

谢谢兄弟，问题解决了！！！：）

hhzjxss · 发表于 2007-6-25 21:25

呵呵，看看路过学习一下！

		自动登录	找回密码
密码			免费注册