Tạo dòng chữ chạy trên form

Tạo chữ chạy trong access. Dùng 2 sự kiện của Form: Open và Timer Private Sub Form_Open(Cancel As Integer) Me.Caption = "Dữ liệu đã bị khóa !" Me.TimerInterval = 600 End Sub Private Sub Form_Timer() If Me.Caption = Space(1) Then Me.Caption = "Dữ liệu đã bị khóa !" Else Me.Caption = Space(1) End If End Sub

2p lehungquoc214 20-11-2010 1064 101   Download