(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