AccessTr.neT

Tam Versiyon: Verileri Word'e Seçenekli Aktarma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba arkadaşlar. Ekteki projemdeki Üst Yazı butonuna bastığımızda "Konusunu Gir" diye bir uyarı vermesini ve biz "gbt" veya "kan" yazıp tamam dediğimizde yine ekte bulunan konusunu yazdığımız "gbt veya "kan word belgelerine verileri aktarmasını istiyorum. Word belgelerine ben Yer İmlerini ekledim. Yardımcı olursanız çok sevinirim teşekkürler.
Dim GVeri, strTemplateLocation As String

GVeri = InputBox("", "Konusunu Gir", "")

If GVeri = "gbt" Then

strTemplateLocation = CurrentProject.Path & "\gbt.doc"

'word belgesini açtırma ve yer imlerine veri aktarma kodları


ElseIf GVeri = "kan" Then

strTemplateLocation = CurrentProject.Path & "\kan.doc"

'word belgesini açtırma ve yer imlerine veri aktarma kodları

End If

Şeklinde kod ekleyiniz. Butona tıkladığınızda input açılır gbt yazdığınızda gbt.doc açılır. Veri aktarma kodlarını eklemelisiniz.
Hocam şu şekilde hata veriyor: ekte var

[Resim: 17PzYD.jpg]
strTemplateLocation değişkenini bir kaç yerde tanımlamışsınız. değişkenler aynı olay bloğu içinde 1 defa tek tanımlanır
tmmdır düzeldi tşk ediyorum.