Access Formdan Word Üstbilgi ve Altbilisine Veri Aktarmak

Merhaba, sayın tdsharun'a ait Access'ten Word'e veri aktarımını kullanıyorum ve çok başarılı ancak benim buna ilaveten yapmak istediğim şey; aynı örnek üzerinden Word dosyasındaki üstbilgi ve altbilgi kısmına da veri aktarmak.

Word şablonunda yer imlerini üstbilgi ve altbilgiye ekledim. Accesste kodlara gerekli ilaveyi de yaptım ancak verileri aktarmayı denediğimde üstbilgiye veri aktaramıyorum ve eylem burada takılı kalıyor. Yer imlerini üstbilgi ve altbilgi dışında kullanmakta sorun yok. Ekte sayın tdsharun'a ait örneği ve yapmaya çalıştığım halini Olması Gereken isimli Word dosyasında açıkladım. Bu örnek üzerinden istediğimi yapabilmemin bir yolu varmıdır.

(25/07/2015, 14:40)hturkavci03 yazdı: Merhaba, sayın tdsharun'a ait Access'ten Word'e veri aktarımını kullanıyorum ve çok başarılı ancak benim buna ilaveten yapmak istediğim şey; aynı örnek üzerinden Word dosyasındaki üstbilgi ve altbilgi kısmına da veri aktarmak.

Word şablonunda yer imlerini üstbilgi ve altbilgiye ekledim. Accesste kodlara gerekli ilaveyi de yaptım ancak verileri aktarmayı denediğimde üstbilgiye veri aktaramıyorum ve eylem burada takılı kalıyor. Yer imlerini üstbilgi ve altbilgi dışında kullanmakta sorun yok. Ekte sayın tdsharun'a ait örneği ve yapmaya çalıştığım halini Olması Gereken isimli Word dosyasında açıkladım. Bu örnek üzerinden istediğimi yapabilmemin bir yolu varmıdır.

Private Sub Komut12_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If Ctrl.Properties("ControlType") = 109 Then
If IsNull(Ctrl) Then
MsgBox Ctrl.Name & " Alaný Boþ Olamaz!"
Me.Controls(Ctrl.Name).SetFocus
Exit Sub
End If
End If
Next Ctrl

If MsgBox("D Ý K K A T" & Chr(13) & _
"Bilgiler Þablona Yazdýrýlacak. Onaylýyor musunuz?", vbInformation + vbOKCancel) = vbOK Then
Else
Exit Sub
End If
Dim WordApp As Word.Application 'Referanslardan (Tools - References...) Microsoft Word 11.0 Object Library seçili olmalý... Yoksa hata alýrsýnýz...
Dim strTemplateLocation As String
strTemplateLocation = CurrentProject.Path & "\Sablon.docx"
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
With WordApp.ActiveDocument.Sections(1)
With .Headers(wdHeaderFooterPrimary)
.Range.Font.Name = "Arial"
.Range.Font.Size = 14
.Range.Font.Bold = True
.Range.InsertAfter Me.basligi
.Range.Paragraphs.Alignment = wdAlignParagraphCenter
End With
With .Footers(wdHeaderFooterPrimary)
.Range.Text = "Baglanti Noktasi : " & Me.bagnokta
.Range.Font.Bold = False
.Range.Paragraphs.Alignment = wdAlignParagraphLeft
.Range.Font.Size = 8
End With
End With
With WordApp.ActiveDocument.Paragraphs(1)
.Range.Font.Bold = False
.Range.Paragraphs.Alignment = wdAlignParagraphLeft
.Range.Font.Size = 12
.Range.Text = "Tablo No" & Space(7) & ": " & Me.tablo1No & vbNewLine & _
"Adi" & Space(16) & ": " & Me.Adý & vbNewLine & _
"Soyadi" & Space(11) & ": " & Me.Soyad & vbNewLine & _
"Ünvan" & Space(10) & " : " & Me.Ünvan & vbNewLine & _
"Ev Telefonu" & Space(1) & " : " & Me.EvTelefonu
End With


DoEvents
WordApp.Activate

Set WordApp = Nothing
Exit Sub

ErrHandler:
Set WordApp = Nothing

End Sub

Sayın KulAhmet, öncelikle ilginize teşekkür ederim. Vermiş olduğunuz kodlar Sablon isimli yer imleri belirlenmemiş Word belgesinde kusursuz çalışıyor ancak ben ilk mesajımdaki örnekte olduğu gibi formdan istediğim veriyi Word belgesinde yer imi ile belirlediğim istediğim noktalara aktarmak istiyorum. İlk mesajımdaki örnek üzerinden istediğim olay mümkün müdür?

(26/07/2015, 14:22)hturkavci03 yazdı: Sayın KulAhmet, öncelikle ilginize teşekkür ederim. Vermiş olduğunuz kodlar Sablon isimli yer imleri belirlenmemiş Word belgesinde kusursuz çalışıyor ancak ben ilk mesajımdaki örnekte olduğu gibi formdan istediğim veriyi Word belgesinde yer imi ile belirlediğim istediğim noktalara aktarmak istiyorum. İlk mesajımdaki örnek üzerinden istediğim olay mümkün müdür?

yer imleri icin ko icide
ActiveDocument.Bookmarks("tablo1No").Range.InsertAfter "Tablo1No" & Space(7) & " : " & Me.tablo1No
yazilabilir.

Konu;


gerek paylaşılan bilgiler neticesinde çözüme kavuşturuldu düşüncesi ile ve gerekse de
konu sahibinin zaman zarfında ayrıntılı geri dönüş bildirimleri olmaması nedeni ile,
Cevaplanmış Sorular kategorisi içerisine taşınmıştır.

bilginize.