AccessTr.neT

Tam Versiyon: Kayıt Saydırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
merhabalar arkadaslar... bir adet ingilizce kelıme calısma uygulaması uzerıne calısıyorum bir metin kutusunda dogru cevap verildikce otomatık bir bir sayıların artmasını ıstıyorum yardımcı olabılecek varmıdır?


https://dosya.co/hb3a0thrat3d/YDS_Sözlük.accdb.html
cevapla butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.

Kod:
If answer_adj = DLookup("word", "adjectives", "Kimlik=" & adj_id) Then
result_adj.Value = "C O R R E C T"
result_adj.ForeColor = vbGreen
true_ans = Nz(true_ans, 0) + 1
Else: result_adj.Value = "F A L S E"
result_adj.ForeColor = vbRed
false_ans = Nz(false_ans, 0) + 1
End If
hocam çok teşekkür ederim biraz geç cevap verebildim kusura bakmayın...
Hocam bir sorum daha olacaktı... Doğru bilinen kaydın bir daha sorulmamasını nasıl sağlayabilirm acaba? İnternette taradım biraz fakat işime yarayacak bir yöntem bulamadım yardımcı olabilirseniz sevinirim...
@ozanakkaya