kendimce çözümü böyle yaptım
c formundaki kodu böyle değiştirdim
--------------------------
Private Sub Form_Timer()
If X <> -1 Then
Dim Y As String
Y = "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.OpenForm "Celoyce"
X = -1
End If
End If
End Sub
@benbendedeilem
Son Düzenleme: 20/11/2009, 03:34, Düzenleyen: accessman.