sorgudaki yazıyı ortalama
Tarih
16/08/2012 15:45
Konu Sahibi
kokotuna
Yorumlar
5
Okunma
1063
Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 3/5 - 1 oy



kokotuna
Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
14/07/2016,17:33
Çözüldü 
Sponsor Reklam
merhaba arkadaşlar. Bir sorgu oluşturduğumuzda o sorgu sonucunu sola dayalı değilde ortada göstermek mümkün olabilir mi?
Cevapla

raham
FEDA
Kullanici Avatari
Aktif Üye
H....
127
02/06/2011
32
İstanbul
Ofis 2010
14/10/2015,12:26
Çözüldü 
Merhabalar,

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

kokotuna
Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
14/07/2016,17:33
Çözüldü 
Sponsor Reklam
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?
Cevapla

raham
FEDA
Kullanici Avatari
Aktif Üye
H....
127
02/06/2011
32
İstanbul
Ofis 2010
14/10/2015,12:26
Çö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.
Cevapla

kokotuna
Aktif Üye
Kullanici Avatari
Aktif Üye
202
02/03/2012
10
Bolu
Ofis 2010
14/07/2016,17:33
Çözüldü 
Sponsor Reklam
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


Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.189
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,14:26
Çö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ı)  
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  ortalama maliyet alış-satış maras321 4 185 26/11/2016, 12:13 maras321
  Sorgudaki değişime göre formda uyarı vermek mehmetb84 4 194 16/11/2016, 23:08 mehmetb84
Çözüldü Çapraz Sorgudaki Tüm Sütunları Raporda Gösterme kadirdursun 6 535 29/03/2016, 11:33 atoz112
Çözüldü çapraz sorgudaki sutun adları 2 (toplama) kadirdursun 6 656 29/03/2016, 11:11 atoz112
Çözüldü İstasyon Bazlı Ortalama Sıcaklık Sorgusu Xleash 4 444 04/03/2016, 18:10 Xleash


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya