我正在尝试为我的按钮编写一些代码:“打开”。如果单击,将自动打开具有该“文件地址”的文件:
我有以下 VBA 函数,它将文件位置作为输入字符串。我的问题是,如何将“文件位置”列中的 C:... 链接引用到函数的输入?我的意思是,这行不通(但如果我注释掉函数,并取消注释子,我有弹出窗口说嗨!):
那么我该怎么做呢?
删除声明和设置 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 中的宏编码非常不同。
有用!!!大家是这样的:
在设计视图中单击“打开”按钮。在属性表中,选择[事件过程],然后单击“...”进入一个窗口,您可以在其中编写您的 VBA 代码。确保以下两个红色框中的字符串匹配如下:
请注意,字符串“Main_File Location”应该是您在引用此报告的表中设置的确切列名。
此外,请确保您的文件名显示它是哪种类型的文件。例如,如果您的文件名为 myfile1,它是一个 PNG 文件,那么您的文件位置必须是:C:\somepath\myfile1.png。如果是 excel:C:\somepath\myfile1.xlsx。或者,Sub 无法打开文档。