Worde aktarda yapmam gereken son iş

1 2 3 4
14/04/2014, 21:25

MESUTTR

Merhaba ozan bey,
size dün son talebi attıktan sonra kimi hatalarımın farkına varıp düzelttim bahsini yaptığınız referance 'ı ekledim sanırım worde aktar konusunda bazı kodlarda bir takım hatalar yapmışım onları da düzelttim ondan önce girilen bazı kodlarda yazım hataları vardı onları da düzelttim
şimdi çalıştırdığımda word şablonunu çağırıyor ancak, benim kendim hazırladığım veri tabanı üzerinden düşünürsek, dosya_no ya kadar geliyor ancak dosya_no da kalıyor aktarma duruyor.Kodları kontrol(bana verilenler ile) ettim pek bir fark göremedim. Şu kod kısmında pek fazla alt yapım olmadığını da göze alarak siz de bir göz atabilir misiniz? Neyi atlıyorum. Şu döngü ve sorgu kısmını yapamadım galiba. Orası çalışmıyor sanırım.
15/04/2014, 23:41

ozanakkaya

Private Sub Olustur1_Click()
On Error Resume Next
Dim WordApp As Word.Application
Dim yol As String
Dim VDosyaNo, VPoliceTarihi, VPoliceNo, VPoliceTutari, VPoliceTuru As Variant
VDosyaNo = ""
VPoliceTarihi = ""
VPoliceNo = ""
VPoliceTutari = ""
VPoliceTuru = ""
Dim Sql As String
Dim db As Database
Dim re As DAO.Recordset
Set db = CurrentDb()
SQL = " SELECT * FROM policebilgileri "
Set rs = db.OpenRecordset(SQL)
If rs.EOF = True Then Exit Sub
rs.MoveFirst
Do Until rs.EOF
If rs!adısoyadı = Me.adısoyadı Then
VDosyaNo = VDosyaNo & rs![Dosya_no] & ","
VPoliceTarihi = VPoliceTarihi & rs![Police_Tarihi] & ","
VPoliceNo = VPoliceNo & rs!Policeno & ","
VPoliceTutari = VPoliceTutari & rs!Policetutarı & ","
VPoliceTuru = VPoliceTuru & rs!Policetürü & ","
End If
rs.MoveNext
Loop
VDosyaNo = Left(VDosyaNo, Len(VDosyaNo) - 2)
VPoliceTarihi = Left(VPoliceTarihi, Len(VPoliceTarihi) - 2)
VPoliceNo = Left(VPoliceNo, Len(VPoliceNo) - 2)
VPoliceTutari = Left(VPoliceTutari, Len(VPoliceTutari) - 2)
VPoliceTuru = Left(VPoliceTuru, Len(VPoliceTuru) - 2)
For I = Len(VDosyaNo) To 1 Step -1
If Mid(VDosyaNo, I, 1) = "-" Then
VDosyaNo = Left(VDosyaNo, I - 1) & "-" & Mid(VDosyaNo, I + 1, Len(VDosyaNo) - I)
GoTo 100
End If
Next I
100
For I = Len(VPoliceTarihi) To 1 Step -1
If Mid(VPoliceTarihi, I, 1) = "," Then
VPoliceTarihi = Left(VPoliceTarihi, I - 1) & "ve" & Mid(VPoliceTarihi, I + 1, Len(VPoliceTarihi) - I)
GoTo 101
End If
Next I
101
For I = Len(VPoliceNo) To 1 Step -1
If Mid(VPoliceNo, I, 1) = "," Then
VPoliceNo = Left(VPoliceNo, I - 1) & "ve" & Mid(VPoliceNo, I + 1, Len(VPoliceNo) - I)
GoTo 102
End If
Next I
102
For I = Len(VPoliceTutari) To 1 Step -1
If Mid(VPoliceTutari, I, 1) = "," Then
VPoliceTutari = Left(VPoliceTutari, I - 1) & "ve" & Mid(VPoliceTutari, I + 1, Len(VPoliceTutari) - I)
GoTo 103
End If
Next I
103
For I = Len(VPoliceTuru) To 1 Step -1
If Mid(VPoliceTuru, I, 1) = "," Then
VPoliceTuru = Left(VPoliceTuru, I - 1) & "ve" & Mid(VPoliceTuru, I + 1, Len(VPoliceTuru) - I)
GoTo 104
End If
Next I
104
yol = CurrentProject.Path & "\1" & ".docx"
Application.FollowHyperlink yol, , True, True
On Error Resume Next

