0

我正在尝试为我的按钮编写一些代码:“打开”。如果单击,将自动打开具有该“文件地址”的文件: 访问数据库报告页面

我有以下 VBA 函数,它将文件位置作为输入字符串。我的问题是,如何将“文件位置”列中的 C:... 链接引用到函数的输入?我的意思是,这行不通(但如果我注释掉函数,并取消注释子,我有弹出窗口说嗨!):

试图引用报告中的另一列

那么我该怎么做呢?

4

2 回答 2

0

删除声明和设置 strURLLink 的两行。

您将从按钮单击事件中调用该函数。

Private Sub Command35_Click()
x = OpenDocument(Me![File Location])
End Sub

但是,它实际上并不需要是一个函数,可以是一个子。

为什么不直接在按钮的 Click 事件中?

Private Sub Command35_Click()
    On Error GoTo Catch
    Application.FollowHyperlink(Me![File Location])
    Exit Sub
Catch:
    MsgBox "Oops! Can't open file"
End Sub

这不是宏代码,它是 VBA。Access 中的宏编码非常不同。

于 2017-07-13T07:21:07.663 回答
0

有用!!!大家是这样的:

在设计视图中单击“打开”按钮。在属性表中,选择[事件过程],然后单击“...”进入一个窗口,您可以在其中编写您的 VBA 代码。确保以下两个红色框中的字符串匹配如下:

匹配字段名称

请注意,字符串“Main_File Location”应该是您在引用此报告的表中设置的确切列名。

此外,请确保您的文件名显示它是哪种类型的文件。例如,如果您的文件名为 myfile1,它是一个 PNG 文件,那么您的文件位置必须是:C:\somepath\myfile1.png。如果是 excel:C:\somepath\myfile1.xlsx。或者,Sub 无法打开文档。

于 2017-07-14T05:50:27.020 回答