Tutorial by Examples

Private Sub this() Dim rs As DAO.Recordset Dim q%: Dim z% Set rs = CurrentDb.OpenRecordset("SELECT * FROM Invoice;") With rs rs.MoveLast q = rs.RecordCount rs.MoveFirst z = rs.Fields.Count End With Dim aRR As Variant...