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
ongke0711 > 12-09-19, 12:43 PM
hocaccess > 12-09-19, 02:42 PM