ถามไว้ที่ 
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_2000&Number=109661&page=0&view=collapsed&sb=5&o=7&fpart=1&vc=1&PHPSESSID= 
 
I appear to be doing something wrong. I want to enable the Finish button when  
all records have been cycled. Is this even a good way of doing this? 
 
Private Sub Form_Current() 
 
Dim rs As ADODB.Recordset 
 
Set rs = Me.RecordsetClone 
 
If rs.EOF Then 
Me.commFinish.Enabled = True 
Else 
Me.commFinish.Enabled = False 
End If 
 
rs.Close 
 
End Sub 
 
Thanks, 
 
RymCo  
 
เขาใช้โค้ดข้างบนเพื่อต้องการตรวจว่าผู้ใช้ได้คลิกมาถึงข้อมูลท้ายหรือยัง แล้วจึงจะให้สามารถคลิกปุ่มชื่อ Finish ได้ โดยเขาสร้างปุ่ม Navigation Buttons ขึ้นมาเอง แต่ไม่ให้มีปุ่ม Last กับ First ไว้ให้ 
 
ผมได้ให้โค้ดนี้เขาไปครับ 
 
Private Sub Form_Current() 
Dim rs As ADODB.Recordset 
'Dim rs As Recordset 
Set rs = Me.RecordsetClone 
If Me.CurrentRecord >= rs.RecordCount Then 
    Me.commFinish.Enabled = True 
Else 
    Me.commFinish.Enabled = False 
End If 
End Sub 
 
Private Sub Form_Load() 
Me.commFinish.Enabled = False 
End Sub