พอดีไปเจอมาเลยเอามาแบ่งปันกันครับ   ของเดิมที่ อาจารย์หลายท่านได้ให้ข้อคิดเห็นไว้ ก้แก้ปัญหาได้ดีครับ   
เลยนำของที่ไม่ซ้ำกัน มาเผื่อแผ่ครับ   เป็นอีกทางเลือกครับ...
การทำงานอย่างไร ผมไม่ทราบครับและอธิบายไม่ได้ ต้อง รบกวน อาจารย์ สันติสุข อาจารย์ yeadram และอาจารย์ท่านอื่นที่มีองค์ความรู้อธิบายครับ

1.สร้าง Form เปล่า 1 Form
2.สร้าง CommandButom 1 อัน
3.เขียน Code ตามด้านล่างนี้ครับ

4. ผมว่า มัน ก็ OK ดีนะครับ......
5 ผมลอง เอาไปประยุกต์ใช้ใน Form แล้วให้ตัวเลข นับ Countdown แสดงในฟอร์ม แล้วปิดฟอร์ม อัมโนมัติ (ผมใช้ หน่วงเวลา ตอนที่เรียกใช้ พวกตระกูล Zip ทั้งหลายทำงานครับ พวกตระกูล Zip นี่ ทำงานยังไม่เสร็จ แต่ตำสั่งใน Access มันทำงานต่อทันที่ เลยต้องหน่วงเวลานินึงครับ)


Private Sub Command0_Click()
Call Timer
End Sub
-------------------------------------------------------------
Sub Timer() 'Call Timer
' จะให้ MsgBox เปิดนานขนาดไหน   ก็ ปรับ ตรง Me.TimerInterval = 1000 , 5000, 10000 ก้ตามใจชอบครับ แต่ตรง   Me.TimerInterval = 0   อย่าไปเปลี่ยนเป้นเลขอื่นครับ....ขอบอก
Me.TimerInterval = 1000
MsgBox "สวัสดีครับ ผมจะปิดตัวเองภายใน     5     วินาที "
Me.TimerInterval = 0
End Sub
-----------------------------------------------------------
Private Sub Form_Timer()
SendKeys "{Enter}"
End Sub






link ที่เกี่ยวข้องครับ....
http://www.thai-access.com/yeadram_view.php?topic_id=1240