我创建了一个表格和表格来跟踪销售机会。我希望用户能够将服务器上的关联文件“连接”到每个机会。例如，他们可能希望有机会指出报价。
由于将文件附加到数据库是值得商move的举动，因此我选择保存路径，并希望使用FollowHyperlink来浏览和打开文件。
我的策略是创建一个包含与特定机会相关的链接的子表单。然后，用户可以单击子表单中的子表单昵称以打开关联的文件。
通过浏览网络，我设法创建了一个宏，该宏允许用户将所选文件和路径存储在名为LinkLocation的列中，并通过InputBox为该条目分配一个昵称，并将昵称存储在名为LinkName的列中。该宏正常运行。
编辑：共享代码。
Sub test()
Dim f As Object
Dim strSQL As String
Dim strShorthand As String ' Short hand name for display in subform.
Dim strFullFilePath As String ' Full file path
Set f = Application.FileDialog(3)
f.allowMultiSelect = False
f.Show
strFullFilePath = f.SelectedItems(1)
strShorthand = InputBox("Enter the shorthand name here.")
strSQL = "INSERT INTO tblLinks (LinkLocation,LinkName) Values ('" &
strFullFilePath & "','" & strShorthand & " ');"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub
我有两个问题。
-
当我单击以在链接到
tblLinks的子窗体中创建新记录时，我的宏运行并且数据已正确存储。但是，新创建的记录不会显示在子表单中。 -
如何创建双击事件，以便
FollowHyperlink正确参与并打开有问题的文件？
我在网络上找不到这些问题的答案。
我已经为Excel编写了大量复杂的VBA，但是access对我来说是全新的。欢迎您提供任何可以推荐的资源。
谢谢。