Question

我在访问中创建了一个基本表单，其中包含几个按钮和文本字段。我希望按钮在我单击它的时候做一些事情，它应该打开一个浏览文件对话框，当我选择一个文件时，将文本字段更改为文件的路径。

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

的模块

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

或表格编程方式不同？如何将功能绑定到按钮？

Answer 1

您可以向按钮添加操作。在按钮的属性窗口中是Event - 选项卡。点击On Click，然后选择Event Procedure。然后，您将进入VBA编辑器（ ALT + F11 ）进入以下程序：

Private Sub Command1_Click()

End Sub

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

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

Me!Text1 = strPath

必须使用从文件对话框中获取的路径填充

strPath。

Answer 2

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

Dim fDialog As Office.FileDialog

以上显示了在按钮单击

上执行的示例

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

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

.AllowMultiSelect = false

我可能会生气，但是你会想做这样的事情（有人编辑或纠正我，如果我离开的话）

假设您使用了varFile

（Dim varFile As Variant）

Me.TextBox1.Text = varFile

编辑：遇到错误后

似乎错误可能来自少数事情。检查以确保参考在那里。您还可以添加Microsoft DAO 3.6 Object Library参考。

请参阅此Link的“更多信息”部分（希望2002年足够接近2003年）。如果这不能解决问题，它可能会有一些更有帮助的提示。