word'ten excele veya Access veri gönderme

[atkbursa]

Benim sorum şu Wordde hazırladığımız formun veri alanlarındaki bilgiyi bir excell sayfasına veya access tablosuna alabilirmiyiz

Ã?rnek:
adı soyadı: xxxxxxx

adresi: xxxxxxxx

posta kodu: xxxxxxx

Telofon no : xxxxxxxxxxxxxxx
adı soyadı alanı etiket xxxxxx yazılı alanlar veriler olsun book markla işaretlenmiş bu alanları verileri girdikten sonra bir makroyla excel veya access tablosuna ekleyebilirmiyiz? formu her dolduruşumuzdan sonra bu bilgiler ilgili tabloda biriksin örnek on kez bu formu doldurduysak bu on kişiye ait bilgiler ilgili tabloda biriksin.

 

[atkbursa]

Word dosyamı inceleyen ve ilgilenen varsa bildirirse memnun olurum. :yardim:

 

[atkbursa]

word aceess bağlantısı

Bir arkadaşın yardımıyla örnek dosya yaptım. sanırım wordde yazdıklarını access te birktirmek isteyenlerin işine yarar.

 

[excile]

Selam

Çok güzel bir çalışma çok işime yarayacak.Teşekkürler Atkbursa

 

[atkbursa]

rica ederim. dahada geliştiren olursa bildirirse memnun olurum.
örnek:word formuna açılan kutu eklediğimizde bu açılan kutudaki veriyi access tablosuna almıyor :?

 

[jale]

:hey:
Merhaba zipli halinide eklerseniz bizlerde bakabiliriz.

 

[atkbursa]

zipli hali

dosyanın zipli halini gönderiyorum.

 

[jale]

:hey:
Çok güzel bir çalışma.Elinize sağlık.İyiki zipli halini istemişim. :mrgreen:

 

[atkbursa]

sizinde elinize sağlık, formdaki örnek access dosyalarınızdan bende yararlanıyorum. çalışmalarınızda başarılar dilerim. :yazici:

 

[atkbursa]

word access açılan kutu

Erdinç arkadaşımızın yardımlarıyla dosyanın yeni hali artık word dosyasındaki acılan kutulardaki verileride accesse alabiliyor

örnek:
savcilik isimli alan açılan kutu
Ad1 isimli alan normal veri alanı

With ThisDocument
tablo("Rapor_no1") = .FormFields("Rapor_no1").Range
tablo("savcilik") = .FormFields("savcilik").Result
tablo("Ad1") = .FormFields("Ad1").Range
tablo("polmerkezi") = .FormFields("Polmerkezi").Range
tablo("babaadı") = .FormFields("Babaadı").Range
tablo("karakol1") = .FormFields("karakol1").Range
tablo("dyeri") = .FormFields("dyeri").Range
tablo("rytarih") = .FormFields("rytarih").Range
tablo("dtarih") = .FormFields("dtarih").Range
tablo("ryazi") = .FormFields("ryazi").Range
tablo("cinsiyet") = .FormFields("cinsiyet").Range
tablo("meslegi") = .FormFields("meslegi").Range
tablo("guvenlik") = .FormFields("guvenlik").Range
tablo("kimlikn") = .FormFields("kimlikn").Range
tablo("yaka_no") = .FormFields("yaka_no").Range
tablo("solkol") = .FormFields("solkol").Range
tablo("gnedeni") = .FormFields("gnedeni").Range
tablo("sortam") = .FormFields("sortam").Range
tablo("msirasi") = .FormFields("msirasi").Range
tablo("msaciklama") = .FormFields("msaciklama").Range
tablo("skoop") = .FormFields("skoop").Range
tablo("muayene") = .FormFields("muayene").Range
tablo("maciklama") = .FormFields("maciklama").Range
tablo("otarih") = .FormFields("otarih").Range
tablo("osaati") = .FormFields("osaati").Range
tablo("ooykusu") = .FormFields("ooykusu").Range
End With

 

[musba2924]

Sn. atbursa word' de yapmış olduğunuz Metin Form Alanı nereden ve nasıl oluşuruluyor acaba? Uzun zaman dır word kullanmıyorum bir türlü kendi sayfama yeni bir metin form alanı ekleyemedim. yer işareti ekledim ama bu sizin yaptığınız gibi olmadı. yardımcı olursanız sevinirim. Teşekkür edrim şimdiden.

 

[atkbursa]

Wordde Görünüm /Araç çubukları/ formlar araç çubuğunu aktif hala getir gerekli alanları bu araç çubuğundan ekle daha sonra eklediğin alanları sağ tıklayıp özelliklerine girerek diğer ayarlarıda yapabilirsin.

 

[musba2924]

Çok teşekkür ederim. :hey:

 

[atkbursa]

Rica ederim; sağlıklı ve mutlu günler dilerim.