hocaccess > 12-09-19, 12:17 PM
Sub ShowCount()
Dim myR As Recordset
Set myR = CurrentDb.OpenRecordset("Danhmucsanpham")
MsgBox "So san pham la: " & myR.RecordCount & "."
myR.Close
Set myR = Nothing
End Sub![[Hình: CIwgPXS.png]](https://i.imgur.com/CIwgPXS.png)
ongke0711 > 12-09-19, 12:43 PM
hocaccess > 12-09-19, 02:42 PM
)![[Hình: 2ItACkn.png]](https://i.imgur.com/2ItACkn.png)