Formdaki Bilgilerin Word'de ilgili yerlere yazılması

[İsmail Küçükşengün]

Sayın modalı;

İbra.dot dosyası Sadece D sürücüsünde değil, D sürücüsündeki Hukuk Klasörünün içinde Belgeler Klasöründe.

Access dosyası ise D>Hukuk klasörü içinde.

Bu şekilde bende Word yazısız olarak çıkıyor.

 

[İsmail Küçükşengün]

Sayın modalı;

strTemplateLocation = CurrentProject.Path & "\ Hukuk \ Belgeler \ İbra.dot"

kodunu \ işaretleri arasında boşluk bırakmadan yazılınca OLDU.

Sayın beab2005'e ve size çok teşekkür ediyorum.

Selam ve saygılarımla.​

 

[İsmail Küçükşengün]

Sayın access üstatlarım

Private Sub Etiket47_Click()
' Eksik alan ve kaydedilmemiş kayıt kontrolü.
If IsNull(Alacaklı_Adsoyad) Then
MsgBox "Adı Soyadı Boş Olamaz!"
Me.Alacaklı_Adsoyad.SetFocus
Exit Sub
End If
If IsNull(Borclu) Then
MsgBox "Borçlu Adı Soyadı Boş Olamaz!"
Me.Borclu.SetFocus
Exit Sub
End If
If IsNull(İcraDairesi) Then
MsgBox "İcra Dairesi boş olamaz!"
Me.İcraDairesi.SetFocus
Exit Sub
End If
If IsNull(İcradosyano) Then
MsgBox "İcra Dosya No boş olamaz!"
Me.İcradosyano.SetFocus
Exit Sub
End If
If IsNull(Avukat) Then
MsgBox "Avukat Adı Soyadı boş olamaz!"
Me.Avukat.SetFocus
Exit Sub
End If
If IsNull(tarih) Then
MsgBox "Tarih boş olamaz!"
Me.tarih.SetFocus
Exit Sub
End If
If IsNull(Mahkeme) Then
If MsgBox("MAHKEME ADI YAZILMAMIŞ. " & Chr(13) & _
"Lütfen Mahkeme adını: İSTANBUL İCRA MAHKEMESİ veya ŞİŞLİ İCRA MAHKEMESİ şeklinde GİRİNİZ..!", vbInformation + vbOKCancel) = vbOK Then
Else
Exit Sub
End If
Me.Mahkeme.SetFocus
Exit Sub

End If





If MsgBox("HATIRLATMA. " & Chr(13) & _
"Çıktı aldıktan Sonra , Hazır antetli kağıdınıza Yazdırınız......!", vbInformation + vbOKCancel) = vbOK Then
Else
Exit Sub
End If
' Word Şablonundan yeni belge oluşturma.
Dim WordApp As Word.Application
Dim strTemplateLocation As String

' Şablonun bulunduğu yer

strTemplateLocation = "D:\Hukuk\Belgeler\Tahliye2.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&#305;r&#305; uygun olan kay&#305;t ile de&#287;i&#351;tirmek.
With WordApp.Selection
.Goto what:=wdGoToBookmark, Name:="Mahkeme"
.TypeText [Mahkeme]

