Insert multiple records with a date range in MS Access
This is where DAO shines. It is so much faster to run a loop adding records than calling a Insert Into multiple times. Here is how: Public Function PopulateBokings() Dim rsBookings As DAO.Recordset Dim NextDate As Date Set rsBookings = CurrentDb.OpenRecordset(“Select Top 1 * From Bookings”) NextDate = Me!StartDate.Value While DateDiff(“d”, NextDate, Me!EndDate.Value) >= 0 … Read more