Öncelikle bu form kullanıcılarına teşekkür ediyorum. Amatör yaptığımız çalışmalar yavaş yavaş profesyonelleşiyor. Ben de kendi alanımda bir hukuk otomasyonu yapıyorum. Buradan sürekli örneklerle destekliyorum. şimdi yapmak istediğim ise biraz daha profosyonellik istiyor.
Ekte gönderdiğim çalışmadaki forumdaki verilerden bazılarını yine ekteki word belgesine yazdırmak istiyorum. Mesela ben forumda yazdır dediğim zaman o istediğim alanlar o word belgesindeki yerlere geçsin istiyorum. ancak bunu kodsuz başaramadım. Yardımlarınız için şimdiden teşekkür ediyorum..
Sayın av.fatihberber
Örneğinizi 2003 formatına çevirip ekleyebilir misiniz?
Sayın İsmail Küçükşahin;
Günaydın dostum..
2003'e çevrilmiş dosya ektedir.
Hayırlı işler...Selam ve sevgiler..
Verdiğiniz örnekleri inceledim. Benim çalışmama entegre etmeye çalıştım. Ama anlamadığım bir yerde hata yapıyorum. Bir türlü word e yazdıramadım.
Kodu aşağıdaki gibi yazdım olmadı.
Alıntı:Option Compare Database
Private Sub Komut22_Click()
' Word Şablonundan yeni belge oluşturma.
Dim WordApp As Word.Application
Dim strTemplateLocation As String
' Şablonun bulunduğu yer
strTemplateLocation = CurrentProject.Path & "\talepmernis.dot"
On Error Resume Next
Set WordApp = GetObject(, "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
' Her satırı uygun olan kayıt ile değiştirmek.
With WordApp.Selection
.Goto what:=wdGoToBookmark, Name:="icradairesi"
.TypeText [VERİTABANI]![İcra Dairesi]
.Goto what:=wdGoToBookmark, Name:="esasno"
.TypeText [VERİTABANI]![Esas No]
.Goto what:=wdGoToBookmark, Name:="adisoyadi"
.TypeText [VERİTABANI]![Adı Soyadı]
.Goto what:=wdGoToBookmark, Name:="tcno"
.TypeText [VERİTABANI]![Tc veya Vergi no]
End With
DoEvents
WordApp.Activate
Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing
End Sub
Private Sub Komut140_Click()
End Sub
[/vb]
Aşağıdaki mesajda bir çalışmam var inceleyiniz.
worde verme