sedikit modifikasi code saja dari on load() dipindahkan
sebagian ke on current()
scriptnya:
Private Sub Form_Current()
'length of Running text
intLRText = 150
strText1 = Text40
Label3.Caption = strText1 & Space(intLRText - Len(strText1))
End Sub
Private Sub Form_Load()
Me.TimerInterval = 150
End Sub
Private Sub Form_Timer()
lblText = Label3.Caption
Label3.Caption = Right(lblText, Len(lblText) - 1) & Left(lblText, 1)
End Sub
salam
~roland
-----Original Message-----
From: Dri Access [mailto:[email protected]]
Sent: Thursday, February 26, 2009 18:26
To: [email protected]
Subject: [belajar-access] Animasi di Form (Lanjutan)
Dear All,
Saya sudah mencoba animasi dari Mas Edy Wiyono di form yang saya sertakan
dalam attachment, setelah saya coba pada ada beberapa masalah:
Ketika saya pindah ke record (halaman) 2 dengan data yang berbeda, ternyata
text animasinya tidak berganti (update) sesuai dengan record (halaman) yang
baru.
Mohon pencerahannya dari rekan-rekan sekalian, bagaimana mengatasi masalah di
atas.
Atas bantuannya diucapkan terima kasih.
Salam,
Andri Kusmana
------------------------------------------------------------------------------
Menambah banyak teman sangatlah mudah dan cepat.
Undang teman dari Hotmail, Gmail ke Yahoo! Messenger sekarang!
