Tạo đồng đếm thời gian trong quá trình tính toán

[truongseomxh24]

Ðề: Tạo đồng đếm thời gian trong quá trình tính toán

Tớ thử rồi. Chạy tốt. Nhưng Form STATUS vẫn chiếm cả màn hình. CÓ cách nào cho thu nhỏ lại vào giữa màn hình không vậy a, các PRO.

Ý tôi nói là câu lệnh "Đang nhập dữ liệu, xin chờ trong giây lát" cho nó hiện ở thanh Statusbar ấy chứ không phải là nằm trong form frmStatus. Bạn dùng hàm Sys của Access mà làm

[hoangvu]

Ðề: Tạo đồng đếm thời gian trong quá trình tính toán

Ý tôi nói là câu lệnh "Đang nhập dữ liệu, xin chờ trong giây lát" cho nó hiện ở thanh Statusbar ấy chứ không phải là nằm trong form frmStatus. Bạn dùng hàm Sys của Access mà làm

Đặt trong thanh status bar thì làm thế nào, PRO Xuanthanh cho xin code đi.
-----------------------------------------------------------------------------------------

Muốn thu nhỏ thì dùng chuột kéo lề cho nó nhỏ lại.
Muốn nằm giữa màn hình thì đặt Auto Center = Yes

Làm rồi, nhưng frmStatus vẫn chiếm cả màn hình. Có cách nào không, các PRO ơi.

[locde91]

Ðề: Tạo đồng đếm thời gian trong quá trình tính toán

Đặt trong thanh status bar thì làm thế nào, PRO Xuanthanh cho xin code đi.

[COLOR=#000000]
Msgbox [/COLOR][COLOR=#DD0000]"Máy đang làm! Mai mới xong. Bạn đi kiếm ly café đi!"[/COLOR] 

Sếp có la thì bảo là máy bảo thế :dangiuqua::tapta::dangiuqua:

[anhngoctmy]

Ðề: Tạo đồng đếm thời gian trong quá trình tính toán

Đang viết tự nhiên dân kế nhà mình nó ngỏm!

[COLOR=#000000]
Msgbox [/COLOR][COLOR=#DD0000]"Máy đang làm! Mai mới xong. Bạn đi kiếm ly café đi!"[/COLOR] 

Sếp có la thì bảo là máy bảo thế :dangiuqua::tapta::dangiuqua:

Mai mới xong thì đi kiếm bữa nhậu luôn ấy chứ!

Private Sub Command9_Click()

Command9.StatusBarText = "Đang chạy gần chết nè! Nhậu đi rồi về lấy report"
' Dòng lệnh ở đây

Command9.StatusBarText = "Xỉn chưa!Về lấy report nè"
End Sub

[duydiem6868]

Ðề: Tạo đồng đếm thời gian trong quá trình tính toán

Đang viết tự nhiên dân kế nhà mình nó ngỏm!



Mai mới xong thì đi kiếm bữa nhậu luôn ấy chứ!

Private Sub Command9_Click()

Command9.StatusBarText = "Đang chạy gần chết nè! Nhậu đi rồi về lấy report"
' Dòng lệnh ở đây

Command9.StatusBarText = "Xỉn chưa!Về lấy report nè"
End Sub

Làm được như bác rồi.Nhưng làm sao để nó không hiện thi nữa.Chứ Click một phát là nó nằm im dưới thanh luôn.Không mất đuọc

[love2806]

Ðề: Tạo đồng đếm thời gian trong quá trình tính toán

Làm được như bác rồi.Nhưng làm sao để nó không hiện thi nữa.Chứ Click một phát là nó nằm im dưới thanh luôn.Không mất đuọc

Thì sau khi hoàn thành xong bạn set dòng status thành "Form View"
Thế thôi!

[uynuyn]

Ðề: Tạo đồng đếm thời gian trong quá trình tính toán

Bac nói rọng và rõ hơn chút nữa đi.Chỉ như thế thì em làm sao làm theo được

[xvietsao]

Ðề: Tạo đồng đếm thời gian trong quá trình tính toán

Private Sub Command9_Click()

Command9.StatusBarText = "Đang chạy gần chết nè! Nhậu đi rồi về lấy report"

' Các lệnh thực thi của bạn ở đây


Command9.StatusBarText = "Form View"
End Sub