Set WordApp = GetObject(, "Word.Application")

'On Error GoTo ErrHandler

WordApp.Documents.Open (yol)
WordApp.Visible = True
WordApp.WindowState = wdWindowStateMaximize
With WordApp.Selection
.Goto what:=wdGoToBookmark, Name:="a"
.TypeText Me.dyno
.Goto what:=wdGoToBookmark, Name:="b"
.TypeText Me.tarih
.Goto what:=wdGoToBookmark, Name:="c"
.TypeText Me.[Dosya_no]
.Goto what:=wdGoToBookmark, Name:="d"
.TypeText Me.sbadı
.Goto what:=wdGoToBookmark, Name:="e"
.TypeText Me.sbadı
.Goto what:=wdGoToBookmark, Name:="f"
.TypeText Me.sehir
.Goto what:=wdGoToBookmark, Name:="g"
.TypeText Me.[Police_Tarihi]
.Goto what:=wdGoToBookmark, Name:="h"
.TypeText Me.[Police_Tarihi]
.Goto what:=wdGoToBookmark, Name:="i"
.TypeText Me.[Policeno]
.Goto what:=wdGoToBookmark, Name:="j"
.TypeText Me.adısoyadı
.Goto what:=wdGoToBookmark, Name:="k"
.TypeText Me.adısoyadı
.Goto what:=wdGoToBookmark, Name:="l"
.TypeText Me.adısoyadı
.Goto what:=wdGoToBookmark, Name:="m"
.TypeText Me.adısoyadı
.Goto what:=wdGoToBookmark, Name:="n"
.TypeText Me.[Policetutarı]
.Goto what:=wdGoToBookmark, Name:="o"
.TypeText Me.[Policetürü]
.Goto what:=wdGoToBookmark, Name:="p"
.TypeText Me.vefattarihi
.Goto what:=wdGoToBookmark, Name:="r"
.TypeText Me.vefatsebebi
.Goto what:=wdGoToBookmark, Name:="s"
.TypeText Me.evraktarihi
.Goto what:=wdGoToBookmark, Name:="t"
.TypeText Me.ilkteşhis
.Goto what:=wdGoToBookmark, Name:="v"
.TypeText Me.kanserturu
.Goto what:=wdGoToBookmark, Name:="x"
.TypeText Me.kurum
.Goto what:=wdGoToBookmark, Name:="w"
.TypeText Me.evrakturu
.Goto what:=wdGoToBookmark, Name:="ay"
.TypeText Me.evrakturu1
.Goto what:=wdGoToBookmark, Name:="by"
.TypeText Me.evrakturu1
.Goto what:=wdGoToBookmark, Name:="cy"
.TypeText Me.evrakturu1
.Goto what:=wdGoToBookmark, Name:="dy"
.TypeText Me.evrakturu1
End With
DoEvents
WordApp.Activate
Set WordApp = Nothing
Exit Sub
'ErrHandler:
'Set WordApp = Nothing
End Sub

Kodu üstteki ile değiştir, bu kod sadece , ile ve olayını düzenler. Word'e aktaracağın alanlar
.TypeText Me.kurum kodu gibi kodlara göre ayarlamalısın.

Kod bilgin olmadığı için hata alırsın, zira tüm kodları Me.kurum şeklinde yazmışsın. "," "ve" şeklinde yapılan alanları POWER hoca kodun en üstünde yazıldığı gibi (ben karışıklık olmaması için "Dim VDosyaNo, VPoliceTarihi, VPoliceNo, VPoliceTutari, VPoliceTuru As Variant" şeklinde değiştirdim) şeklindeki değişkenlerin başında Me. yazılmaz.

Yardımcı olmak için yazdım ama sanırım biraz kafa karıştırıcı oldu.
02/05/2015, 11:24

zafer2015

MERHABALAR,
Word e aktara işlşmini yıyorum ablonlu olara ma otonatik int sayılı erakn dediğim kayıt formda gözükmediğinden worde aktarmıyor kyıt Sql de tutulan bır tabloya ayıt edılıyor kayıttasorunyok amaword şablona gözükmüyor yardımcı olursnız sevinirim şimdiden teşekkürler
1 2 3 4