![Access VBA活用范例手册](https://wfqqreader-1252317822.image.myqcloud.com/cover/199/26178199/b_26178199.jpg)
上QQ阅读APP看书,第一时间看更新
018 显示输入对话框
◎内置函数:InputBox()函数
在VBA程序中,如果需要在程序执行的过程中输入数据,则可以使用InputBox()函数。
使用InputBox()函数输入数据的语法格式如下所示。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00055002.jpg?sign=1734489441-6Vf678zBmV3olg8LGmGoE8EV7Hsrdz9R-0-9205a966be2b2833e7a6504048f0aa9b)
◎应用实例
素材\第1章\显示输入对话框.accdb
本例需要在单击“F_输入对话框”窗体中的“输入数据”按钮,打开输入信息框输入数据,并将输入的数据显示在窗体的文本框中。
◎案例操作
01 在窗体中插入文本框和“输入数据”按钮。
02 在代码窗口插入“cmd_输入_Click”事件过程。
03 在“cmd_输入_Click”事件过程中输入代码。
04 执行运行程序,查看程序运行效果。
◎过程源代码
源文件\第1章\显示输入对话框.accdb
在事件过程中编写VBA代码,打开输入对话框,将输入数据显示在文本框中,具体的代码如下。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00056001.jpg?sign=1734489441-2rIkWYsM7UiiVqlyHokibNuhgs1eeT7k-0-c574430d373f20a691a5956a5a0de90a)
◎执行过程
保存编写的VBA代码,将“F_输入对话框”窗体的视图模式切换到窗体视图,单击“输入数据”按钮,然后输入数据,如图1-28所示。
![](https://epubservercos.yuewen.com/11B0D1/14615820604489806/epubprivate/OEBPS/Images/img00056002.jpg?sign=1734489441-tdzzdpWYnpqRCfFYqaOahPW6uG6AqsVO-0-45c11cea561d600940848d100f785edb)
图1-28 显示输入对话框