Làm đông hồ đếm ngược trong Access

[crawlers1214]

Chào các bạn , mình muốn làm một đồng hồ dạng Digital clock trong Access có chức năng đếm ngược. thời gian do mình quy định chạy trong bao lâu. Nếu hết khoảng thời gian đó thì thông báo hết giờ.
Bạn nào biết thì chỉ cho mình với:gatdau:

View more random threads:

• Gán giá trị của checkbox trên formMain đến các bản ghi trong subform
• Form Status làm như thế nào anh chị ơi...?
• Quy định dấu "." và "," trong textbox access
• Chỉ giùm việc chuyển dữ liệu sang hàng ngang
• [Hỏi] Biểu tượng hình tam giác màu vàng có dấu chấm thang trong macro !!!
• Tìm kiếm với hai điều kiện.
• Làm thế nào để chặn thông báo lỗi của Query !
• Hỏi xuất dữ liệu Access sang Excel để in!
• Thiết lập ngày hệ thống trong Access
• Access xem giúp mình bài tính đơn giá này,tạo bảng table lấy dữ liệu từ table khác

[lebichvan888]

Ðề: Làm đông hồ đếm ngược trong Access

Thì viết cho nó 1 đoạn code cho cái textbox thời gian đó vào sự kiện ontime. Cứ 1 s thì lấy giá trị của textbox trừ đi 1. Bao giờ bằng 0 thì popup cái thông báo lên thôi.
Còn muốn cho có cả giờ, phút, giây thì cũng vẫn như thế nhưng chỉ khác 1 chút txtgio=int(***/3600), txtphut=int(***-txtgio*3600)/60, txtgiay=....
Cứ ontime thì nó tác động lên cả 3 txt này

[noithatdn]

Ðề: Làm đông hồ đếm ngược trong Access

Thanks behattieu nhiều lắm!
Mình đã làm được rồi

[sebweb]

Ðề: Làm đông hồ đếm ngược trong Access

Các bạn có thể nói rõ hơn được không? Mình cũng muốn làm ứng dụng khi nó chạy hết thời gian cho phép thì nó thông báo hoặc ghi vào table được chứ?

[quockhanhlaptop.com]

Ðề: Làm đông hồ đếm ngược trong Access

tạo 2 textbox có tên txtTongThoiGian và txtConLai,một nút lệnh có tên cmdBamGio, rồi gõ đoạn mã sau đây (muốn đếm lùi sau 1 phút, bạn đặt để trị 60000 cho thuộc tính TimerInterval):
Dim nDaQua As Integer ‘ Để tính số giây đã qua
Private Sub cmdBamGio_Click()
nDaQua = 0 ‘ Bắt đầu đếm là 0 giây
Me.TimerInterval = 1000 ' sau chu kỳ 1 giây thì xử lý
End Sub
Private Sub Form_Timer()
nDaQua = nDaQua + 1
txtConLai = txtTongThoiGian - nDaQua
If txtConLai = 0 Then ‘ Đã hết giờ
Me.TimerInterval = 0 ‘ Ngừng Timer
MsgBox "Hết giờ"
End If
End Sub