(30/04/2012, 16:45)Kur@l yazdı: Teşekkürler, güzel örnek.

---

form_timer olayının en üstüne

if isnull(sure)=true then exit sub 

işlem tamam.

Kural hocam
kodu böyle yaptım

Private Sub Form_Timer()
If IsNull(sure) = True Then Exit Sub
On Error Resume Next
Debug.Print sure, Format(Time() - sure, "Nn"), Format(Time() - sure, "Ss")
Me.dakika.Caption = Format(Time() - sure, "Nn")
Me.saniye.Caption = Format(Time() - sure, "Ss")
Me.Etiket12.Caption = Format(Right(Timer, 2), "00")
Me.TimerInterval = 100
End Sub

ama bir değişiklik olmadı yanlış yeremi yazdım acaba