การเปิดฟอร์มให้พร้อมรับข้อมูล ใน MS Access ด้วย VBA

ใน MS Access โดยปกติเมื่อสร้างฟอร์มและมีการกรอกข้อมูล เมื่อเรียกเปิดฟอร์มเพื่อกรอกข้อมูล ฟอร์มจะยังไม่พร้อมที่จะทำงาน เพราะโปรแกรมจะไปที่ Record แรก ต้องเลื่อนตำแหน่งไปยัง Record สุดท้ายและเพิ่ม Record ใหม่

ฟอร์มเมื่อเปิดครั้งแรก ถ้าดูที่ Navigation bar ด้านล่าง จะเห็นว่าอยู่ที่ ระเบียนที่ 1 จากทั้งหมด 2837 ระเบียน

ถ้าต้องการให้เปิดฟอร์มแล้วพร้อมใช้งาน ให้ใช้ VBA สั่งให้ไปยัง Record สุดท้าย และสร้าง Record ใหม่ ขึ้น โดยเรียกใช้คำสั่ง ที่เหตุการณ์ เมื่อเปิด ของฟอร์มนั้น ดังนี้

DoCmd.RunCommand acCmdRecordsGoToNew



 

เมื่อเปิดฟอร์ม จะทำให้ฟอร์มพร้อมที่จะรับคำสั่งใหม่ทันที ซึ่งจะสังเกตที่ Navigation bar ด้านล่างของฟอร์ม ซึ่งแสดงระเบียน แสดงให้เห็นว่า โปรแกรมสร้างระเบียนเพิ่มอีก 1 ระเบียน เป็นระเบียนที่ 2838 และขณะนี้ กำลังอยู่ที่ระเบียน 2838 พร้อมที่จะรับการป้อนข้อมูล