ถ้าหมายถึงให้ป้อนได้ไม่เกินจำนวนเรคอร์ดที่เราต้องการ ให้ใส่โค้ดนี้สำหรับ BeforeInsert event ของฟอร์ม แล้วแก้ MaxLn เป็นจำนวนเรคอร์ดที่ต้องการครับ
Private Sub Form_BeforeInsert(Cancel As Integer)
Const MaxLn = 8
Dim RS As DAO.Recordset
Set RS = Me.RecordsetClone
RS.MoveLast
Cancel = (RS.RecordCount >= MaxLn)
End Sub
ส่วน Vertical Scroll Bar หายไป ให้ตรวจดูที่ Scroll Bars property ของฟอร์มว่าเป็นกลายเป็น Neither หรือ Horizontal Only หรือไม่ มันต้องเป็น Both หรือ Vertical Only ถึงจะมีแสดงออกมาให้ครับ