คือผมต้องการแก้ไขข้อมูลโดยสร้างปุ่ม Edit โดยให้ผู้ใช้ป้อนเลขที่ที่ต้องการแก้ไขคับ
มันค้นเจอคับแต่พอจะแก้ไขข้อมูลใน Sub form มันฟ้องว่าติด index คับ ไม่ว่าจะเพิ่มอะรัยอีกหรือเปล่าคับ

Private Sub Cmedit_Click()
Dim fin As String
On Error Resume Next

fin = InputBox("Enter No. to Search")
Me.Requery
Me.mas_id = fin
Me.mas_id.Enabled = True
Me.Combo31.Enabled = True
Me.TRec.SetFocus

End Sub