Butona tıkladıkça sayaç artsın

Nedved35 · 20-03-2010, 14:14

Merhabalar,

uzun zamandır bu forum sayesinde kendi açımdan çok şeyler öğrendiğimi belirtip sonra ise soruma geçmeden önce yeşekkür etmek isterim,

soruma gelecek olursam,

bir form yarattım formda sorular var ve 2 tane de metin kutusu var

benim yapmak istediğim sırayla bu sorulara verdiğim cevaplara göre eğer doğru ise metin kutularından doğruyu gösteren 1 artsın değilse yanlışı gösteren,

soruların doğru veya yanlış olduğunu kontrol edebiliyorum fakat metin kutularında bir türlü artan değerleri gösteremedim Nah

şimdiden teşekkür ederim

Taruz · 20-03-2010, 14:37

Merhaba..

Bunun için soruyu doğrulama yönteminizi bilmek gerek.. Yine de mantığı gösteren, basit bir prosedur yazayım size..:

Visual Basic
if cevap=doğru then sayac=sayac+1

Nedved35 · 20-03-2010, 14:40

(20-03-2010, 14:37)Taruz demiş ki: Merhaba..

Bunun için soruyu doğrulama yönteminizi bilmek gerek.. Yine de mantığı gösteren, basit bir prosedur yazayım size..:

Kod:
if cevap=doğru then sayac=sayac+1

Visual Basic
If Me.dogrucevap = deger Then
  Me.Metin56 = Me.Metin56 + 1
   MsgBox "Doğru Cevap Verdiniz" & Chr(13) & "       TEBRİKLER ", vbOKOnly, "CEVAP"
  Else
   MsgBox "Yanlış Cevap Verdiniz" & Chr(13) & "       ÜZGÜNÜZ ", vbOKOnly, "CEVAP"
 Me.Metin58 = Me.Metin58 + 1
  End If

yukarıdaki şekilde yapıyorum, uyarıları başarılı şekilde alıyorum ancak metin kutularım artmıyor Nah

Taruz · 20-03-2010, 14:55

Bu şeklde deneyin..:

Visual Basic
If Me.dogrucevap = deger Then
  Me.Metin56 = Nz(Me.Metin56, 0) + 1
   MsgBox "Doğru Cevap Verdiniz" & Chr(13) & "       TEBRİKLER ", vbOKOnly, "CEVAP"
  Else
   MsgBox "Yanlış Cevap Verdiniz" & Chr(13) & "       ÜZGÜNÜZ ", vbOKOnly, "CEVAP"
 Me.Metin58 = Nz(Me.Metin58, 0) + 1
  End If

Nedved35 · **Kayıt Tarihi:** 30.08.2009

(20-03-2010, 14:55)Taruz demiş ki: Bu şeklde deneyin..:

Kod:
If Me.dogrucevap = deger Then Me.Metin56 = Nz(Me.Metin56, 0) + 1 MsgBox "Doğru Cevap Verdiniz" & Chr(13) & " TEBRİKLER ", vbOKOnly, "CEVAP" Else MsgBox "Yanlış Cevap Verdiniz" & Chr(13) & " ÜZGÜNÜZ ", vbOKOnly, "CEVAP" Me.Metin58 = Nz(Me.Metin58, 0) + 1 End If

Çok teşekkür ederim hocam ellerine sağlık çok iyi oldu bu şeklide Smile

Taruz · 20-03-2010, 16:24

Uygulamanızın yapısını bilmeden tahmin etmek zor.. Bu kodlar başka kodlarla içiçe kullanılıyorsa kodlardaki sistematiği düzenlemek gerekebilir..

Şu şekilde de hatayı aşabilirsiniz ama..:

Visual Basic
on error resume next
If sayı < 5 Then
    DoCmd.GoToRecord , , acNext
    Else
     MsgBox "yarışma bitti", vbOKOnly, "bitti"
     DoCmd.Close acForm, "soru"
End If

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Butona Tıklayınca Hücredeki Veri Görünsün	ankaram	2	363	30-11-2023, 15:00 Son Mesaj: ankaram
	Butona Gif Ekleme	cozum@msn.com	1	304	04-10-2022, 12:18 Son Mesaj: dsezgin
	[VBA] Butona Basılı Tutma	hedefkaya	5	749	14-11-2021, 14:33 Son Mesaj: onur_can
	Konu Dışı. Kod Ile Exe çalıştırıp Butona Bastırma?	kesoka	2	614	11-03-2021, 15:09 Son Mesaj: kesoka
	Butona Her Basımda Alandaki Say Değerini Bir Artırma	ruzgar78	8	1.007	27-08-2020, 15:32 Son Mesaj: ruzgar78
	[FONKSiYON] Butona Tıklandığında Klasör Oluşturma(masaüstüne)	Ahmet51	14	1.706	22-02-2020, 04:04 Son Mesaj: feraz
	[VBA] Butona basarak açılan kutudaki verileri sıra ile çağırmak	fatihsipahi	6	1.920	27-09-2018, 12:35 Son Mesaj: onur_can
	[VBA] Butona sol tıklayınca sağ cilik menüsü çalışsın	mengene	3	1.450	20-02-2018, 14:12 Son Mesaj: EminA

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL