http://support.microsoft.com/kb/179987/en-us

วิธีง่ายที่สุด ให้ใช้คำสั่งนี้ครับ

Private Sub Command1_Click()
    SendKeys "{F9}", True
    DoEvents
    SendKeys "{F9}", True
End Sub

ทำตามคุณ ธัชชัย แล้ว ยังเป็นเหมือนเดิมครับ

เดี๋ยวจะลองทำตาม link อ.สันติสุข ดูครับ

เริ่มแรกต้องเช็คก่อนนะครับว่าสถานะ Numlock ของ Access กับ ที่เห็นบนคีย์บอร์ดตรงกันหรือเปล่า

ต้องทำให้ตรงกันก่อนถึงจะใช้คำสั่งนี้ได้ครับ

ถ้ายังไม่ได้อีก ให้นำคำสั่งนี้ไปใส่ใน Module โดย Code เป็น

Function F9()
    SendKeys "{F9}", True
    DoEvents
    SendKeys "{F9}", True
End Function

จากนั้นเวลาจะใส่ F9 ที่ Event ไหน ก็ ใส่แค่ =F9() ที่ตรงนั้น หรือถ้าอยู่ใน Code ก็ Call F9 ครับ

ฐานข้อมูลที่ผมทำแก้ปัญหาด้วยวิธีนี้ก็ไม่มีปัญหานะครับ (คือใช้ Module ไปเลย)

จะลองทำดูครับ ขอบคุณครับ
ขอคำแนะนำ "เริ่มแรกต้องเช็คก่อนนะครับว่าสถานะ Numlock ของ Access กับ ที่เห็นบนคีย์บอร์ดตรงกันหรือเปล่า

ต้องทำให้ตรงกันก่อนถึงจะใช้คำสั่งนี้ได้ครับ " เช็คอย่างไรครับ Numlock ของ Access

วิธีของคุณ ธัชชัย work ครับ
Function F9()
    SendKeys "{F9}", True
    DoEvents
    SendKeys "{F9}", True
End Function

ยินดีด้วยครับ