AccessTr.neT
sorgudaki yazıyı ortalama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: sorgudaki yazıyı ortalama (/konu-sorgudaki-yaziyi-ortalama.html)



sorgudaki yazıyı ortalama - kokotuna - 16/08/2012

merhaba arkadaşlar. Bir sorgu oluşturduğumuzda o sorgu sonucunu sola dayalı değilde ortada göstermek mümkün olabilir mi?


Cvp: sorgudaki yazıyı ortalama - raham - 17/08/2012

Merhabalar,

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


Cvp: sorgudaki yazıyı ortalama - kokotuna - 17/08/2012

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?


Cvp: sorgudaki yazıyı ortalama - raham - 17/08/2012

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.


Cvp: sorgudaki yazıyı ortalama - kokotuna - 17/08/2012

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...

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



Cvp: sorgudaki yazıyı ortalama - ozanakkaya - 23/08/2012

Örnek uygulama eklerseniz yardımcı olmaya çalışırız. Ayrıca kur@l hocanın aşağıdaki konusunu inceleyiniz.
Worde Gönderme (Formatlı)