Öncelikle bu form kullanıcılarına teşekkür ediyorum. Amatör yaptığımız çalışmalar yavaş yavaş profesyonelleşiyor. Ben de kendi alanımda bir hukuk otomasyonu yapıyorum. Buradan sürekli örneklerle destekliyorum. şimdi yapmak istediğim ise biraz daha profosyonellik istiyor.

Ekte gönderdiğim çalışmadaki forumdaki verilerden bazılarını yine ekteki word belgesine yazdırmak istiyorum. Mesela ben forumda yazdır dediğim zaman o istediğim alanlar o word belgesindeki yerlere geçsin istiyorum. ancak bunu kodsuz başaramadım. Yardımlarınız için şimdiden teşekkür ediyorum..

Aşağıda belirtilen konuları incelermisiniz.

https://accesstr.net/konu-word-aktarma.html
https://accesstr.net/konu-access-den-wor...tarma.html

Sayın av.fatihberber

Örneğinizi 2003 formatına çevirip ekleyebilir misiniz?

Sayın İsmail Küçükşahin;

Günaydın dostum..

2003'e çevrilmiş dosya ektedir.

Hayırlı işler...Selam ve sevgiler..

Verdiğiniz örnekleri inceledim. Benim çalışmama entegre etmeye çalıştım. Ama anlamadığım bir yerde hata yapıyorum. Bir türlü word e yazdıramadım.
Kodu aşağıdaki gibi yazdım olmadı.

Alıntı:Option Compare Database

Private Sub Komut22_Click()
' Word Şablonundan yeni belge oluşturma.
Dim WordApp As Word.Application
Dim strTemplateLocation As String

' Şablonun bulunduğu yer

strTemplateLocation = CurrentProject.Path & "\talepmernis.dot"
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set WordApp = CreateObject("Word.Application")
End If
On Error GoTo ErrHandler


WordApp.Visible = True
WordApp.WindowState = wdWindowStateMaximize
WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False

' Her satırı uygun olan kayıt ile değiştirmek.
With WordApp.Selection
.Goto what:=wdGoToBookmark, Name:="icradairesi"
.TypeText [VERİTABANI]![İcra Dairesi]

.Goto what:=wdGoToBookmark, Name:="esasno"
.TypeText [VERİTABANI]![Esas No]

.Goto what:=wdGoToBookmark, Name:="adisoyadi"
.TypeText [VERİTABANI]![Adı Soyadı]


.Goto what:=wdGoToBookmark, Name:="tcno"
.TypeText [VERİTABANI]![Tc veya Vergi no]



End With

DoEvents
WordApp.Activate

Set WordApp = Nothing
Exit Sub

ErrHandler:
Set WordApp = Nothing


End Sub



Private Sub Komut140_Click()

End Sub

[/vb]

Aşağıdaki mesajda bir çalışmam var inceleyiniz.
worde verme