(13/01/2025, 14:43)berduş yazdı: keşke nerelere basıp ne yaptığınızda sorun çıktığını da yazsaydınız!
bu haliyle ne yapmamız gerektiğini bulamadım

bilgileri WORD e gönderme olayında 1. göndermede sorun yok 2.göndermede (üst yazı) olayı tutanak ve talep formunu dahi denemedim belki onda da hata verebilir

giriş şifresi eksek yazmışım
şifre (sicil)

123456

With Tahkikat_Talep_Form

     .Class = "Word.Document"

     .Verb = acOLEVerbOpen

     .Visible = False

     .Object.Application.Documents.Item(1).SaveAs Me.Dosya_Kayıt_Yeri & "\" & Şablon_Dosyası, Visible = False

     .Close

End With

.close ksımını devre dışı bırakıp dener misiniz?

---

galiba üstyazıda da vardı

(11/01/2025, 22:12)bibib yazdı: Aldığım hata
Çalışma zamanı hatası '-2147220995 (800401fd)':
1 Otomasyon hatası
Nesne sunucuya bağlanmamış

Debug'ı tıkladığınızda hangi satır ev kod bloğunda hata veriyor? Kodlara bir göz attığımda çok önemli sayılmasa da bir iki hata var. Nerede hata aldığınızı ve tespit ettiklerim ile ilişkisini bir görelim çözüm yoluna bakalım.

With Tahkikat_Talep_Form

     .Class = "Word.Document"

     .Verb = acOLEVerbOpen

     .Visible = False

     .Object.Application.Documents.Item(1).SaveAs Me.Dosya_Kayıt_Yeri & "\" & Şablon_Dosyası, Visible = False

     .Close

End With

kodundaki .Object.Application.Documents.Item(1).SaveAs Me.Dosya_Kayıt_Yeri & "\" & Şablon_Dosyası, Visible = False satırında hata veriyor hocam

kodu sadece

 Tahkikat_Talep_Form.Object.Application.Documents.Item(1).SaveAs Me.Dosya_Kayıt_Yeri & "\" & Şablon_Dosyası, Visible = False

kullansanız ne olur?
diğer satırların pek işlevi yok gibi
mesela diğer satırları pasif yapıp

Debug.Print .Class, .Visible

yazdığımda zaten kendisi varsayılan olarak
.Class=Word.Document
.Visible=False
değerlerini döndürüyor

(13/01/2025, 22:42)berduş yazdı: kodu sadece

 Tahkikat_Talep_Form.Object.Application.Documents.Item(1).SaveAs Me.Dosya_Kayıt_Yeri & "\" & Şablon_Dosyası, Visible = False

kullansanız ne olur?
diğer satırların pek işlevi yok gibi
mesela diğer satırları pasif yapıp

Debug.Print .Class, .Visible

yazdığımda zaten kendisi varsayılan olarak
.Class=Word.Document
.Visible=False
değerlerini döndürüyor

yapamadım olmadı hata veriyor. Bir Örnek yaparsanız çak sevenirim.


programın işleyiş mantığı şu;
konusuna göre seçilen kaydın bilgilerini worde şablona göndermek. hepsini word işareti altında kontrol ettiriyorum ve hepsi için ayrı ayrı yazılmış şablonları açtırıp oraya gönderiyor. ilk gönderdiğini şablona ekleyip dosya numarasına göre açılan klasörün içinde yine dosya numarası ve konusunun ismini vererek kaydediyor.

şablonu hafızaya açtırıp açılan şablona bilgileri gönderdikten sonra farklı kaydetmek istiyorum. Bu örnekteki 2016-2019 oficede normal sıkıntısız çalışırken neden 360 ofice de hata veriyor çözemedim.