全部,
我正在尝试将 1 条记录的记录保存到驱动器中。我花了大约一天的时间寻找解决方案,所以这是寻求帮助的最后努力。无论如何,我都不是开发人员,所以请放轻松。
代码如下。
记录所在的表:tracker。
我正在搜索的字段: ReqID - 其中 ReqID = 我正在输入的记录,找到附件并将其移动到某个位置。
Dim db As DAO.Database
Dim rsChild As DAO.Recordset2
Dim ReqID As String
ReqID = Me.Form![Text145]
Debug.Print ReqID
Set db = CurrentDb
Set rsChild = db.OpenRecordset("Select * from tracker Where " & ReqID & " = [tracker].[ID]", dbOpenDynaset)
Debug.Print rsChild.RecordCount
If (rsChild.EOF = False) Or (rsChild.BOF = False) Then
While Not rsChild.EOF
rsChild("FileData").SaveToFile "C:\Users\<folder>\"
rsChild.Delete
Wend
End If