การแสดงวันเวลาปัจจุบันแบบอัตโนมัติทุก 1 วินาทีบนฟอร์ม

ถ้าเราต้องการให้ วันเวลาปัจจุบันแสดงบน Form โดยที่ไม่ต้องเขียน code

เราสามารถทำได้ใช้ Calculate Control โดยกำหนด Property ที่ Control Source ของ Textbox

Control Source = Now() ดังรูป

แต่เมื่อเรามาดูผลลัพธ์ที่ Form View จะเห็นว่า มีการแสดงวันเวลาปัจจุบัน แต่วันเวลาดังกล่าวนั้น ไม่ Refresh ให้จนกว่าจะกดปุ่ม F5 เพื่อ Refresh หรือ มีการ Next Record เพื่อ Refresh Form

ดังนั้น สำหรับบทความนี้ จะนำเสนอวิธีการทำให้ วันเวลาบนปัจจุบัน มีการ Refresh ทุก 1 วินาที ทั้งนี้เราต้องลบค่าที่กำหนดที่ Property Control Source ออกไปก่อน
หลังจากนั้นทำตามขั้นตอนดังต่อไปนี้

1.ที่ Property Sheet ของฟอร์ม ที่ TAB Event แก้ค่าของ Property Timer Interval โดยเปลี่ยนจาก 0 เป็น 1000

ดังรูป

สำหรับ Property Timer Interval ของฟอร์มนั้นให้กำหนดให้ฟอร์มมีการ Refresh ตามระยะเวลาที่กำหนด

ทุก 1 วินาที Timer Interval มีค่าเท่ากับ 1000 เช่น ถ้าต้องการให้ Refresh ทุก 3 วินาที Timer Interval จะต้องกำหนดเป็น 3000 อย่างไรลองเปลี่ยนค่าแล้วดูว่า เวลาเดินอย่างไรดูค่ะ

2.ที่ Property Sheet ของฟอร์ม ที่ TAB Event ให้เขียน Code ที่ On Timer