Skip to main content

AccessTr.neT


Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek.

Oğuz Türkyılmaz
Oğuz Türkyılmaz
54
3106

Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek.

Çözüldü #1
Merhaba
Uygulamada menu sayfasında Testi başlat butonuna tıkladığımda Soru_Cevap ENG_TUR sayfasında bulunan 1 nolu soruyu ekrana alıyorum. Amacım sonraki soru butonuna tıkladığımda Listedeki bir sonraki soru ve cevapları sayfaya çekmek. Bu uygulama için en uygun çözüm nasıl yapılabilir. 

[Resim: do.php?img=11059]

[Resim: do.php?img=11060]
.rar ING_TUR TEST II.rar (Dosya Boyutu: 1,47 MB | İndirme Sayısı: 4)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 23/05/2021, 00:11, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#2
sayfaya kaçıncı soruda olduğunuzu belirten 2 hücre ekleyin
bir Hücrede sadece Soru: yazsın diğerinde de kaçıncı soru da olduğu
testi başlattığınızda kaçıncı soruda olduğu hücreye soru no yazsın, butona her bastığınızda önce sayıyı bir artırın sonrada sayı +1 den ilgili satırı alsın
Cevapla
#3
bu arada neden seçenek kutularını kullanmadınız?
seçenek nereye kaydedilecek?
doğru cevap nasıl kontrol edilecek?
Cevapla
#4
@berduş hocam Onlar sırada henüz sıradaki soruyu getirmeyi ve Kodunuzdaki radiobuton ile seçtiğiniz ENG-TUR yada TUR_ENG rasgele ürettilen kelimeleri tek sayfaya nasıl yönlendireceğimi bulamadım. Kodda bu sayfaların ismi geçse belirleyeceğimde Vba penceresindeki ilgili sayfalardan birini silip şansımı denemeyi düşünüyorum. Ama koddaki yönlendirme yöntemini bulamadım. Img-grin

[Resim: do.php?img=11063]

Bu arada seçenek results sayfasına kaydedilecek yeri hazır kodlara sıra gelmedi.
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 23/05/2021, 14:13, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#5
kodları dikkatli incelemiyorsunuz daha da önemlisi anlamaya da çalışmıyorsunuz bence:
sorular HdfSht'e kaydediliyor
HdfSyf = IIf(Sayfa4.OptionButton1 = True, Sayfa4.OptionButton1.Caption, Sayfa4.OptionButton2.Caption)
Set HdfSht = ThisWorkbook.Sheets(HdfSyf)
yukardaki kodda siz 2 farklı sayfaya istediğiniz için sayfa seçiminiz için option butonu kontrol ediyordu, eğer tek sayfa varsa o kontole gerek yok doğrudan sayfa adının girilmesi yeterli
Set HdfSht = ThisWorkbook.Sheets("SayfaAdı")
çok zor değil aslında ama bence "nasıl olsa yapan var" düşüncesiyle kodları anlamak için pek uğraşmıyorsunuz
Cevapla
#6
Kod:
HdfSyf = IIf(Sayfa4.OptionButton1 = True, Sayfa4.OptionButton1.Caption, Sayfa4.OptionButton2.Caption)
Hdf = IIf(Sayfa4.OptionButton1 = True, True, False)
Set HdfSht = ThisWorkbook.Sheets(HdfSyf)
HdfSht.Cells.Clear

Abracadabrayı burda yapmışsınız bence ama ben çözümleyemediğim için başlığa göre sayfasına yönlendirmek yerine hangi buton seçilirse seçilsin tek bir sayfaya kelimeleri göndermeyi sağlayamıyorum. Amaç tek sayfaya yazsın. Dediğiniz gibi sayfa sayısını azaltmak.
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 23/05/2021, 14:27, Düzenleyen: Oğuz Türkyılmaz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task