Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Klasör içine dosyayı kopyalama

mengene2
mengene2
Access Cevaplanmış Soruları
18
9917

Klasör içine dosyayı kopyalama

#3
mengene2
Aktif Üye
mengene2
Bul
Aktif Üye
Adı Soyadı: Fu.... Ar....
Yaşı: 50
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 22/01/2024,17:01
Yorumları: 201
Konuları: 52
Kayıt Tarihi: 01/09/2010
Teşekkür Puanı: 0
Mesleğiniz: Mühendis
Merhaba Arkadaşlar,

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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Klasör içine dosyayı kopyalama - Yazar: mengene2 - 05/08/2014, 17:15
Cvp: Klasör içine dosyayı kopyalama - Yazar: mengene2 - 06/08/2014, 23:24
Cvp: Klasör içine dosyayı kopyalama - Yazar: atoz112 - 07/08/2014, 20:04
Cvp: Klasör içine dosyayı kopyalama - Yazar: atoz112 - 07/08/2014, 20:19
Cvp: Klasör içine dosyayı kopyalama - Yazar: atoz112 - 08/08/2014, 10:38