Cách tạo form thời gian cho phần mềm dùng thử

Tôi đọc trên mạng thấy nói là vào Propertier của Form, lập thủ tục xử lý tình huống Ontimer và cài đặt giá trị thuộc tính TimerIntreval là 60000( tương ứng 1 phút), nếu đặt dài hơn thì cứ xác định giá trị tương ứng. sau đó viết code cho thủ tục sự kiện đếm lùi thời gian, khi nào hết giờ sẽ ngừng Timer

Form trong access có 1 thủ tục xử lý tình huống Ontimer, thủ tục này được xử l;ý theo chu kỳ được xác định bằng thuộc tính TimerInterval của Form. Mặc định thuộc tính này có giá trị 0 ( đơn vị tính là 1/1000 giấy) tương ứng với tình huống Ontimer không hoạt động. Muón đếm lùi sau 1 phút, bạn đặt trị 60000 cho thuộc tính TimerInterval, rồi viết câu lệnh xử lý đếm lùi trong thủ tục xử lý tình huống Ontimer. Ví dụ : Bạn thiết kế 2Textbox có tên txtTongThoiGian và txtConLai, 1 nút lệnh CmdBamGio rồi gõ đoạn mã sau đây:

Dim nDaQua As Interger 'Để tính số giây đã qua

Private sub cmdBamGio_Click()

nDaQua=0 'Bắt dầu đếm là 0 giây

Me.TimerInterval=60000 'Sau 1 giây thì sử 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

Tuy nhiên nếu làm thế này thì thời gian được tính từ lúc bấm vào cmdBamgio