Private Sub Form_Timer()
Dim Y As String
Y = "00:00"
If X <= 10 Then
Me.Label10.Visible = True
X = X + 1
If X = 11 Then: Beep
Me.Label10.Caption = Format(Choose(X, "10", "9", "8", "7", "6", "5", "4", "3", "2", "1", "0"), Y)
Else
''DoCmd.Close acForm, "F00-MAİN" Close yerine Quit yazaksınız
DoCmd.Quit acForm, "F00-MAİN"
End If
End Sub
Kod burada uygulamanız çok karışık ve eksikleri var kod yukarıdaki gibi olacak X=10 dan geriye sayar sıfır olduğunda program kapanır
Son Düzenleme: 11/12/2010, 23:06, Düzenleyen: schworse.