Access'te oluşturduğum tablo içerisinde kullanılmak üzere onay (tik) kutusu oluşturuyorum. bu onay kutusu tıklandığında word dosyasındaki cümle içerisinde sabit bir kelimeyi örneğin otobüsle iken arabayla olarak değiştirmeyi nasıl ayarlayabilirim ?

Örnek dosyanın içerisinde bulunan access dosyası içerisinde Form1 üzerinde otobüs/araba kısmını tik halinde yaptım. tik işaretli değilken word içerisindeki cümlede otobüsle şeklinde yazıyor olurken, tik işaretlendiğinde otobüsle yerine arabayla olarak değiştirilmesini istiyorum. bu mümkün müdür ?

Merhaba örneğinizi eklerseniz cevap olmanız daha kısa olacaktır,örneğinizi ekleyin

(01/01/2019, 16:38)C*e*l*o*y*c*e yazdı: Merhaba örneğinizi eklerseniz cevap olmanız daha kısa olacaktır,örneğinizi ekleyin

örnek dosya ekledim. uyarı için sağolun

Merhaba, accesse yeni başladıysanız öncelikle 1-) Access'in Temelleri - 1) Veritabanını Açmak bağlantısından başlayıp tüm videoları izleyin. Accessin işleyişi hakkında fikir sahibi olun. Daha sonra da Yapılmaması Gereken Ölümcül Hatalar konusunu inceleyin.

Örneğinizin düzenlenmiş hali ektedir. Word belgeniz şablon olarak kaydedildi ve içeriğine yer imi eklendi.

Formda onay kutusunu tıklayıp butona tıklarsanız yeni belge olarak word belgeniz açılacaktır.

(02/01/2019, 12:15)ozanakkaya yazdı: Merhaba, accesse yeni başladıysanız öncelikle 1-) Access'in Temelleri - 1) Veritabanını Açmak bağlantısından başlayıp tüm videoları izleyin. Accessin işleyişi hakkında fikir sahibi olun. Daha sonra da Yapılmaması Gereken Ölümcül Hatalar konusunu inceleyin.

Örneğinizin düzenlenmiş hali ektedir. Word belgeniz şablon olarak kaydedildi ve içeriğine yer imi eklendi.

Formda onay kutusunu tıklayıp butona tıklarsanız yeni belge olarak word belgeniz açılacaktır.

teşekkür ederim lakin, klasör içindeki ornek Access dosyasını açıp formdaki butona basınca " Run-time error '5': Invalid procedure call or argument " şeklinde hata mesajı alıyorum. word açılıyor ama içerik görünmüyor. bu hata mesajında debug a basınca visual basic ekranında  AppActivate "Microsoft Word" satırının sarı renkte vurgulandığını görüyorum. 

Ayrıca evet, bu işte yeniyim ve uyarılarınızı dikkate alacağım. teşekkür ederim.

Kodu aşağıdaki ile değiştirerek dener misin?

Dim GGecerliBelgeYolu, GSablonYolu As String

Dim WordApp, oWdoc As Object



GSablonYolu = CurrentProject.Path & "\ornek.dotx"



GGecerliBelgeYolu = CurrentProject.Path & "\" & Me.Kimlik & ".docx"





If Me.otobüs_araba = 0 Then



    GVeri = "Otobüsle"



Else



    GVeri = "Arabayla"



End If





Set WordApp = CreateObject("Word.Application")



WordApp.Visible = True

WordApp.Activate

WordApp.WindowState = wdWindowStateMaximize

             

Set oWdoc = WordApp.Documents.Add(Template:=GSablonYolu, NewTemplate:=False)



WordApp.ActiveDocument.Bookmarks("sonuc").Select

WordApp.Selection.Text = GVeri



oWdoc.SaveAs2 GGecerliBelgeYolu