Henüz acemiyim ve gelişmeye çalışıyorum. Ben bir yarışma projesi yapıyorum kendimce. Biraz ilerledim. Neler yapılacağını çıkardım ama istediklerimi nasıl yapacağımı bulamadım. Sizlerden yarım almayı düşündüm. Yapmak istediklerimin hepsini not belgesine yazdım. Ana formdaki her şeyin işlevini ayrıntılı bir şekilde yazdım.

Adım adım da olsa yavaş yavaş da olsa çok hızlı da olsa yardım eder misiniz? Projem aşağıdaki ekte. Rar.da Access belgesi ve not belgesi var. Yapmaya çalıştıklarım not belgesinde yazıyor. Yardımınız olmadan yapamam. En azından bir bakın

Site Kuralları:
6/d-) Birden fazla soruyu aynı konuda sormak yasaktır. Her soru için farklı başlıklı yeni konu açınız.
[Sürekli ihlal halinde Uyarı Puanı: +2]
10-) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Sorunuz ile ilgili form, rapor, sorgu vs. nesne isimlerini mutlaka belirtiniz. Sorunuzu mutlaka konuya yazınız, sorunuzu Access form üzerine yazmayınız, konuya soru veya resim içeren slayt veya döküman eklemeyiniz.
[Uyarı Puanı: +2]

Her soru için yeni konu açmanız gerekiyor. Bu şekilde sorunuz ile kimse ilgilenmez.

Site Kuralları
Madde 10-) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Sorunuz ile ilgili form, rapor, sorgu vs. nesne isimlerini mutlaka belirtiniz. Sorunuzu mutlaka konuya yazınız, sorunuzu Access form üzerine yazmayınız, konuya soru veya resim içeren slayt veya döküman eklemeyiniz.
[Uyarı Puanı: +2]

---

Sn.sledgeab
Kusura bakmayın ben yazana kadar siz yazmışsınız bile

Bıkıncaya kadar birşeyler yapmaya çalıştım, ekleme yapılabilir.

Kuralları ihlal ettiğim için özür dilerim. Bir daha yapmam. Çok güzel olmuş bu hali ile bile kullanılır. Ben o kadar kodu yazamazdım kesinlikle. Sağolasın admin.

---

Yarışmacı yanlış yaptığında yeniden başlaması için bir tuş yapmayı düşünüyorum. İlk kayda git deyince toplam kazanç v.s değişmiyor. Bunu nasıl yapabilirim. Yani bütün bilgileri nasıl sıfırlayabilirim bu buton ile.

ilk kayda git şeklinde buton kullanacaksanız butonun tıklandığında olayına

DoCmd.GoToRecord , , acFirst

TOPLAMKAZANÇ = "0 TL."

yazmanız yeterli, ayrıca bu butona, önceki yarışmacının verdiği cevapları silmek için

DoCmd.SetWarnings False

DoCmd.RunSQL ("UPDATE Sorular SET Sorular.CEVAP = Null;")

DoCmd.SetWarnings True

kodu da eklemelisiniz

Doğru cevap- kaybettiniz etiketi için kodu aşağıdaki ile değiştir.

Sub yansondogru()

On Error Resume Next

Me.Kutu63.Visible = True

Dim i As Integer

Dim PauseTime, Start

PauseTime = 1.6

Start = Timer

Do While Timer < Start + PauseTime

DoEvents

Loop

For i = 1 To 16

PauseTime = 0.2

Start = Timer

Do While Timer < Start + PauseTime

DoEvents

Loop

If i \ 2 = i / 2 Then

Kutu63.Visible = False

Else

Kutu63.Visible = True

Kutu63.BorderColor = vbGreen

Me.Etiket64.Visible = True

Me.Etiket64.Caption = "DOĞRU CEVAP"

Me.Etiket64.ForeColor = vbGreen

End If

If i = 6 Then

Kutu63.BorderColor = vbBlack

Me.TimerInterval = 400

End If

Next



Me.Kutu63.Visible = False

End Sub