Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Function RsToArray(rs As DAO.Recordset) rs.MoveFirst dim1ubound = rs.RecordCount dim2ubound = rs.Fields.Count Dim myArray() ReDim myArray(0 To dim1ubound, 0 To dim2ubound - 1) For i1 = 0 To dim1ubound For i2 = 0 To dim2ubound - 1 myArray(i1, i2) = rs(i2) Next rs.MoveNext Next RsToArray = myArray End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|MS Access 2013 - Multi-selection of records conforming to multiple criteria in different uncontrolled fields||5||30|
|Handle Apostrophes in VBA SQL - Part 2||10||47|
|Access 2013 - User getting error when exporting preview reports from their machines.||18||49|
|Error message for incorrect or missing hyperlink||3||26|
Join the community of 500,000 technology professionals and ask your questions.