Thank you. I have struggled with the following & it appears to work. Have
I overlooked anything?

Public Function fAppDonations() As Boolean
   Dim rsA As DAO.Recordset, rsB As DAO.Recordset, NewNumber As Long
   Set rsA = CurrentDb.OpenRecordset("QryDonations")
   Set rsB = CurrentDb.OpenRecordset("TblReceiptsNew")
   NewNumber = DMax("ReceiptNumber ", "TblReceiptsNew")
   fAppDonations = True
   On Error GoTo FuncErr
   rsA.MoveFirst
   Do While Not rsA.EOF                         'loop through query
       rsB.AddNew                               'add to table
       rsB!mem_ID = rsA!mem_ID
       rsB!EntDate = rsA!EntDate
    <snip>
       rsB!IssueDate = Format(Now(), "dd mmm yyyy")
       NewNumber = NewNumber + 1
       rsB!ReceiptNumber = NewNumber
       rsB!sent = False                      'true when receipts mailed
       rsB.Update                               'update table
       rsA.MoveNext                             'move to next record
   Loop
FunctExit:
   rsA.close
   rsB.close
   Set rsA = Nothing                            'release resources
   Set rsB = Nothing
   DBEngine.Idle dbFreeLocks
   Exit Function
FuncErr:
   MsgBox "error " & Err.Number & ", " & Err.Description
   fAppDonations = False
   GoTo FunctExit
   End Function

I volunteer for a small organization & it is extremly important I get
this correct.

Bob