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