Option Compare Database
Dim trz As Integer
Private Sub Form_Timer()
trz = trz + 1
'Diğer formun açılma süresi 1200 ms yani 1.2 saniyedir..
'Değiştirmek için 10 rakamını düzenleyiniz..
If trz = 10 Then
DoCmd.Close
DoCmd.OpenForm "x1"
Else
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
(Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)
End If
End Sub
Merhaba..
Sayın Kural'ın bu güzel flash animasyon örneğine ilaveten -mevcut form1 yapınız için- formunuzun kod sayfasını yukarıdaki gibi düzenlerseniz istediğiniz olur..
tımer problemi
Bu Konudaki Yorumlar |
tımer problemi - Yazar: by body 1 - 28/05/2010, 18:00
Cvp: tımer problemi - Yazar: Kur@l - 28/05/2010, 18:06
Cvp: tımer problemi - Yazar: emturker - 31/05/2010, 11:34
Cvp: tımer problemi - Yazar: by body 1 - 31/05/2010, 15:57
Cvp: tımer problemi - Yazar: emturker - 31/05/2010, 16:29
Cvp: tımer problemi - Yazar: by body 1 - 01/06/2010, 09:19
Cvp: tımer problemi - Yazar: emturker - 01/06/2010, 09:37
Cvp: tımer problemi - Yazar: by body 1 - 01/06/2010, 11:54
Cvp: tımer problemi - Yazar: Kur@l - 01/06/2010, 18:21
Cvp: tımer problemi - Yazar: Taruz - 02/06/2010, 00:53
Cvp: tımer problemi - Yazar: benremix - 06/06/2010, 14:39
|
Konuyu Okuyanlar: 1 Ziyaretçi