Merhabalar,
ekteki accessde data tablosunun EK alanında bulunan eki örneğin C diskindeki AccTemp isimli bir file'a export etmek istiyorum. Nasıl yapabilirim? (Hangi satırdaki eki export için ekteki accesde bir form da yaptım)

Sn mdongul,
Asagida ki kodu ilgili butonu tiklama olay yordamina tasiyin.
Private Sub Komut2_Click()
On Error GoTo HATA
Dim Kyt As DAO.Recordset
Dim Yer As String, Cvp As Variant
Yer = "D:\"
If Len(Dir(Yer, vbDirectory)) = 0 Then MkDir Yer
Set Kyt = CurrentDb.OpenRecordset("Select * From datam Where (([ID])=" & Me.ID & ")")
Set Dosya = Kyt.Fields("EK").Value
While Not Dosya.EOF
If Len(Dir(Yer & "/" & Dosya.FileName)) = 0 Then
Dosya.Fields("FileData").SaveToFile Yer
MsgBox Dosya.FileName & vbNewLine & " Kopyalanmistir...."
Else
Cvp = MsgBox("Klasorunde " & Dosya.FileName & vbNewLine & " dosyasi Mevcuttur...", vbCritical, Yer)
End If
Dosya.MoveNext
Wend
Kyt.Close: Set Kyt = Nothing
Exit Sub
HATA:
If Err.Number = 3075 Then MsgBox "ID Numarasini Giriniz."
End Sub

sn dsezgin, tam da istediğim gibi oldu, elinize sağlık. teşekkürler.