Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
09/10/2018 20:49
Konu Sahibi
prestij06
Yorumlar
6
Okunma
394
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

prestij06

Aktif Üye
64826
 33
 15
 42
 11/06/2014
3
 -
 
 -
 09/05/2019,12:38
Çözüldü 
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.



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
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 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

prestij06

Aktif Üye
64826
 33
 15
 42
 11/06/2014
3
 -
 
 -
 09/05/2019,12:38
(09/10/2018 22:00)ozanakkaya Adlı Kullanıcıdan Alıntı: 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 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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 


[Resim: do.php?imgf=153916802463341.jpg]



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Ekteki uygulamayı deneyip sonuç hakkında olumlu/olumsuz bildirimde bulununuz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

prestij06

Aktif Üye
64826
 33
 15
 42
 11/06/2014
3
 -
 
 -
 09/05/2019,12:38
aynı hatayı alıyorum hocam



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 480
 12.053
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Kodu aşağıdaki ile değiştirerek deneyiniz

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Açılan Kutuda Verileri Sıralamak m_demir 2 96 10/05/2019, 12:08
Son Yorum: m_demir
Çözüldü Word'de Bul Ve Değiştir haliliyas 2 230 04/04/2019, 19:54
Son Yorum: haliliyas
Çözüldü Mail Gönderirken Gövdeye Yazı Aralarına Resim Eklemek Ve Satır Ara Boşlukları zetyu 6 324 22/03/2019, 23:52
Son Yorum: zetyu
Çözüldü Raporda verileri yan yana yazdırma? mahirozcan 21 7.684 17/03/2019, 11:18
Son Yorum: dioxi
Çözüldü Alt Alta Olan Verileri İd Bazında Yan Yana Getirmek ufukcem 8 1.233 15/02/2019, 13:42
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.