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

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

ทักษะ (ระบุได้หลายทักษะ)

Data

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