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.

Sayın @pokopsi

Ekteki örneği inceler misiniz?

@userx sağolun üstadım. tam olmuş,
hazırladığınız kodu inceleyeceğim. ellerinize sağlık.

hatta bu forumda paylaşılan tüm kodları incelemekte fayda görüyorum.

Selamlar

Kolay Gelsin

@userx hocam, daha önce hem microsoft'un eğitim sayfalarında hem başka platformlarda Me. kontrol eklerini görmüştüm, ancak sizin hazırladığınız kodu inceleyince tam olarak vakıf oldum.

Tekrar teşekkür ederim.