การแสดงวันเวลาปัจจุบันแบบอัตโนมัติทุก 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

• วิธีการเข้าหน้า Source Code 

  

  • เขียน Code ใน Procedure ดังนี้

  Private Sub Form_Timer()
  
  Me.txtCurrDateTime = Now()
  
  End Sub

  • โดย txtCurrDateTime นั้น คือ ชื่อของ TextBox ที่ต้องการแสดงวันเวลาปัจจุบัน

  • ส่วนวิธีการดูชื่อ Control สามารถดูได้ที่ Property Name ของ Control นั้น ๆ

  ตัวอย่างดังรูป

  

  หลังจากทำทุกขั้นตอนเสร็จแล้ว ลองเข้าสู่ Form View ดูว่าเวลาเดินตามที่เรากำหนด Timer Interval จริงหรือไม่นะคะ