Microsoft Accessden Worde Yazı Gönderme İncelemesi

Yazar: | 1 Haziran 2015

Sürekli aynı word dökümanına aynı word şablonuna benzer ifadeler yazarken bunun daha kısa bir yolu olmalı diye aklınıza geliyor. Sorduğunuz zaman yazılım olmalı cevabını alıyorsunuz. Peki bu işin yazılım olmadan daha kolay herkesin yapabileceği bir yolu yok mu diye araştırdığınız zaman karşınıza access programı çıkıyor.

İşlem Basamakları

1. word dökümanında yazı nereye yazılacaksa o alana yer imi tanımlanmalı

Yazının gelmesini istediğiniz yere bir karaketer yazın (x – gibi)

Yer imi tanımlamak için word de ekle =>> yer imi ya da yer işaretlerini seçin.

       Daha sonra  açılan pencerede yer imi alanına bir isim verin.

Daha sonra yer imi yer işareti kaydedilmiş mi kontrol edin.

Yazdığınız karakteri seçince yer imi alanına gelip yazdığınız ismin orada olduğunu kontrol edin.

2. Access de kayıt formu oluşturun.

3. Access programında alt F11 yaparak kod alanına gelip üst kısımda bulunan referanslar alanında Microsoft word 14.0 object library alanını seçin. Bu alan seçili olmazsa yazılarınız word e gitmez ve sadece boş word dosyası açılır. object library office sürümlerine göre değişir 2010 da 14.0 varken 2013 de 15.0 olabilir.

ÖNEMLİ UYARI: eğer  access i office 2013 de yapıp office 2010 da kulanacaksanız compile error diye başlayan bir hata verir. Bu hatanın sebibi yukarda belirtilen library uyumsuzluğudur. Bu durumu ortadan kaldırmak için referans alanından library tiklerini office programına uygun olana göre seçin.

4. Aşağıdaki kodu bir butona ekleyin.

5. Aşağıdaki kodlarda yer alan uzantı yolunu tanımlayın.

6.yer imlerini ve textbox adlarını da kodlara tanımlayın.

”””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””’    kod başlangıç    ””””””””””””””””””””””””””””””””””””””””””

Private Sub Komut165_Click()

On Error GoTo hata

Dim objWord As Word.Application

Set objWord = CreateObject(“Word.Application”)

With objWord
‘Word dosyasını görünür yap
.Visible = True
.Documents.Add (“UZANTI YOLUNU BURAYA YAZINIZ”)

.ActiveDocument.Bookmarks(“WORD DE BELİRLENEN YERİMİNİ BURAYA YAZINIZ”).Select
.Selection.Text = ACCESS DE YAZININ GELMESİNİ İSTEDİĞİNİZ TEXTBOX ALANINI BURAYA YAZINIZ

.ActiveDocument.Bookmarks(“WORD DE BELİRLENEN YERİMİNİ BURAYA YAZINIZ”).Select
.Selection.Text = ACCESS DE YAZININ GELMESİNİ İSTEDİĞİNİZ TEXTBOX ALANINI BURAYA YAZINIZ

.ActiveDocument.Bookmarks(“WORD DE BELİRLENEN YERİMİNİ BURAYA YAZINIZ”).Select
.Selection.Text = ACCESS DE YAZININ GELMESİNİ İSTEDİĞİNİZ TEXTBOX ALANINI BURAYA YAZINIZ

End With
‘ objWord.Quit
Set objWord = Nothing
Exit Sub

hata:
‘Eğer yer imine aktarilacak veri yoksa yer imi silinir…
If Err.Number = 94 Then
objWord.Selection.Text = “”
Resume Next
End If
Exit Sub
End Sub

”””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””””’    kod bitiş   ”””””””””””””””””””””””””””””””””””””””””’

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir