Skip to main content

AccessTr.neT


sorgudaki yazıyı ortalama

sorgudaki yazıyı ortalama

Çözüldü #1
merhaba arkadaşlar. Bir sorgu oluşturduğumuzda o sorgu sonucunu sola dayalı değilde ortada göstermek mümkün olabilir mi?
Cevapla
Çözüldü #2
Merhabalar,

Sorguyu RAPOR ile ön izlerseniz istediğiniz biçimde görebilirsiniz.
Örnek çalışmanız varsa örnek üzerinden yardımcı olabilirim.
Cevapla
Çözüldü #3
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
Çözüldü #4
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
Çözüldü #5
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
Cevapla
Çözüldü #6
Ö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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task