Access verisini Word'deki Textbox'a aktarma

[erty]

Arkadaşlar farzedelim elimizde bir veri tabanı var ve bu veri tabanındaki bir tablodaki verileri farklı dosyalar oluşturacak şekilde Word Form'daki Textbox'lara aktarmak istiyorum bunu hangi kodlarla yapabilirim acaba lütfen yardımcı olur musunuz ? Eğer anlayamadıysanız örnek dosyayı inceleyerek çok rahat bir şekilde anlayacağınızı umuyorum, teşekkürler...

 

[hakanbehcan]

Aynı dizinde Dosyalar diye bir dizin açıp
Şablona şu prosedürü yazıp çalıştırınız.

Sub DosyaOlustur()
Dim KS As ADODB.Recordset
Dim Bag As ADODB.Connection
Dim Sira As Integer
Dim Yolum As String

Set KS = New ADODB.Recordset
Set Bag = New ADODB.Connection
Yolum = ActiveDocument.Path
Bag.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Yolum & "\db1.mdb"
sorgu = "Select Ad, Soyad From Kişiler"
KS.Open sorgu, Bag, 1, 3
Do While Not KS.EOF
Sira=Sira + 1
ActiveDocument.FormFields("Metin1").Result = ""
ActiveDocument.FormFields("Metin2").Result = ""
ActiveDocument.FormFields("Metin1").Result = KS("Ad")
ActiveDocument.FormFields("Metin2").Result = KS("SoyAd")

ChangeFileOpenDirectory Yolum & "\Dosyalar"
    ActiveDocument.SaveAs FileName:=Sira & "-" & KS("Ad") & KS("Soyad"), FileFormat:=wdFormatDocument
KS.MoveNext
Loop
KS.Close
Bag.Close
Set KS = Nothing
Set Bag = Nothing
End Sub

 

[İsmail Küçükşengün]

Sayın Hakanbehcan;

Örneğinizi ADO değil de, DAO ile düzenlemeniz mümkün mü?

Zira bende ADO sorunu var.

Teşekkürler.

 

[hakanbehcan]

DAO ile

Dosya aşağıda.

 

[İsmail Küçükşengün]

Dosya aşağıda.

Sayın hakanbehcan;

Dosyada sanırım bir eksiklik var. Şablon dosya yok.

Bir de: Access'te bir form yapsak, seçtiğimiz kişiye ait veriler Word.da ilgili yerlere yazsa çok güzel olacak.

Teşekkür ve selamlarımla.

 

[hakanbehcan]

Sadece textbox a veri yazmaya örnek idi.

Dosyanın kendisi şablon. Şablona ihtiyaç yok. Uygulamanın amacı, zaten çok nadir kişi tarafından kullanılan word textboxlarına ADO ve DAO ile veri yazma metoduna örnek olmak. Kime nasıl lazımsa o şekilde tasarımını yapar. Dot mu kullanır doc mu kullanır, paşa gönlüsü bilir.

Ek: Vaktim olduğunda, örnek amacı ile verileri bir UserForma, oradan da Textboxlara yazacak bir uygulama tasarlayacağım. Ama excel userformları ile farkı olmayacaktır.

 

[MUTEF]

Bu örnekte Word'de VBA ile TextBox kullanmanın bir farkı olurmu? yani
ActiveDocument.FormFields("Metin1").Result = veri tabanından alınan değer
yerine
TextBox1.Text=veri tabanından alınan değer
olarak veri tabanından veri aktarılsa bir fark olurmu? bu iki yapı arasındaki fark nedir?

 

[MUTEF]

Döküman üzerine yazarken text kutucuğu gibi birşey var.onu nerden ekliyorlar acaba Metin1 adlı nesne yani

 

[ExcelBrother]

Bir de bunu mesela bir A4 kağıdınındaki ardı ardına yazılmış, aralarında virgül ile ayrılmış kişileri, başka bir A4 kağıdındaki davetiyeyi okutup power pointe yazdırarak arkasına da Tarkandan bir Mp3 eklemek ve doğrudan windows adres defterinden kişilerin posta adresi bulunarak posta atılmasını istitorum. Nasıl bir kod yazmam gerekir acaba?.

 

[Haluk]

Karşı tarafın bilgisayarı kapalıysa, komşusunun e-posta adresine gönderilmesi seçeneği de olsa iyi olur .... düşüncesindeyim.


.

 

[ExcelBrother]

O biraz abartı olur.