Raporu Word'e resimli gönderme

Raporu Word'e resimli gönderme - Baskı Önizleme

+- 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)

Sayfalar: 1 2 3 4 5 6 7 8 9

Cvp: Raporu Word'e resimli gönderme - atoz112 - 09/10/2016

sayın ates2014,

gecici adlı klasörü ister kendiniz oluşturabilirsiniz,isterseniz de kod ile uygulamaki form üzerinde yer alan butonun ilk satırına da dahil edebilirsiniz.

ÖRNEK

MkDir CurrentProject.Path & "\gecici\"

kod satırı ile.

bilginize...iyi çalışmaalr,saygılar.

Cvp: Raporu Word'e resimli gönderme - ates2014 - 09/10/2016

koda ekledim,
bu ekle dediğiniz satır hata verdi,
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

MkDir CurrentProject.Path & "\gecici\"

GKlasor = Environ("TEMP")
GDosyaNo = Format(Now(), "ddmmyyyyhhnnss")
GDosyaYolu = GKlasor & "\AccessTrneT" & GDosyaNo & "\"
GSablon = CurrentProject.Path & "\personelbilgileri.doc"

If FolderExists(GDosyaYolu) = False Then
MkDir GDosyaYolu
End If

Cvp: Raporu Word'e resimli gönderme - atoz112 - 09/10/2016

Sayın ates2014,

Aşağıdaki açıklamaların yapılması uygun görülmüştür.

1)
Konunuzun 31.mesajında bahsi yapılan klasör oluşturma kodunu,kendi adıma kast ettiğim sayın ozan bey tarafından konunuzun 17.mesajına dahile dilen örnek uygulama üzerindendi.

Dolayısı ile,bu eklediğiniz kodlar,bu örnek uygulamada mevcut olmayan kodlar.

Sanırım,siz;sayın ozan bey tarafından konunuzun 27.mesajında dahil ettikleri son örnek uygulama içeriğinden alıntı yaptığınız kodlar olsa gerek.

Kendi adıma olmak üzere,bu son örnek uygulamayı incelemek için imkan ve zamanım olmadığı gerekçesi ile,bir yorumda bulunmam doğru olmaz,uygulamanın işleyişini denemeden.

2)
Fakat,bu alıntısını yaptığınız kodlar incelendiğinde,görülmektedir ki;zaten bu klasör oluşturma için dahil ettiğinizi beyan ettiğiniz kodların eklenme yeri hem hatalı hem de zaten buna da gerek yok görülmektedir.Çünkü;

If FolderExists(GDosyaYolu) = False Then

MkDir GDosyaYolu

End If

Kod satırlarının olması nedeni ile,bu klasör oluşturuluyor durumundadır.Kaldı ki,sayın ozan bey;

Alıntı:Önceki örnekte bazı değişiklikler yaptım.

İfadesi ile,uygulamada bazı değişiklikler yaptıklarını beyan etmekteler.dolayısı ile de,bu oluşturulan klasör de,sizin gecici adlı klasörü oluşturmanıza gerek kalmadan otomatikman oluşturulması sağlanmış olsa gerek.

Açıklandığı üzere,uygulamanın işleyişini görmek ve kodların bütün olarak işlevini incelemek gerekmektedir.fakat,alıntılar üzerinden,ancak bunları yorumlayabilirim.Bilginize…iyi çalışmalar,saygılar.

Cvp: Raporu Word'e resimli gönderme - ates2014 - 09/10/2016

Rica etsem 27. mesajdaki eki indirip denermisiniz,
sizde çalışıyormu.
malesef bende bu hatayı veriyor,
Access2010 32 bit kulanıyorum

Cvp: Raporu Word'e resimli gönderme - atoz112 - 09/10/2016

Sayın ates2014,

Alıntı:Rica etsem 27. mesajdaki eki indirip denermisiniz,

İfadenize yönelik olarak;

Bir önceki mesajda da belirtildiği üzere,imkan ve zaman yetersizliği gerekçesi ile buna fırsatım olmamaktadır fakat,şunu yapabilirim:
Eğer klasör oluşturma konusunda bir soruna maruz kalıyorsanız,alternatif olması adına;

MkDir CurrentProject.Path & "\gecici\"

 

GKlasor = Environ("TEMP")

GDosyaNo = Format(Now(), "ddmmyyyyhhnnss")

GDosyaYolu = GKlasor & "\AccessTrneT" & GDosyaNo & "\"

GSablon = CurrentProject.Path & "\personelbilgileri.doc"

 

If FolderExists(GDosyaYolu) = False Then

MkDir GDosyaYolu

End If

kodlarının iptal edilip yerine,

GDosyaYolu = CurrentProject.Path & "\gecici\"

GSablon = CurrentProject.Path & "\personelbilgileri.doc"

If Dir(GDosyaYolu) = Empty Then

    MkDir GDosyaYolu

End If

ya da,

If Len(Dir(GDosyaYolu, vbDirectory)) = 0 Then

MkDir GDosyaYolu

End If

Kodlarının eklenmesi sureti ile denemek için kullanabilirsiniz.

bilginize…iyi çalışmalar,saygılar.

Cvp: Raporu Word'e resimli gönderme - ates2014 - 09/10/2016

MkDir GDosyaYolu
bu satır hata verdi,
gecici klasörünü silip denedim,
kod çalıştı ama, word belgesinde resimler yok,
tekrar çalıştırınca, ilk satırdaki hatayı tekrar verdi.