Worde aktarda yapmam gereken son iş - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Worde aktarda yapmam gereken son iş (/konu-worde-aktarda-yapmam-gereken-son-is.html) |
Cvp: Worde aktarda yapmam gereken son iş - MESUTTR - 14/04/2014 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. Cvp: Worde aktarda yapmam gereken son iş - ozanakkaya - 15/04/2014 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. Cvp: Worde aktarda yapmam gereken son iş - zafer2015 - 02/05/2015 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 |