Ole Nesnesini Farklı Kaydetme

[altuntas78]

Arkadaşlar mdb dosyasında ole nesnesi ile gömülü olan bir word dosyasını dosyayı farklı kaydet benzeri bir yöntem ile bilgisayara otomatik nasıl kaydettirebiliriz.

 

[altuntas78]

VB için böyle yapılıyormuş fakat access ile nasıl yapabileceğimi bulamadım.

http://support.microsoft.com/kb/205635

 

[gulsum1]

Private Sub Komut5_Click()
Me.olenesnesi.Object.SaveAS "C:\deneme.doc"
End Sub

 

[altuntas78]

ne yani bu kadar basitmiydi

çok teşekkür ederim.

bende şimdi bulduğum çözümü burada paylaşmak için siteye girmiştim.

ekte örnek var.

Tekrar teşekkür ederim sayın gulsum1. Saygılar.

 

[altuntas78]

Sitede ole nesnesi ile ilgili daha önceden örnek varmış fakat silinmiş.
http://www.excel.web.tr/f58/access-ile-ole-nesnesi-olarak-excel-kullan-m-t15021/sayfa3.html

Peki seçtiğimiz bir dosyayı yine basit bir komutla tablomuza gömmek mümkünmüdür.
http://www.excel.web.tr/attachment.php?attachmentid=55751&d=1231007668

Burada sadece dosyayı bağlıyor. Ama benim seçtiğim doc dosyalarını mdb içerisine alabilmem lazım.

 

[altuntas78]

Aşağıdaki kodlar herhangi bir dosyayı mdb dosyasının içine gömmek için kullalabilir.

Private Sub Komut5_Click()
Me.DOSYA1.SourceDoc = "C:\deneme.doc"
Me. DOSYA1.Action = 0
End Sub