从访问附件中获取文件名

Question

我在访问中运行了一些 VBA。它的目的是输出一个管道划定的字符串，以便提供现有表的导出/备份。它运行良好，但我想添加另一个功能。它可能运行的表之一包含附件，我希望附件文件名出现在“附件”字段下。目前代码只是在里面贴了一个警告，但我想要一些更相关的东西。

代码当前读取指定表中的每个字段名称，用竖线 (|) 分隔它们。然后它转到一个新行并使用每个字段中的值重复该过程。相关代码如下：

Set rs = CurrentDb.OpenRecordset(Table, dbOpenSnapshot)
rs.Filter = srchString
Set rsFilt = rs.OpenRecordset()
fieldCount = rsFilt.Fields.Count
recordTot = rsFilt.RecordCount

If recordTot <> 0 Then

    rsFilt.MoveFirst

    Dim o As Integer

    For o = 0 To fieldCount - 1
        fieldNames = fieldNames & rsFilt.Fields(o).Name & "|"
    Next o


    Do While rsFilt.EOF = False
        For o = 0 To fieldCount - 1
            If rsFilt.Fields(o).Type <> 101 Then
                oldDataSet = oldDataSet & Nz(rsFilt.Fields(o).Value, "") & "|"
            Else
                oldDataSet = oldDataSet & "attached files not saved in logs" & "|"
            End If
        Next o
        oldDataSet = oldDataSet & vbNewLine
        rsFilt.MoveNext

    Loop
Else

    fieldNames = "No " & Table & " for this member."

End If

createRecordSnapshot = fieldNames & vbNewLine & oldDataSet

End Function

每条记录只有一个与之关联的附件。我想要某种方法来将该文件名作为字符串获取。

非常感谢，

Answer 1

据我所知，访问此信息的唯一方法是通过表单上的Attachment 控件。您可以制作一个仅包含此控件的简单表单，将其作为代码的一部分加载并在循环中访问它。

这是一个循环遍历表单中的记录并读取Attachment控件的filename属性的示例：

Dim frm As Form
Dim ctl As Attachment
Dim i As Long, j As Long

Set frm = Application.Forms("Form1")
Set ctl = frm.Controls("test") 'An Attachment control
frm.RecordsetClone.MoveLast
i = frm.Recordset.RecordCount
For j = 0 To i - 1
    Debug.Print ctl.FileName
    DoCmd.GoToRecord acDataForm, frm.Name, acNext
Next