+- 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 Aktarmada Sorun (/konu-worde-aktarmada-sorun.html)
Worde Aktarmada Sorun - hs1987 - 06/02/2018
iyi günler Arkadaşlar;
kodu yazdım ancak birinci turu attıktan sonra sorun veriyor. Benim böyle 300-400 sayfa civarında veri oluşturmam gerekiyor. Nasıl çözüm bulabilirim?
Cvp: Worde Aktarmada Sorun - ozanakkaya - 06/02/2018
Merhaba,
Word açtırma ve aktarma sonrası açık word belgesini kapatma işlemini döngü içerisine eklemeyi deneyiniz
Public Sub ExportNamesToWord()
Dim wApp As Word.Application
Dim wDoc As Word.Document
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("deneme")
If Not rs.EOF Then rs.MoveFirst
Do Until rs.EOF
Set wApp = New Word.Application
Set wDoc = wApp.Documents.Open(CurrentProject.Path & "\Tutanak.docx")
wDoc.Bookmarks("CikisTarih").Range.Text = Nz(rs!CikisTarih, "")
wDoc.Bookmarks("TesisAdi").Range.Text = Nz(rs!TesisAdi, "")
wDoc.Bookmarks("Plaka").Range.Text = Nz(rs!Plaka, "")
wDoc.Bookmarks("Tonaj").Range.Text = Nz(rs!Tonaj, "")
wDoc.SaveAs2 CurrentProject.Path & "\" & rs!ID & "_Tutanak.docx"
wDoc.Bookmarks("CikisTarih").Range.Delete wdCharacter, Len(Nz(rs!CikisTarih, ""))
wDoc.Bookmarks("TesisAdi").Range.Delete wdCharacter, Len(Nz(rs!TesisAdi, ""))
wDoc.Bookmarks("Plaka").Range.Delete wdCharacter, Len(Nz(rs!Plaka, ""))
wDoc.Bookmarks("Tonaj").Range.Delete wdCharacter, Len(Nz(rs!Tonaj, ""))
wDoc.Close False
wApp.Quit
Set wDoc = Nothing
Set wApp = Nothing
rs.MoveNext
Loop
Set rs = Nothing
End SubCvp: Worde Aktarmada Sorun - hs1987 - 07/02/2018
Çok teşekkür ederim. Bunların hepsini aynı anda yazdırma gibi bir makro ekleme şansım var mı?
Cvp: Worde Aktarmada Sorun - ozanakkaya - 07/02/2018
Tablodaki kayıtları sırayla worde aktarıyor. Hepsini aynı anda aktaramazsın. Kayıtlar döngüye girmek zorunda.