ตารางชื่ออะไรครับ และมีกี่ฟีลด์ในตารางดังกล่าว และจะให้แสดงฟีลด์ไหนใน Text Box เป้าหมายครับ

ตารางชื่อ FProduct มีฟิลล์ชื่อ ID,Name,... ต้องการดึง ฟิลล์ ID ไปใส่ใน TextBox 1 ถึง TextBox 5 ตามลำดับครับ

ลองแบบนี้ดูครับ Private Sub Form_Load() Dim dbs As Database, rst As Recordset Dim I As Integer Set dbs = CurrentDb Set rst = dbs.OpenRecordset("FProduct") If Not rst.EOF Then rst.MoveLast rst.MoveFirst For I = 1 To 5 Me("TextBox" & I) = rst("ID") rst.MoveNext Next I End If rst.Close dbs.Close Set rst = Nothing Set dbs = Nothing End Sub

ขอบคุณสำหรับคำตอบ ที่ตอบทุกคำถามของผมครับ ขอถามอีกนิดนะครับว่า 1. มี rst.close อยู่แล้วทำไมต้องมี Set rst = Nothing อีกครับ 2. คำสั่ง Set dbs = CurrentDb Set rst = dbs.OpenRecordset("FProduct") ต่างจาก Set db = currentdb() iSQL = " Select * From FProduct Where Id = '" & me.id "'" Set irec = db.Openrecordset(iSQL) อย่างไรครับ 3. การเปิด data base เพื่ออัพเดทข้อมูล ด้วยคำสั่ง (สมมติ) Set db = currentdb() iSQL = " Select * From FProduct Where Id = '" & me.id "'" Set irec = db.Openrecordset(iSQL) if not myrec.eof then irec.edit ...... ...... irec.upDate อยากถามว่าการเปิดแบบ database แบบนี้ ถ้ามี User หลายคนจะมีปัญหาเรื่องการ แชร์ data base หรือเปล่า เพราะเป็นระบบ lan อยากให้ User เข้ามาใช้พร้อมกันหลาย ๆ คน ซึ่งถ้ามีปัญหาจะต้องใช้คำสั่งแชร์ อย่างไร ครับ

rst.Close เพื่อปิดการใช้งาน Recordset set rst = Nothing เพื่อ Free หน่วยความจำให้กับระบบ คือจะไม่ใช้ตัวแปรนี้เป็น Recordset แล้ว parameter ของ .OpenRecordset() ที่ใช้เปิด Recordset นี้อาจระบุได้โดยชื่อของ Database Obect ที่มี Recordset เป็นสมาชิก ได้แก่ Table, Query ปต. หรือระบุโดย SQL statement ถ้าเป็นชื่อของ query ก็จะเปิด Recordset ได้เร็วกว่าการใช้ SQL statement (เขาว่า) ส่วนการเข้าถึงข้อมูลโดย Users พร้อมกันนั้น มีความเห็นว่า ไม่น่ามีปัญหา เพราะ Recordset เองมี method Refresh ข้อมูลอยู่แล้ว ขณะที่ a user ใช้งาน Record ใดๆ อยู่ another user ก็จะไม่สามารถเห็นการปรับปรุงข้อมูลได้จนกว่า the first user จะได้ update record นั้นแล้ว Remember it's just my openion.