Saya sudah coba dan berhasil, terima kasih atas bantuannya Mas / Pak Roland..
Andri Kusmana ________________________________ Dari: Roland <[email protected]> Kepada: [email protected] Terkirim: Jumat, 27 Februari, 2009 10:37:00 Topik: RE: [belajar-access] Animasi di Form (Lanjutan) 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:dri. acc...@yahoo. co.id] Sent: Thursday, February 26, 2009 18:26 To: belajar-access@ yahoogroups. com 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! Nikmati chatting lebih sering di blog dan situs web. Gunakan Wizard Pembuat Pingbox Online. http://id.messenger.yahoo.com/pingbox/
