Wildunknown

I found this while looking for some books.   Its on sale for 96% off.  With the free shipping for orders over $39, it may actually be cheaper than buying a cord of firewood. Or to look at it another way, they would lose money in shipping if I bought 13 of them. Odd thought.

We had a database that we kept getting complaints about, it kept getting slower and slower to do a specific task. I tracked it down to this code. Can you spot this issue with this code? Sub assignAclToSubRecord( viewName, docID )     Dim counter As Integer     Set vwSub = db.GetView( viewName )     Set subDoc = vwSub.GetDocumentByKey( docID )     Do While Not ( subDoc Is Nothing )         subDoc.Authors_Variable_SpecificTI  = currentDoc.Authors_Variable_SpecificTI         subDoc.AuthorsVariable = currentDoc.AuthorsVariable         Call subDoc.Save(True,True)         Set subDoc = vwSub.GetNextDocument( subDoc )     Loop    End Sub