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 eklemelisinizDoğ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