D
Reaction score
0

Profile posts Latest activity Postings About

  • i got it with this:

    Private Sub WordPrint_Click()
    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("Photo").Value

    rsChild.OpenRecordset
    rsChild.Fields("FileData").SaveToFile ("c:\test.jpg")

    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
    End Sub
    hi did you manage to export the attachment in the attachment field? if you did pls let me know
  • Loading…
  • Loading…
  • Loading…
Back
Top Bottom