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
worde aktarma
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....
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Son Düzenleme: 04/06/2011, 20:55, Düzenleyen: DUAYEN.
Konu ile tekrar dönerseniz seviniriz olumlu yada olumsuz.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
teşekür ederim duayen yapmaya çalışıyorum yaptığımda tekrar geri döneceğim
2010 ofice programı kullanıyorum bu kodları girdiğimde 'user defined type not defined' hatası veriyor.
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.
Ş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.
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Konuyu Okuyanlar: 1 Ziyaretçi