Merhaba ustalar. Ekte göndermiş olduğum projemde açılır menü olarak bulunan "Yazısı" kısmında 4 seçenek mevcut. Ben bu seçeneklerden birini seçip Yazdır butonuna bastığımda yine word olarak ekte yolladığım kırmızı olarak yazdığım yerlere mümkünse
Access projemdeki kısımların eklenmesini istiyorum. Açılır menüdeki her seçeneğe göre ekte word dosyası var. Ayrıca "sorulacak tarih" yerine ise yazdır butonuna bastığımızda bana sorsun ben manuel olarak yazıyım. Örnekle açıklayacak olursam: Kullanıcı; Yazısı kısmındaki 4 seçenekte birini mesela "Aslı" seçsin ve Yazdır butonuna bassın. Ardından "Hangi Tarih" diye bir bölüm çıksın. Ben oraya tarihi yazıp tamam deyince o tarihle beraber belirtmiş olduğum kısımları word e yazsın. Umarım anlatabilmişimdir. Şimdiden teşekkürler. Elinize sağlık.
Merhaba, bu işlem için word şablonu oluşturmalı ve şablonda ilgili yerlere yer imi eklemelisiniz.
Aslı için oluşturulan örnek şablon ektedir.
Aslı.dotx isimli şablonu uygulama ile aynı dizine ekledikten sonra butonun tıklandığında olayına
Dim GSorulacakTarih, GGecerliBelgeYolu, GSablonYolu As String
Dim WordApp, oWdoc As Object
GSablonYolu = CurrentProject.Path & "\" & Me.yazisi & ".dotx"
GGecerliBelgeYolu = CurrentProject.Path & "\" & Replace(Me.dosyano, "/", "-") & " dosya numaralı evrakın " & Me.yazisi & ".docx"
GSorulacakTarih = InputBox("Sorulacak Tarihi Yazınız", "Tarih Bilgisi")
Set WordApp = CreateObject(Class:="Word.Application")
WordApp.Visible = True
AppActivate "Microsoft Word"
Set oWdoc = WordApp.Documents.Add(Template:=GSablonYolu, NewTemplate:=False)
WordApp.ActiveDocument.Bookmarks("sayisi").Select
WordApp.Selection.Text = Me.sayisi
WordApp.ActiveDocument.Bookmarks("isim").Select
WordApp.Selection.Text = Me.isim
WordApp.ActiveDocument.Bookmarks("evraktarihi").Select
WordApp.Selection.Text = Me.Metin90
WordApp.ActiveDocument.Bookmarks("dosyano").Select
WordApp.Selection.Text = Me.dosyano
WordApp.ActiveDocument.Bookmarks("dosyano2").Select
WordApp.Selection.Text = Me.dosyano
WordApp.ActiveDocument.Bookmarks("isim2").Select
WordApp.Selection.Text = Me.isim
WordApp.ActiveDocument.Bookmarks("sorulacaktarih").Select
WordApp.Selection.Text = GSorulacakTarih
oWdoc.SaveAs2 GGecerliBelgeYolu
kodu eklemeniz gerekli.
(09/10/2018, 22:00)ozanakkaya yazdı: Merhaba, bu işlem için word şablonu oluşturmalı ve şablonda ilgili yerlere yer imi eklemelisiniz.
Aslı için oluşturulan örnek şablon ektedir.
Aslı.dotx isimli şablonu uygulama ile aynı dizine ekledikten sonra butonun tıklandığında olayına
Dim GSorulacakTarih, GGecerliBelgeYolu, GSablonYolu As String
Dim WordApp, oWdoc As Object
GSablonYolu = CurrentProject.Path & "\" & Me.yazisi & ".dotx"
GGecerliBelgeYolu = CurrentProject.Path & "\" & Replace(Me.dosyano, "/", "-") & " dosya numaralı evrakın " & Me.yazisi & ".docx"
GSorulacakTarih = InputBox("Sorulacak Tarihi Yazınız", "Tarih Bilgisi")
Set WordApp = CreateObject(Class:="Word.Application")
WordApp.Visible = True
AppActivate "Microsoft Word"
Set oWdoc = WordApp.Documents.Add(Template:=GSablonYolu, NewTemplate:=False)
WordApp.ActiveDocument.Bookmarks("sayisi").Select
WordApp.Selection.Text = Me.sayisi
WordApp.ActiveDocument.Bookmarks("isim").Select
WordApp.Selection.Text = Me.isim
WordApp.ActiveDocument.Bookmarks("evraktarihi").Select
WordApp.Selection.Text = Me.Metin90
WordApp.ActiveDocument.Bookmarks("dosyano").Select
WordApp.Selection.Text = Me.dosyano
WordApp.ActiveDocument.Bookmarks("dosyano2").Select
WordApp.Selection.Text = Me.dosyano
WordApp.ActiveDocument.Bookmarks("isim2").Select
WordApp.Selection.Text = Me.isim
WordApp.ActiveDocument.Bookmarks("sorulacaktarih").Select
WordApp.Selection.Text = GSorulacakTarih
oWdoc.SaveAs2 GGecerliBelgeYolu
kodu eklemeniz gerekli.
Merhaba dediğiniz gibi ekteki word dosyasını
Access ile aynı klasöre attım. Dediğiniz kodu butonun tıklandığında kısmına ekledim ama hata veriyor. Hatanın resmi
Ekteki uygulamayı deneyip sonuç hakkında olumlu/olumsuz bildirimde bulununuz.
aynı hatayı alıyorum hocam
Kodu aşağıdaki ile değiştirerek deneyiniz
Dim GSorulacakTarih, GGecerliBelgeYolu, GSablonYolu As String
Dim WordApp As Word.Application
Dim oWdoc As Word.Document
GSablonYolu = CurrentProject.Path & "\" & Me.yazisi & ".dotx"
GGecerliBelgeYolu = CurrentProject.Path & "\" & Replace(Me.dosyano, "/", "-") & " dosya numaralı evrakın " & Me.yazisi & ".docx"
GSorulacakTarih = InputBox("Sorulacak Tarihi Yazınız", "Tarih Bilgisi")
Set WordApp = CreateObject(Class:="Word.Application")
WordApp.Visible = True
WordApp.Activate
WordApp.WindowState = wdWindowStateMaximize
Set oWdoc = WordApp.Documents.Add(Template:=GSablonYolu, NewTemplate:=False)
WordApp.ActiveDocument.Bookmarks("sayisi").Select
WordApp.Selection.Text = Me.sayisi
WordApp.ActiveDocument.Bookmarks("isim").Select
WordApp.Selection.Text = Me.isim
WordApp.ActiveDocument.Bookmarks("evraktarihi").Select
WordApp.Selection.Text = Me.Metin90
WordApp.ActiveDocument.Bookmarks("dosyano").Select
WordApp.Selection.Text = Me.dosyano
WordApp.ActiveDocument.Bookmarks("dosyano2").Select
WordApp.Selection.Text = Me.dosyano
WordApp.ActiveDocument.Bookmarks("isim2").Select
WordApp.Selection.Text = Me.isim
WordApp.ActiveDocument.Bookmarks("sorulacaktarih").Select
WordApp.Selection.Text = GSorulacakTarih
oWdoc.SaveAs2 GGecerliBelgeYolu