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