access ten word e veri aktarımı

[deeem]

forumda araştırdım fakat tam olarak amacıma ulaşamadım. Amacım access ten bir butona basılınca yeni bir word oluşturacak ve bu worde var olan bir sorguyu atacak. Üstatlar şimdiden teşekkürler.

 

[deeem]

ben şöle birşey yazdım

Dim wdApp As Word.Application, wdDoc As Word.Document
Set wdApp = CreateObject("Word.Application")
Set wdDoc = CreateObject("Word.Document")
wdDoc.SaveAs ("test1.doc")
With wdDoc.Content
.InsertAfter
End With
wdApp.Activate

bu benim işimi görüyor eğer .InsertAfter den sonra bir string yazınca ama yazacağım şey bir string olmadığı için olmuyor. mesela veritabanında bir satışlar adında tablo var ve ben bu tabloyu yazdırmak istiyorum onu nasıl yapabilirim yardımlarınızı bekliyorum:yardim:

 

[Taruz]

Merhaba..

Tabloyu atmak için bu kodu da deneyebilirsiniz..

[FONT=Courier New][FONT=Courier New]DoCmd.OutputTo [COLOR=red]acTable[/COLOR], "Talonuzun_adı", "RichTextFormat(*.rtf)", "", False, "", 0[/FONT]
 
[/FONT]

Eğer worde göndermek istediğiniz veriler sorguda ise de kırmızı olan kısmı acQuery ile değiştirin..

 

[deeem]

peki burada yanlış olan nedir

Private Sub Komut17_Click()
Dim wdApp As Word.Application, wdDoc As Word.Document
Dim docmd As docmd
Set wdApp = CreateObject("Word.Application")
Set wdDoc = CreateObject("Word.Document")
wdDoc.SaveAs ("test7899.doc")
With wdDoc.Content
.InsertAfter "Gökhan"
docmd.OutputTo acOutputTable, "Satislar", "RichTextFormat(*.rtf)", "", False, "", 0
End With
wdApp.Activate

object variable or with blok variable not set diyor

 

[modalı]

Sayın deeem,

.InsertAfter "Gökhan"

ı anlayamadım ne yapmaya çalışıyorsunuz? Büyük ihtimalile hata burada.


İyi çalışmalar