.Goto what:=wdGoToBookmark, Name:="Alacakl&#305;AdSoyad"
.TypeText [Alacakl&#305;_Adsoyad]

.Goto what:=wdGoToBookmark, Name:="TCKimlikno"
.TypeText [TCKimlikno]


.Goto what:=wdGoToBookmark, Name:="Vekiller"
.TypeText [Avukat]


.Goto what:=wdGoToBookmark, Name:="Bor&#231;luAdSoyad"
.TypeText [Borclu]

.Goto what:=wdGoToBookmark, Name:="Adresi"
.TypeText [Adresi]

.Goto what:=wdGoToBookmark, Name:="&#304;l&#231;e"
.TypeText [&#304;l&#231;e]

.Goto what:=wdGoToBookmark, Name:="&#304;l"
.TypeText [&#304;L]

.Goto what:=wdGoToBookmark, Name:="&#304;craDairesi"
.TypeText [&#304;craDairesi]

.Goto what:=wdGoToBookmark, Name:="&#304;craDosyaNo"
.TypeText [&#304;cradosyano]


.Goto what:=wdGoToBookmark, Name:="Tarih"
.TypeText [tarih]

.Goto what:=wdGoToBookmark, Name:="Vekiller2"
.TypeText [Avukat]

.Goto what:=wdGoToBookmark, Name:="Vergidairesi"
.TypeText [Vergidairesi]

.Goto what:=wdGoToBookmark, Name:="Vergino"
.TypeText [Vergino]




End With

DoEvents
WordApp.Activate

Set WordApp = Nothing
Exit Sub
ErrHandler:
Set WordApp = Nothing
End Sub

Koduyla formdaki bilgileri Word'e yazd&#305;r&#305;yorum.

Bu kod sat&#305;rlar&#305;ndan mesela:

.Goto what:=wdGoToBookmark, Name:="Vergidairesi"
.TypeText [Vergidairesi]

.Goto what:=wdGoToBookmark, Name:="Vergino"
.TypeText [Vergino]

sat&#305;rlar&#305;yla ilgili, Vergidairesi ve Vergino isimli metin kutular&#305;nda veri yoksa, di&#287;erlerini yazd&#305;rm&#305;yor.

Bu kod, t&#252;m metin kutular&#305;nda veri varsa g&#252;zel &#231;al&#305;&#351;&#305;yor.

Fakat dedi&#287;im gibi, birka&#231; birka&#231; metin kutusunda veri yoksa, di&#287;erlerini de yazd&#305;rmad&#305;&#287;&#305; i&#231;in BU KODDA:

Veri yoksa di&#287;erlerini yazd&#305;r &#351;eklinde bir d&#252;zeltme yapabilir miyiz?

Selamlar&#305;mla.

 

[İsmail Küçükşengün]

Sorun &#199;&#246;z&#252;lm&#252;&#351;t&#252;r.

Te&#351;ekk&#252;rler.

 

[Aydıno]

Sayın İsmail Küçüksengün, lütfen paylaşım prensibine bağlı kalalım.

 

[candar_canturk]

sorunun nas&#305;l &#231;&#246;z&#252;ld&#252;&#287;&#252;n&#252; s&#246;ylememesi mi gerekiyor??

 

[Aydıno]

Sayın İsmail, sorunu çözdüğünü yazmış, ancak nasıl çözdüğünü paylaşmak istememiş herhalde, ne diyelim kendi işi görüldüyse yolu açık olsun.

 

[İsmail Küçükşengün]

Arkada&#351;lar;

Beni tan&#305;yan bilir. Ben payla&#351;&#305;m&#305; seven bir ki&#351;iyim.
Sorun ba&#351;ka bir forumda &#231;&#246;z&#252;ld&#252;&#287;&#252; i&#231;in suskun kalm&#305;&#351;t&#305;m.

Sorununun &#231;&#246;z&#252;ld&#252;&#287;&#252; link:
http://www.accessforumlari.com/showthread.php?tid=280

Selamlar&#305;mla.

 

[u4selec]

sayın modalı;
konu ile ilgili elinizde örnek mevcut ise forma ekleyebilirmisiniz. veya form kullanıcısı diger üyelerimizin elinde varsa ekleyebilirlermi? ilgilenen herkeze şimdiden teşekkürler.

 

[modalı]

sayın modalı;
konu ile ilgili elinizde örnek mevcut ise forma ekleyebilirmisiniz. veya form kullanıcısı diger üyelerimizin elinde varsa ekleyebilirlermi? ilgilenen herkeze şimdiden teşekkürler.

Sayın u4selec,

Çözüm olarak yaptığım uygulamaların hepsini keydetmiyorum. Bu başlığa eklediğim uygulamayı bulamadım. Ancak sormak istediğinizi tekrar sorabilirsiniz. Kendi uygulamanızı da ekleyin üstünde değişiklikleri yapayım..

İyi çalışmalar

 

[u4selec]

sayın modalı;
sizin için bir örnek hazırladım ekledim. word belgesi içinde açıklamalarda mevcut.çok zor bir iş olacağını tahmin ediyorum. ancak şimdiden yardımlarınız için teşekkür ederim.

 

[karaayhan]

teşekkürler sayın modalı kim neyi anlamamış ben de onu anlamadım
gayet güzel örnek olmuş ben sadece word şablonundaki alanların bir değeri karşılığı
olmalı ama ne diyordum bu başlık altında buldum cevabımı denedim harika çalışıyor
ellerinize beyninize sağlık sayın üstad..

kolay gelsin......