08/03/2022, 17:44
pokopsi
Merhabalar,
İlkokul öğrencilerinin etüdlerinde kullanmak üzere bir bilgi oyunu hazırlamaya çalışıyorum.
Bir tablo oluşturup soru ve cevap sütunlarına verileri girdim.
Bu tablodan bir random komutu ile her defasında bir soru görüntülemesi yapan sorgu oluşturdum.
Bu sorgu sonucunu bir formda görüntüledim.
"SoruNo", "Soru" ve "Cevap" sütunları olarak üç textbox'da görünen bu form içinde özelliklerden "SoruNo" ve "Cevap" görüntülemesini kullanıcı erişimine kapattım.
Bu form içinde ilişkisiz bir textbox oluşturdum.
Amacım bu ilişkisiz textbox'a (Txt_GorunurCevap) elle girilen cevabın, gizli olarak formda arka planda görünen cevap kutusundaki (Txt_GizliCevap) aktif değer ile karşılaştırmasını yapacak bir kod üretmek.
Eğer karşılaştırmada her iki kutucuktaki veriler birbiri ile örtüşüyorsa "doğru", örtüşmüyor ise "yanlış" yazan birer msgbox ile sonuçlanacak.
Yeni Soru butonuna tıklanınca yeni random soru ekrana gelecek ve Txt_GorunurCevap kutucuğu temizlenerek yeni cevap girişini bekleyecek.
Epeyce konu okudum, ilişkisiz textbox'a alttaki kodu girerek Vba ileçözüm üretmeye çalıştım. Ancak olmadı.
Dim kelime As String
Dim cevap As String
kelime = Dlookup ("[Txt_GizliCevap]", "FRM_QUIZ")
cevap = Dlookup ("[Txt_GorunurCevap]", "FRM_QUIZ")
If kelime = cevap Then MsgBox "Dogru"
Konunun uzmanı değilim, çok yeni başladım ama çok da keyif aldım, sonuca çok yaklaşmışken takılmış gibi hissediyorum.
Kısa zamanda yapabilirsem etüdlerde kullanabilirim diye düşünüyorum. Yardımınızı rica ediyorum.
Ekran görüntülerini ve veritabanı dosyasını ekte paylaşıyorum.
Teşekkürler şimdiden.
İlkokul öğrencilerinin etüdlerinde kullanmak üzere bir bilgi oyunu hazırlamaya çalışıyorum.
Bir tablo oluşturup soru ve cevap sütunlarına verileri girdim.
Bu tablodan bir random komutu ile her defasında bir soru görüntülemesi yapan sorgu oluşturdum.
Bu sorgu sonucunu bir formda görüntüledim.
"SoruNo", "Soru" ve "Cevap" sütunları olarak üç textbox'da görünen bu form içinde özelliklerden "SoruNo" ve "Cevap" görüntülemesini kullanıcı erişimine kapattım.
Bu form içinde ilişkisiz bir textbox oluşturdum.
Amacım bu ilişkisiz textbox'a (Txt_GorunurCevap) elle girilen cevabın, gizli olarak formda arka planda görünen cevap kutusundaki (Txt_GizliCevap) aktif değer ile karşılaştırmasını yapacak bir kod üretmek.
Eğer karşılaştırmada her iki kutucuktaki veriler birbiri ile örtüşüyorsa "doğru", örtüşmüyor ise "yanlış" yazan birer msgbox ile sonuçlanacak.
Yeni Soru butonuna tıklanınca yeni random soru ekrana gelecek ve Txt_GorunurCevap kutucuğu temizlenerek yeni cevap girişini bekleyecek.
Epeyce konu okudum, ilişkisiz textbox'a alttaki kodu girerek Vba ileçözüm üretmeye çalıştım. Ancak olmadı.
Dim kelime As String
Dim cevap As String
kelime = Dlookup ("[Txt_GizliCevap]", "FRM_QUIZ")
cevap = Dlookup ("[Txt_GorunurCevap]", "FRM_QUIZ")
If kelime = cevap Then MsgBox "Dogru"
Konunun uzmanı değilim, çok yeni başladım ama çok da keyif aldım, sonuca çok yaklaşmışken takılmış gibi hissediyorum.
Kısa zamanda yapabilirsem etüdlerde kullanabilirim diye düşünüyorum. Yardımınızı rica ediyorum.
Ekran görüntülerini ve veritabanı dosyasını ekte paylaşıyorum.
Teşekkürler şimdiden.