A.S.C Filtre, Grafik ve Raporlama Eklentisi

Access & Word | Access'ten Word'e İstediğiniz Formatta Yazı Yazdırın...
#1
access-sql-12 
Merhaba Arkadaşlar,

Bu örneğimizde Access üzerinden Word dosyasına istediğimiz formatta ve istediğimiz yere yazı yazdıracağız.

Burada belki de en önemli nokta word dosyasında yer imlerini belirlemektir. Peki bu yer imini nasıl belirliyoruz? Kriterleri ne olmalı … ?

İlk olarak wordde yer imi belirlemek istediğimiz kelimeyi seçiyoruz. Bu seçim sadece bir kelime içermeli ve arada boşluk olmamalı. Daha sonra ekle diyoruz ve yer imini seçip isim giriyoruz. Wink (Güzel bir anlatım olmadı gecenin bu saatinde farkındayım Smile Eğer bu konuda sorun yaşayan olursa resimli bir şeyler ayarlayabilirim Wink )

Yer imlerini ekledikten sonra dosyamızı kapatıyoruz. Word ile olan işimiz bitti.

Aşağıda aktarma işinimizi gerçekleştirecek kodları görebilirsiniz...

Visual Basic
  1. On Error GoTo Hata
  2.  
  3. Dim objWord As Word.Application
  4.  
  5. Set objWord = CreateObject("Word.Application")
  6.  
  7. With objWord
  8. 'Word dosyasını görünür yapalım.
  9. .Visible = True
  10.  
  11. 'Dosyamızın konumu
  12. .Documents.Add (Me.Application.CurrentProject.Path & "\Dokuman.dotx")
  13.  
  14. 'Şimdi wordde belirlediğimizin her bir yer imi için işlemimizi yapalım...
  15. 'Ben wordde 3 tane yer imi belirledim.
  16. 'Bunlar SiteAdi,Icerik ve Yazar...
  17. .ActiveDocument.Bookmarks("SiteAdi").Select
  18. .Selection.Text = Me.SiteAdi
  19. .ActiveDocument.Bookmarks("Icerik").Select
  20. .Selection.Text = Me.Icerik
  21. .ActiveDocument.Bookmarks("Yazar").Select
  22. .Selection.Text = Me.Yazar
  23. End With
  24.  
  25. 'Alttaki kodda bulunan tırnağı kaldırırsak word dosyası direk yazıcıya gönderilir.
  26.  
  27. ' objWord.ActiveDocument.PrintOut Background:=False
  28.  
  29. 'Normal şartlarda belirlenen yer imlerinin silinmemesi için dosya buradan değişiklikler
  30. 'kaydedilmeden çıkılması gerekir. Fakat Word dosyasını inceyebelimeniz için ben
  31. 'kapatmıyorum.
  32.  
  33. 'Siz kullanacağınız zaman aşağıdaki kodu aktif hale getirmeyi unutmatın!!!
  34.  
  35.  
  36. ' objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
  37.  
  38.  
  39. 'Altaki kod ile word dosyasını kapatıyoruz... Sonucu görmeniz için kapattırmıyorum
  40. ' objWord.Quit
  41. Set objWord = Nothing
  42. Exit Sub
  43.  
  44. Hata:
  45. 'Eğer yer imine aktarilacak veri yoksa yer imi silinir...
  46. If Err.Number = 94 Then
  47. objWord.Selection.Text = ""
  48. Resume Next
  49. End If
  50. Exit Sub



Biraz da görsellik katalım Wink

Form:

[Resim: 5hmhb.png]


Word Dosyasının son hali:

[Resim: 5hmjc.png]

İyi çalışmalar diler, saygılarımı sunarım Vv


Güncelleme : Yer imi sorunu giderildi...



Eklenti Dosyaları
.rar   Mirza_Access ve Word.rar (Boyut: 66,98 KB / İndirilme: 798)



  Alıntı
Bu mesajı beğenenler:
#2
Sayın Mirzakatar;
Çok güzel bir örnek hazırlamışsınız..
Emeğinize ve paylaşımınız için teşekkürler...



  Alıntı
Bu mesajı beğenenler:
#3
tebrik ederim çok güzel ve farklı bir çalışma



  Alıntı
Bu mesajı beğenenler:
#4
İlginize teşekkür ederim arkadaşlar...Wubclub



  Alıntı
Bu mesajı beğenenler:
#5
çok güzel gayet anlaşılır ve açık....
teşekkürler sayın mirzakatar
Tecrübe bütün öğretmenlerin en iyisidir.
Publilus Syrus

YARDIMCI ARAÇ UYGULAMALARIM
Takvim Günü ve İş Günü Hesaplama (YENİ!)
Access Penceresini  Tek Tıklamayla Gizleme Uygulaması (UYGULAMA)

BLOG SİTEM
A dan Z'ye Access Konuları (Güncel Bilgiler)



  Alıntı
Bu mesajı beğenenler:
#6
Sayın Mirza Katar;

Bu güzel çalışma dolayısıyla verdiğiniz emek ve paylaşımınız için içten teşekkürler.

Sevgi ve saygılar.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-1 Access - SQL Sorgu Örnekleri Tablo Ektedir. Akdeniz Üniversitesi creaton325 15 43.640 12-05-2021, 15:04
Son Mesaj: dsezgin
  Kuranı Kerimde Esmaül Hüsnalar 1.01 Access kurt26 4 801 04-02-2021, 10:22
Son Mesaj: sametunal
access-sql-15 Her Konuda Access Örnekleri 2 (1.227 Adet) d_rago_n 47 57.045 04-02-2021, 10:17
Son Mesaj: sametunal
access-sql-12 PerSis v1.281112-Access (Personel Özlük Takip Sistemi) efeksk 78 55.427 02-05-2020, 02:10
Son Mesaj: relaxible
  Access VB Kod Editorune Harici Erişimler Berkant Öztürk 5 3.179 23-02-2020, 15:53
Son Mesaj: feraz
  Başka Bir Access Objesinin Kodlarını Almak Berkant Öztürk 10 6.051 23-02-2020, 15:41
Son Mesaj: feraz
  Metin Kutusu Yazı Editörü MADMAX 4 3.248 24-09-2019, 09:55
Son Mesaj: nekeba
access-sql-20 Access YedekleME (aç-kapa) Accdb ZIP ISO 7z Sessizce Mehmet Eser 7 5.210 27-03-2019, 00:06
Son Mesaj: TURKOLOG

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi