Skip to main content

AccessTr.neT


Access Formdan Word Üstbilgi ve Altbilisine Veri Aktarmak

Access Formdan Word Üstbilgi ve Altbilisine Veri Aktarmak

Çözüldü #1
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.
.rar Word Üstbilgiye Aktar.rar (Dosya Boyutu: 62,63 KB | İndirme Sayısı: 13)
Cevapla
#2
(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
Son Düzenleme: 26/07/2015, 02:41, Düzenleyen: KulAhmet.
Cevapla
#3
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?
Cevapla
#4
(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.
Cevapla
#5
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da