MAcro to fill in voucher numbers

[dwilson]

We have a transportation database for clients who get our transporation vouchers. There are three basic tables, the client table, the order table, and the voucher table. When I client decides to order say 20 vouchers, the program will tell us the next available voucher number, but the user has to manually type in each line for the voucher number (because we have to print out each one separately, and keep track of each one when they are redeemed, etc. The user just asked if there is some way Access could just fill in these records in the voucher table.


So, if John Doe wants 10 vouchers, and the system says the next available voucher # is 1001, then they would like records 1001, 1002, 1003, 1004, etc written to the voucher table. Is this possible using a macro of some kind?

[pbaldy]

See if this gives you any ideas:

  For lngPassNum = lngStartNum To lngEndNum

  strSQL = "INSERT INTO tblTrolleyDayPass (TicketNum,DateStock,Status) " & _
           "VALUES (" & lngPassNum & ", #" & Me.txtDate & "#, 'S')"

  CurrentDb.Execute strSQL
  Next lngPassNum

If I was doing it again now, I'd use a recordset, but for smaller quantities SQL would be fine.