Skip to main content

AccessTr.neT


Forumdaki veriyi Word e yazdırma

av.fatihberber
av.fatihberber
14
4767

Forumdaki veriyi Word e yazdırma

Çözüldü #1
Ö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..


.rar DENEME.rar (Dosya Boyutu: 79,48 KB | İndirme Sayısı: 30)
av.fatihberber, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Son Düzenleme: 14/09/2010, 17:37, Düzenleyen: av.fatihberber.
Cevapla
Çözüldü #2
Aşağıda belirtilen konuları incelermisiniz.

https://accesstr.net/konu-word-aktarma.html
https://accesstr.net/konu-access-den-wor...tarma.html
Cevapla
Çözüldü #3
Sayın av.fatihberber

Örneğinizi 2003 formatına çevirip ekleyebilir misiniz?
Cevapla
Çözüldü #4
Sayın İsmail Küçükşahin;

Günaydın dostum..

2003'e çevrilmiş dosya ektedir.

Hayırlı işler...Selam ve sevgiler..
.rar DENEME_2003.rar (Dosya Boyutu: 89,51 KB | İndirme Sayısı: 27)
Cevapla
Çözüldü #5
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]
av.fatihberber, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla
Çözüldü #6
Aşağıdaki mesajda bir çalışmam var inceleyiniz.
worde verme
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task