Kelihatannya kurang di Deklarasi Publik Countloop dan Inisiasi awal Countloop di form loadnya.
Option Compare Database Public Countloop as integer Private Sub Form_Load() Me.TimerInterval = 50 CountLoop = 0 End Sub saya coba udah jalan tuh text-nya btw, untuk scrolling text ada contoh di : http://tech.groups.yahoo.com/group/belajar-access/files/Edy%20WIYONO nama filenya: dbscrollingtext.zip salam hangat dan jabat erat, MBA -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Cecep W Sent: Wednesday, 10 March, 2010 7:04 AM To: [email protected] Subject: [belajar-access] Text pada Caption berjalan hallo pakar access semua saya lagi nyoba hasil contekan membuat text berjalan pada caption yg saya contek dari program-nya bamboo media yg beberapa waktu lalu dikirim ke milis tapi setelah saya coba text-nya ga jalan, kenapa ya? VBA-nya sbb: Private Sub Form_Timer() On Error Resume Next Dim TxtDefault As String Dim TxtDemo As String TxtDefault = " Main Menu" TxtDemo = " Text Berjalan" Me.Caption = TxtDefault & Space(CountLoop) & TxtDemo CountLoop = CountLoop + 1 If CountLoop = 115 Then CountLoop = 1 End If End Sub Timer Intervalnya 50 regards CW
