Tạo dòng chữ chạy trên Form của Access: Cũng như mong muốn ở trên, trên 1 Form bất ký mình muốn chạy một dòng chữ để cần thông tin về vấn đề nào đó ví dụ như là "Chương trình này được tạo bởi...."
B1: Tạo Label LblWelcome
B2: Tạo Code sau
Private Sub Form_Timer()
Dim X, Y As String
X = Left(LblWelcome.Caption, 1)
Y = Right(LblWelcome.Caption, Len(LblWelcome.Caption) - 1)
LblWelcome.Caption = Y + X
End Sub
Private Sub FormHeader_Click()
LblWelcome.Caption = "This program is designed by dotnet.vn" & Space(3)
Me.TimerInterval = 200
End Sub
Private Sub FormHeader_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
LblWelcome.Caption = "This program is designed by dotnet.vn" & Space(3)
Me.TimerInterval = 200
End Sub