Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
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 | 1. cách tạo dòng chữ chạy trên form hoặc trên thanh tiêu đề của form 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 cach 2: Tạo Dòng Chữ chạy trên form Hỏi 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" Đáp: Trích: Nguyên văn bởi HungTano Hùng Tano + Bạn tạo 1 label , tên : LblWelcome - 1 nút lịnh, tên CmdRun Nhập các đoạn code sau : Private Sub CmdRun_Click() LblWelcome.Caption = "This program is designed by ." & Space(3) Me.TimerInterval = 200 End Sub 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
