Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
16/08/2012 15:45
Konu Sahibi
kokotuna
Yorumlar
5
Okunma
1640
Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
kokotuna

kokotuna

Aktif Üye
46789
 33
 62
 205
 02/03/2012
10
 Bolu
 
 -
 02/07/2019,16:17
Çözüldü 
merhaba arkadaşlar. Bir sorgu oluşturduğumuzda o sorgu sonucunu sola dayalı değilde ortada göstermek mümkün olabilir mi?




raham

raham

Aktif Üye
36718
Ha....
 39
 22
 129
 02/06/2011
32
 İstanbul
 Bilgi İşlem Uzmanı
 Ofis 2010 64 Bit
 26/12/2017,23:05
Çözüldü 
Merhabalar,

Sorguyu RAPOR ile ön izlerseniz istediğiniz biçimde görebilirsiniz.
Örnek çalışmanız varsa örnek üzerinden yardımcı olabilirim.



...........
kokotuna

kokotuna

Aktif Üye
46789
 33
 62
 205
 02/03/2012
10
 Bolu
 
 -
 02/07/2019,16:17
Çözüldü 
yalnız sorgu sonucunu word dosyasına aktarıyorum o yüzden rapora atmam benim sorunumu çözmüyor... Sorguda yapmak mümkün değilmidir?



raham

raham

Aktif Üye
36718
Ha....
 39
 22
 129
 02/06/2011
32
 İstanbul
 Bilgi İşlem Uzmanı
 Ofis 2010 64 Bit
 26/12/2017,23:05
Çözüldü 
Selamlar,

Dediğin olayı ben manuel yapıyorum. İstediğin biçimlemeyi yapıp sorguyu rapora gönderiyorum.
Rapor görünümü üzerinden sağ tık ver - zengin metin biçimi.(Yada Dosya-Ver-Zengin Metin Biçimi)

Raporda gördüklerin aynen word e aktarılıyor.




...........
kokotuna

kokotuna

Aktif Üye
46789
 33
 62
 205
 02/03/2012
10
 Bolu
 
 -
 02/07/2019,16:17
Çözüldü 
bu kodla direkt sorguyu worde vermeye çalışıyorum raporu değil... ve bir çok sorguyuda yine bu şekilde worde vericeğim için sorunu sorguda çözmek eğer mümkünse çok iyi olur...

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Dim WordApp As Word.Application
 
   Dim strTemplateLocation As String
 
    strTemplateLocation = CurrentProject.Path & "\PRO.dot"
 
   On Error Resume Next
 
  Set WordApp = CreateObject("Word.Application")
   If Err.Number <> 0 Then
     Set WordApp = CreateObject("Word.Application")
   End If
   
On Error GoTo ErrHandler
 WordApp.Visible = True
   WordApp.WindowState = wdWindowStateMaximize
   WordApp.Documents.Add Template:=strTemplateLocation, NewTemplate:=False

   With WordApp.Selection
 DoCmd.OpenQuery "BİLGİLER1SORGU" ' Burayı Değiştirdik
 DoCmd.RunCommand acCmdSelectAllRecords
 DoCmd.RunCommand acCmdCopy

  WordApp.ActiveDocument.Bookmarks("BİLGİLER1").Range.Paste
  
  End With
   
   With WordApp.Selection
 DoCmd.OpenQuery "BİLGİLER2SORGU" ' Burayı Değiştirdik
 DoCmd.RunCommand acCmdSelectAllRecords
 DoCmd.RunCommand acCmdCopy

  
 WordApp.ActiveDocument.Bookmarks("BİLGİLER2").Range.Paste
End With

   With WordApp.Selection
 DoCmd.OpenQuery "BİLGİLER3SORGU" ' Burayı Değiştirdik
 DoCmd.RunCommand acCmdSelectAllRecords
 DoCmd.RunCommand acCmdCopy

  
 WordApp.ActiveDocument.Bookmarks("BİLGİLER3").Range.Paste
  WordApp.ActiveDocument.Bookmarks("BİLGİLER3").Range.Paste
End With

   With WordApp.Selection
 DoCmd.OpenQuery "BİLGİLER4SORGU" ' Burayı Değiştirdik
 DoCmd.RunCommand acCmdSelectAllRecords
 DoCmd.RunCommand acCmdCopy

  
 WordApp.ActiveDocument.Bookmarks("BİLGİLER4").Range.Paste
End With

 
WordApp.ActiveDocument.Range.Tables(1).Rows(1).Delete '**** Burayı ekledik. ****
WordApp.ActiveDocument.Range.Tables(1).AutoFitBehavior (wdAutoFitWindow)
WordApp.ActiveDocument.Range.Tables(2).Rows(1).Delete '**** Burayı ekledik. ****
WordApp.ActiveDocument.Range.Tables(2).AutoFitBehavior (wdAutoFitWindow)
WordApp.ActiveDocument.Range.Tables(3).Rows(1).Delete '**** Burayı ekledik. ****
WordApp.ActiveDocument.Range.Tables(3).AutoFitBehavior (wdAutoFitWindow)
WordApp.ActiveDocument.Range.Tables(4).Rows(1).Delete '**** Burayı ekledik. ****
WordApp.ActiveDocument.Range.Tables(4).AutoFitBehavior (wdAutoFitWindow)




   DoEvents
   WordApp.Activate

   Set WordApp = Nothing
   Exit Sub
 
ErrHandler:
Set WordApp = Nothing



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 19/07/2019,20:59
Çözüldü 
Örnek uygulama eklerseniz yardımcı olmaya çalışırız. Ayrıca kur@l hocanın aşağıdaki konusunu inceleyiniz.
Worde Gönderme (Formatlı)


"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ü Sorgudaki Sonuçların Raporda Gösterilmesi derebeyi 6 201 04/07/2019, 09:11
Son Yorum: derebeyi
Çözüldü Form Ortalama Ekran Çözünürlüğüne Göre cozum 3 132 31/05/2019, 17:31
Son Yorum: ozanakkaya
Çözüldü Metin Kutusu Dikey Ortalama irfanxdemir 20 7.772 19/02/2019, 13:25
Son Yorum: dioxi
Çözüldü Sorgudaki Veriyi Alt Forma Çekmek notrino 3 286 09/10/2018, 10:56
Son Yorum: notrino
Çözüldü Sorgudaki Alanları Raporun Ayrıntı Kısmındaki Alanlara Bağlama mmert06 8 642 29/06/2018, 14:45
Son Yorum: mmert06

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