AccessTr.neT
worde aktarma - 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ığı: worde aktarma (/konu-worde-aktarma.html)

Sayfalar: 1 2


worde aktarma - Kavas_27 - 04/06/2011

arkadaşlar geçerli bir formu formu worde aktarmak istiyorum ancak acces konusunda yeni olduğum için bir türlü yapamadım bu konuda bana yardımcı olursanız sevinirim


Cvp: worde aktarma - DUAYEN - 04/06/2011

Dim WordApp As Word.Application
Dim AYol As String
AYol = CurrentProject.Path & "\Ustyazı36" & ".doc"

Application.FollowHyperlink AYol, , True, True
On Error Resume Next
Set WordApp = GetObject(, "Word.Application")
On Error GoTo ErrHandler
WordApp.Documents.Open (AYol)
WordApp.Visible = True
WordApp.WindowState = wdWindowStateMaximize
With WordApp.Selection
.Goto what:=wdGoToBookmark, Name:="Ad"
.TypeText BABAADI & " "
.Goto what:=wdGoToBookmark, Name:="dtarih"
.TypeText DOGUMTARIHI & " "
.Goto what:=wdGoToBookmark, Name:="ad2"
.TypeText ADISOYADI & " "
.Goto what:=wdGoToBookmark, Name:="sira"
.TypeText SIRANO
End With
DoEvents
WordApp.Activate
'WordApp.Documents.Save 'Kaydetmek isterseniz tırnağı boşaltınız..

WordApp.Print
Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing
Bu kodu denermisiniz....


Cvp: worde aktarma - DUAYEN - 05/06/2011

Konu ile tekrar dönerseniz seviniriz olumlu yada olumsuz.


Cvp: worde aktarma - Kavas_27 - 07/06/2011

teşekür ederim duayen yapmaya çalışıyorum yaptığımda tekrar geri döneceğim



Cvp: worde aktarma - Kavas_27 - 15/06/2011

2010 ofice programı kullanıyorum bu kodları girdiğimde 'user defined type not defined' hatası veriyor.


Cvp: worde aktarma - Puletin - 19/06/2011

User-defined type not defined hatasını alıyorsanız:
Şunu deneyiniz.

Alt+F11 tuşlarına basarak Visual basic penceresini açın.Tools menusünün altında referanslardan "Microsoft DAO 3.6 Object Library" yi işaretleyin ve OK e basın.