Forms 访问VBA:Form命令按钮执行操作/调用函数

我在access中创建了一个基本表单，它有两个按钮和文本字段。 我希望该按钮可以执行以下操作：当我单击它时，它会弹出一个浏览文件对话框，当我选择一个文件时，将文本字段更改为该文件的路径

我的问题是如何编程？具体来说，我是否创建了一个类似的模块

sub command1_onClick()
  ..bla bla...
end sub

---

还是表单的编程方式不同？如何将函数绑定到按钮？

您需要查看文件对话框属性

Dim fDialog As Office.FileDialog

上面显示了在单击按钮时执行的示例

该示例将所选文件添加到列表框中，对于您的情况，您可能希望使用简单的文本框而不是列表框

如果只需要一个项目，则可能需要将AllowMultiSelect设置为false以忽略循环部分。（这将为您简化示例中的代码

.AllowMultiSelect = false

我可能有点生疏，但你可能会想做这样的事情（如果我有点不对劲，有人会编辑或纠正我）

假设您使用了varFile

（

Dim varFile作为变量

）

编辑：遇到错误后

似乎错误可能来自于一些事情。检查以确保参考存在。 此外，您可能需要添加Microsoft DAO 3.6对象库参考

请参阅本文的“更多信息”部分（希望2002年与2003年足够接近）

---

。如果这不能解决问题，它可能有一些更有用的提示。

您可以向按钮添加操作。在按钮的属性窗口中有一个

事件

-选项卡。单击

上的
，然后选择
事件过程
。然后将您带到VBA编辑器（ALT+F11）进入以下过程：

Private Sub Command1_Click()

End Sub

在该过程中，可以使用API调用打开“标准文件”对话框：


上面链接中的TestIt函数显示您需要打开对话框并获取路径。您可以将文本框设置为该路径，如下所示：

Me!Text1 = strPath

strPath
必须用从文件对话框中获得的路径填充。
好的，
Application.FileDialog
看起来更简单；）@harper89Dim fDialog As Office.FileDialog@shubham链接上写着“需要引用Microsoft Office 11.0对象库”。你有吗？（不确定这是否是原因）是的，我进入了工具>参考，并确保选择了11.0对象库。我使用的是Access 2003 BTW它是否与dao或adodb有关？@Shubham如果是导入的，那么是hmmm。我不确定，如果我想到什么，我会发表评论。
Me!Text1 = strPath