+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Raporu Word'e resimli gönderme (/konu-raporu-word-e-resimli-gonderme.html)
Cvp: Raporu Word'e resimli gönderme - ozanakkaya - 09/10/2016
Eklediğim son örnekte, geçici olarak belirtilen klasörü Temp dizinine oluşturmaktadır. Son örneği kullanıyorsanız gecici adında klasör oluşturmayın. Hata veren satırın başına ' ekleyerek iptal edip deneyin.
Cvp: Raporu Word'e resimli gönderme - atoz112 - 09/10/2016
sayın ates2014,
eklediğiniz alıntı kodlara göre düzenlemek gerekirse,mevcut kodlar eklediğiniz kadarı ile geçerli olmak üzere;
Private Sub btn_wordeaktar_Click()
Dim BelgeAcik As Boolean
Dim ResimBilgisi As Variant
Dim ResimAdi As String
Dim Sorgum As QueryDef
Dim Kayit As Recordset
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim WordDocYeni As Word.Document
Dim GSablon, GKlasor, GDosyaNo, GDosyaYolu As String
Dim AcikBelgeResim
Dim GeciciPersonelDosyasi, GeciciBelgeAdi As String
GKlasor = Environ("TEMP")
GDosyaNo = Format(Now(), "ddmmyyyyhhnnss")
GDosyaYolu = GKlasor & "\AccessTrneT" & GDosyaNo & "\"
GSablon = CurrentProject.Path & "\personelbilgileri.doc"
If Len(Dir(GDosyaYolu, vbDirectory)) = 0 Then
MkDir GDosyaYolu
End Ifyukarıda yazıldığı gibi olmalı.
ayrıca;
eğer bu şekilde çalıştırmadan öncesinde bu isimle herhangi bir klasör mevcutsa temizleyip tekrar deneyiniz.
bilginize...iyi çalışmalar,saygılar.
Cvp: Raporu Word'e resimli gönderme - ates2014 - 09/10/2016
Dediğiniz kodları değiştirdim,
aşağıdaki hatayı verdi.
kodları silip yeniden ekledim,
bu sefer hata vermiyor, belgeyi oluşturdum, açayımmı diyor,
evet diyorum,
maalesef hiç bir kayıt çıkmıyor...
Belge boş, kayıt falan yok.
Cvp: Raporu Word'e resimli gönderme - atoz112 - 09/10/2016
Sayın ates2014,
Eklediğiniz hata resmini tekrar incelediğinizde,bahsettiğiniz hata ieltisini almanızın nedeni de fark edilecektir.
Dim AcikBelgeResim
İfadesi iki kere yazılmış.zaten hatada da bundan bahsediyor.
dolayısı ile,bu fazla satırı silip tekrar deneyiniz.
Bilginize…iyi çalışmalar,saygılar.
Cvp: Raporu Word'e resimli gönderme - atoz112 - 09/10/2016
sayın ates2014,
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
Cvp: Raporu Word'e resimli gönderme - ates2014 - 09/10/2016
Sy.Atoz112 sizi yorduğum için hakkınızı helal edin lütfen,
word belgeyi oluşturuyor yalnız resim yok,
görüntüsünü printscrenle aldım ek de ekliyorum