Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
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
|Any Way to Print an Import Spec?||3||29|
|I am working on a project management and would like to track the time spent on project task.||10||39|
|IIF help, YN field||7||21|
|Binding recordsets to a form||6||22|