Merhaba, 

Cvp: Word Boyama İşlemi - 8 bağlantısında bulunan mesajdaki  Ödeme Takip.rar isimli örneği inceleyiniz.

Örneği rardan çıkardığınızda "Ödeme Takibi Uygulaması\Master Dosyalar" dizinindeki TL HESABI.docx isimli word belgesini açıp "Ekle" Sekmesinde "Yer İşareti"ni tıkladığınızda "txtalici" isimli yer işaretini görebilirsiniz.

Ödeme Takip.accdb isimli uygulamanın raporunda

Dim appword As Word.Application

Dim doc As Word.Document

Dim Path As String



On Error Resume Next

Error.Clear

Set appword = GetObject(, "word.application")

If Err.Number <> 0 Then

Set appword = New Word.Application

appword.Visible = True

End If

Path = CurrentProject.Path & "\Ödeme Takibi Uygulaması\Master Dosyalar\TL HESABI.docx"

Set doc = appword.Documents.Open(Path, , True)

With doc

    .Bookmarks("txtalici").Range.Text = Me.Alıcı

    

appword.Visible = True

appword.Activate

End With



Set doc = Nothing

Set appword = Nothing

şeklinde kod mevcut. Bu kod ile TL Hesabı isimli word belgesini açtırıp txtalici yerimine "Alıcı" alanındaki veriyi aktarır.