Kullandığım veri tabanında MusteriBelgesi alanına gömülü yani ek veri alanındaki varsayılan dosyayı klasör içine kopyalamak istiyorum. Dolayısıyla dosya yolu diye bir şey yok. Bende kodu aşağıdaki gibi yaptım ama herhangi bir aksiyon yapmıyor. Hatada vermiyor ama işde görmüyor. Yardımcı oabilirseniz çok seviniirm.
Dosya MusteriBelgesi alanında saklıdır. şağıdaki kodla varsayılan ekli dosyayı almayı planladım. Yanlışda düşünmüş olabilirim.
Dosya=Me.MusteriBelgesi.CurrentAttachment
Tepki vermeyen ve iş görmeyen kodum aşağıdaki gibi.
Private Sub Komut96_Click()
Dim Yer As String
Dim Dosya As String
Dosya = Me.MusteriBelgesi.CurrentAttachment
Yer = "C:\Users\sony\Documents\deneme\" & [FirmaAdi] & ""
If Len(Dir(Yer, vbDirectory)) = 0 Then
MkDir Yer
FileCopy Yer, Yer & "\" & Me.MusteriBelgesi.CurrentAttachment
MsgBox "Kopyalanmıştır"
If Len(Dir(Yer, vbDirectory)) > 0 Then
FileCopy Yer, Yer & "\" & Me.MusteriBelgesi.CurrentAttachment
MsgBox "Kopyalanmıştır"
End If
End If
End Sub