Question

我有一个表单，我要求用户附加一个文件，然后按“保存”按钮将附加文件与其他输入数据一起保存在记录中。

我设法选择了文件，但是我需要将它保存在我的表中，我更喜欢用VB编程。

以下代码帮助我获取文件并将其存储在计算机上的特定路径中，但事实并非如此。

On Error GoTo Err_SaveImage

Dim db As DAO.Database
Dim rsParent As DAO.Recordset2
Dim rsChild As DAO.Recordset2

Set db = CurrentDb
Set rsParent = Me.Recordset

rsParent.OpenRecordset

Set rsChild = rsParent.Fields("Attach").Value

rsChild.OpenRecordset
rsChild.Fields("FileData").SaveToFile ("C:\")

Exit_SaveImage:

Set rsChild = Nothing
Set rsParent = Nothing
Exit Sub

Err_SaveImage:

If Err = 3839 Then
MsgBox ("File Already Exists in the Directory!")
Resume Next

Else
MsgBox "Some Other Error occured!", Err.Number, Err.Description
Resume Exit_SaveImage

End If

也许这可以让你有个先机。

Answer 1

在我努力进行Google搜索时，我遇到了这个链接（http://msdn.microsoft.com/en-us/library/office/ff835669.aspx）如何：在DAO中使用附件。看看这个，看看这是否会有所帮助，也就是说，如果你还没有完成它们。我已经能够在MS网站上获得分配帮助。虽然我讨厌读那些臭的指示。史蒂芬

如何在表格字段中保存附件？

1 个答案: