วันจันทร์ที่ 15 เมษายน พ.ศ. 2556

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

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

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


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

DoCmd.RunCommand acCmdRecordsGoToNew

 

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



ไม่มีความคิดเห็น:

แสดงความคิดเห็น