Access Formdan Word Üstbilgi ve Altbilisine Veri Aktarmak - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Access Formdan Word Üstbilgi ve Altbilisine Veri Aktarmak (/konu-access-formdan-word-ustbilgi-ve-altbilisine-veri-aktarmak.html) |
Access Formdan Word Üstbilgi ve Altbilisine Veri Aktarmak - hturkavci03 - 25/07/2015 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. Cvp: Access Formdan Word Üstbilgi ve Altbilisine Veri Aktarmak - KulAhmet - 26/07/2015 (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. 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 Cvp: Access Formdan Word Üstbilgi ve Altbilisine Veri Aktarmak - hturkavci03 - 26/07/2015 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? Cvp: Access Formdan Word Üstbilgi ve Altbilisine Veri Aktarmak - KulAhmet - 28/07/2015 (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. Cvp: Access Formdan Word Üstbilgi ve Altbilisine Veri Aktarmak - atoz112 - 25/09/2015 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. |