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...."

Trích dẫn: 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

(09-08-10, 01:22 AM)Noname Đã viết: 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...."

Trích dẫn: 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

bạn có thể hướng dẫn cụ thể được không mình làm nhưng không được

vậy là cụ thể lắm rồi, còn gì nữa.
Tạo 1 lable
Tạo 1 nút nhấn

Các sự kiện tương ứng của nút nhấn vá form!

là thế này . bạn tạo 1 lable đặt tên: LblWelcome
sau đó tạo 1 cái command . chú ý khi tạo command bạn clik bỏ chiếc đũa thần đi . vì mình còn phải dùng code cho nó
tạo command xong . bạn nhấn F4 để đặt tên : CmdRun
đặt tên xong bạn tìm chứ on click bấm vào [...] hiện lên chứ Ex..... thì nhấn vào
công việc còn lại là coppy đoạn mã từ web vào code . save lại
chay form để xem được kết quả
chúc bạn may mắn

sao minh lam giong ban sao ko dc nhi
no bao loi dong code LblWelcome.Caption = "This program is designed by ..." & Space(3)

post 1 chương trình nhỏ demo phần làm của bạn lên mình xem thử!

biết rồi . tại ku đặt tên cai Lable bị sai ấy . lúc đầu tớ cũng bị thế
xem lại phần đặt tên nhé . good luck :d
http://www.mediafire.com/?es1k2cbfyvsw2c1
mình làm rồi nè down về xem lại :d

Bài viết trên rất hay. mình xin được đóng góp ý kiến bổ sung.mình sẽ không dùng nút cmd nữa. thay vì dùng nút comand click thì mình có thể dùng sự kiện onload trên form. mình xin tác giả được edit code như sau:

Private Sub Form_Load()
LblWelcome.Caption = " Chuc Ban May Man " & 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

Các bạn thử tham khảo cái này xem có được không nha:
http://www.mediafire.com/?9osabdl2nddxbn9

---

sorry link này mới đúng, các bạn thông cảm nha:
http://www.mediafire.com/?us38llr63w70yb6

Cho hỏi tý các bác ạ em tạo được dòng chữ chạy rồi mà sao nó cứ chớp chóp ,em co để backround lun khong biết có phải do cai đó nên nó mới chớp không
CHớp giống như nhấn f5 trên màn hình windows ấy