-
04-16-2009, 10:41 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Làm đông hồ đếm ngược trong Access
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:
- Ðề: Cập nhật dữ liệu từ Form vào Table
- Help viết code dùm mình cái form nay voi
- Mọi người giúp mình với, chết toi roài
- Xin code xử lý dữ liệu
- Chuyên đề Access nâng cao - Viết các Function(Hàm) trong Modules - CSDL là Sổ Quỹ Tiền Mặt
- Thiết lập mối quan hệ dữ liệu kiểu gì đây nhỉ?
- Quản lý mua bán hàng - Phần 4: Thiết kế form
- Thư viện runtime cho access !
- Giúp mình vấn đề 2 người cùng sửa dữ liệu trên 1 bản ghi qua mạng Lan
- Autonumber nó không chạy từ 1 mà là chạy từ số nào đó
-
04-18-2009, 03:48 AM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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
-
04-19-2009, 06:32 AM #3Silver member
- Ngày tham gia
- Feb 2016
- Bài viết
- 0
Ðề: Làm đông hồ đếm ngược trong Access
Thanks behattieu nhiều lắm!
Mình đã làm được rồi
-
04-28-2009, 01:24 AM #4Silver member
- Ngày tham gia
- Apr 2016
- Bài viết
- 9
Ðề: 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ứ?
-
04-29-2009, 05:40 PM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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
Điểm nổi bật, hấp dẫn của âm đạo giả lỗ hậu môn Với vòng 3 đẫy đà của nữ giới, sản phẩm âm đạo giả lỗ hậu môn này chân thực tới từng chi tiết với bờ mông căng mịn, nam giới vừa thủ dâm tốt song có...
Bất ngờ với đồ chơi cho nam, Âm đạo giả có cả lỗ đít