AccessTr.neT

Tam Versiyon: Sunum İçin Powerpointe
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Sn haliliyas sizin uygulamanızı kendi dosyama uyarlamaya çalıştığımda , 
1-sizin uygulamanızdaki frmAra üzerindeki butonu kopyala yapıp yapıştırdığımda ,bir konuyu seçip powerpointe gönderince çalışıyor. farklı diğer bir konu seçtiğimde yine bir önceki sunum gözüküyor.nedenini anlayamadım  . 
2-Eğer sizin dosyadakinin aynısını, kendi dosyama çekmek isterken, dış veri tabanından al dediğimde ve FrmAra1 olarak kaydediyor.Onda bir sorun gözükmüyor nedenini anlamış değilim.
çünkü sadece power pointe yollama butonu işinizi görmez
textara değiştiğinde olayına da eklediğim kodlar var "TxtAra_Change()"

SQLPwPnt = "SELECT vaaz.kategori, vaaz.baslik, vaaz.metin, vaaz.kaynak FROM vaaz " & _
        " WHERE (((" & Xvarsay & ")" & _
        " Like '*" & XKriter & "*' ));"
CurrentDb.QueryDefs("SQLPowerPoint").SQL = SQLPwPnt
kodlarını da "TxtAra_Change()" eklemelisiniz
ayrıca bir tane de sorgu eklemiştim
Sayenizde Biraz biraz birşeyler öğrenmeye çalışıyoruz Sn haliliyas.  Sizin dediğinizi uyguladım çalıştı.
Şimdi bu arada sunuma baktım. seçilen konuyla ilgili tüm veriyi (doğal olarak olması gereken odur) gösteriyor.
Şimdi 2 sorunumu adım adım (öğrenmek adına) sizinle beraber çözmek istiyorum.
sadece sec alanından seçili olanları ve sirano alanındaki numaraya göre kodu düzenleyelim .Taki sunumda sadece seçili alan ve küçükten büyüğe sıralama ile sunum gösterilsin.
Bu kodu yazmak için tekrar kodlar silinecek mi,yoksa yina aralara kod mu yerleştirilecek.
Saygılarımla
SQLPwPnt = "SELECT vaaz.kategori, vaaz.baslik, vaaz.metin, vaaz.kaynak FROM vaaz " & _
        " WHERE (((" & Xvarsay & ")" & _
        " Like '*" & XKriter & "*' ));"
"TxtAra_Change()" de yer alan yukardaki kodu aşağıdaki ile değiştirirseniz sadece seçili olanlar, "sıranoya" göre  göstermesi gerek

SQLPwPnt = "SELECT vaaz.kategori, vaaz.baslik, vaaz.metin, vaaz.kaynak FROM vaaz " & _
        " WHERE (((sec)=True) AND ((" & Xvarsay & ")" & _
        " Like '*" & XKriter & "*' )) ORDER BY sirano;"
order by : sıralama ölçütü
((sec)=True) : seçili olanları 
yalnız gönderdiğiniz dosyadaki tablo yada formda "seç" alanını göremedim?
(24/03/2019, 16:49)haliliyas yazdı: [ -> ]yalnız gönderdiğiniz dosyadaki tablo yada formda "seç" alanını göremedim?
Açıklamanız çok faydalı oldu. Yanlış dosya göndermişim. Teşekkür ederim.
Sayfalar: 1 2