vba - 将文件拖放到 Access 表单中的未绑定(bind)超链接框中

Question

我尝试使用 Microsoft Access 表单(当前 Office 365)中的超链接框作为实现文件放置字段的一种解决方法，如 here 所述。 .我只需要删除文件的路径以供 VBA 代码进一步处理 - 我不需要将值存储到数据库中。因此，我将超链接框切换为未绑定(bind)。之后，就不能再删除文件了。

这是设计使然:仅对绑定(bind)的超链接框启用拖放到超链接框中？

注意:可能与 this question 重复

Answer 1

似乎正在下降。设计师没有考虑到黑洞(未绑定(bind)的控制)；)

但是您可以使用 Adodb.Recordset 创建临时记录集并将其绑定(bind)到表单。如果控件绑定(bind)到该记录集的某个字段，您可以删除文件(控件 Hyperlink 属性需要为 true)，但没有任何内容存储在内存之外(您可以将临时记录集保存到文件甚至重新连接到表以保存数据)。

Private Sub Form_Load()
    Dim rs As Object 'ADODB.Recordset
    Set rs = CreateObject("ADODB.Recordset")  'New ADODB.Recordset

    With rs
        Const adLongVarChar As Long = 201
        .Fields.Append "Hyperlink", adLongVarChar, 2000 ' create field to bind to control
        Const adUseClient As Long = 3
        .CursorLocation = adUseClient 'needed to make rs editable, when bound to form
        Const adOpenDynamic As Long = 2
        Const adLockOptimistic As Long = 3
        .Open , , adOpenDynamic, adLockOptimistic, 8

        .AddNew 'create one record to store link
        .Fields("Hyperlink").value = ""
        .Update
    End With
    Set Me.Recordset = rs
    Me("controlName").ControlSource = "Hyperlink" ' bind textbox to rs field
End Sub