Sn.by body 1
Form1 deki lblScrollingLabel etiketini Kopyalayın.
X1 Formuna Yapştır.

Verilen Kodu X1 Form Özelliklerinden : Zaman Dolduğunda Olayına Yapıştıracaksınız.
X1 form özelliklerinden Süreölçer aralığını:120 yapın.

Sn.emreturker , benim yapmak istediğim ; Loading yazısının Form1 de kayarak geçmesi ve daha sonra zaman dolduğunda x1 formunu açmasını istemiştim.Sizin dediğiniz gibide yaptım ama olmadı .Kod yazılımındamı bir sorun var acaba.

kolay gelsin... örnek ekleyemiyorum.... nedense
Ancak Örnek Aşağıdaki ftp adresinden indirebilirsiniz...
ftp://accesstr:[email protected]/[email protected]

---

Cvp: tımer problemi
kolay gelsin... örnek ekleyemiyorum.... nedense
Ancak Örnek Aşağıdaki ftp adresinden indirebilirsiniz...
ftp://accesstr:[email protected]/[email protected]

---

Cvp: tımer problemi
kolay gelsin... örnek ekleyemiyorum.... nedense
Ancak Örnek Aşağıdaki ftp adresinden indirebilirsiniz...
ftp://accesstr:[email protected]/[email protected]

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..

Sn by body1 problemi çözebildiniz mi? Saygılar...