<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1264" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Well.  Simple solutions for simple people, I 
always say.  That seems to have done it.  That "Select *... syntax is 
just a habit with me.  Thank you.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>The other solution that Robert Steward sent me also 
works although I'm not sure why.  But it slows down the processing 
considerably - like a factor of five.  I need to figure out what he did 
because it looks like a good technique when needed.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Is there ever a reason to "Select * FROM 
tblXYZ"?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Tanks again and regards,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Rocky Smolin<BR>Beach Access Software</FONT></DIV>
<DIV> </DIV>
<BLOCKQUOTE 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
  <A title=jimdettman@earthlink.net href="mailto:jimdettman@earthlink.net">Jim 
  Dettman</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A title=accessd@databaseadvisors.com 
  href="mailto:accessd@databaseadvisors.com">Access Developers discussion and 
  problem solving</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Thursday, October 09, 2003 2:03 
  PM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> RE: [AccessD] File Sharing lock 
  count exceeded</DIV>
  <DIV><BR></DIV>
  <DIV><SPAN class=250555820-09102003><FONT face=Arial color=#0000ff 
  size=2>Rocky,</FONT></SPAN></DIV>
  <DIV><SPAN class=250555820-09102003><FONT face=Arial color=#0000ff 
  size=2></FONT></SPAN> </DIV>
  <DIV><SPAN class=250555820-09102003><FONT face=Arial color=#0000ff 
  size=2><<<FONT color=#000000>Any 
  hints?>></FONT></FONT></SPAN></DIV>
  <DIV><SPAN class=250555820-09102003><FONT face=Arial 
  size=2></FONT></SPAN> </DIV>
  <DIV><SPAN class=250555820-09102003><FONT face=Arial size=2> The 
  database(s) are all on a station or split between a client and 
  server?</FONT></SPAN></DIV>
  <DIV><SPAN class=250555820-09102003><FONT face=Arial 
  size=2></FONT></SPAN> </DIV>
  <DIV><SPAN class=250555820-09102003><FONT face=Arial size=2> <FONT 
  color=#0000ff>Besides that, don't use SQL statements when opening the tables, 
  just open them directly.</FONT></FONT></SPAN></DIV>
  <DIV><SPAN class=250555820-09102003><FONT face=Arial size=2><FONT 
  color=#0000ff></FONT></FONT></SPAN> </DIV>
  <DIV><SPAN class=250555820-09102003>
  <DIV><FONT face=Arial size=2>Set rstTaxRate = db.OpenRecordset<SPAN 
  class=250555820-09102003>("</SPAN>tblTaxRates")<BR>Set rstRecoveryTable = 
  db.OpenRecordset("<SPAN 
  class=250555820-09102003>tbl</SPAN>PrintRecoveryForm")</FONT></DIV></SPAN></DIV>
  <DIV><SPAN class=250555820-09102003><FONT face=Arial color=#0000ff 
  size=2></FONT></SPAN> </DIV>
  <DIV><SPAN class=250555820-09102003><FONT face=Arial size=2><FONT 
  color=#0000ff>  JET's trying to use an implicit transaction to handle the 
  update because of that.</FONT></FONT></SPAN></DIV>
  <DIV><FONT size=2></FONT> </DIV>
  <DIV><FONT size=2>Jim Dettman<BR>President,<BR>Online Computer Services of 
  WNY, Inc.<BR>(315) 699-3443<BR>jimdettman@earthlink.net </FONT></DIV>
  <BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
    <DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma 
    size=2>-----Original Message-----<BR><B>From:</B> 
    accessd-bounces@databaseadvisors.com 
    [mailto:accessd-bounces@databaseadvisors.com]<B>On Behalf Of </B>Rocky 
    Smolin - Beach Access Software<BR><B>Sent:</B> Thursday, October 09, 2003 
    12:45 PM<BR><B>To:</B> AccessD@databaseadvisors.com<BR><B>Subject:</B> 
    [AccessD] File Sharing lock count exceeded <BR><BR></FONT></DIV>
    <DIV><FONT face=Arial size=2>Dear List:</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial size=2>I am getting an error in a loop which 
    says:</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial size=2>File sharing lock count exceeded.  
    Increase MaxLocksPerFile registry entry.</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial size=2>I don't think that's the solution.  The 
    lock limit should not be exceeded.  Somehow I'm not releasing the locks 
    as they're being created.  Is there a trick to doing that? It blows at 
    different counts, too.  Sometimes over 70,000 records get processed, 
    sometimes 40,000.</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial size=2>Here's the code:</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial 
    size=2>'********************************************************************************</FONT></DIV>
    <DIV><FONT face=Arial size=2>Set rstTaxRate = db.OpenRecordset("Select * 
    FROM tblTaxRates")<BR>Set rstRecoveryTable = db.OpenRecordset("Select * FROM 
    tblPrintRecoveryForm")</FONT></DIV>
    <DIV> </DIV>
    <DIV><FONT face=Arial size=2>With rstRecoveryTable</FONT></DIV>
    <DIV> </DIV>
    <DIV><FONT face=Arial size=2>If .BOF = True And .EOF = True Then GoTo 
    GoodBye:</FONT></DIV>
    <DIV> </DIV>
    <DIV><FONT face=Arial size=2>.MoveLast<BR>txtTotalRecords = 
    .RecordCount<BR>.MoveFirst<BR>lngCount = 0</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial size=2>Do While Not .EOF</FONT></DIV>
    <DIV> </DIV>
    <DIV><FONT face=Arial size=2>    lngCount = lngCount + 
    1<BR>    If lngCount Mod 1000 = 0 
    Then<BR>        txtRecordNumber = 
    lngCount<BR>        
    Me.Repaint<BR>    End If<BR>    
    <BR>    .Edit</FONT></DIV>
    <DIV> </DIV>
    <DIV><FONT face=Arial size=2>    If 
    Nz(!fldInvoiceDetailPriceShouldBe) = 0 
    Then<BR>        !PriceError = 
    0<BR>        !TotalDue = 
    0<BR>    End If<BR>    <BR>    
    If Nz(!fldInvoiceDetailPricePaid) < 0 
    Then<BR>        !PriceError = 
    !fldInvoiceDetailPricePaid<BR>        
    !TotalDue = !PriceError * !fldInvoiceDetailQuantity<BR>    
    End If<BR>    <BR>    If 
    !fldInvoiceDetailSalesTax = "Y" 
    Then<BR>        
    <BR>        ' find tax rate for this 
    invoice date; if not found, tax is 
    zero<BR>        rstTaxRate.FindFirst 
    "fldTaxRateStartDate <= #" & !fldInvoiceDate 
    _<BR>            
    & "# AND fldTaxRateEndDate >= #" & !fldInvoiceDate & 
    "#"<BR>        
    <BR>        If rstTaxRate.NoMatch = False 
    Then<BR>            
    !SalesTax = !PriceError * 
    rstTaxRate!fldTaxRate<BR>            
    !TotalDue = (!PriceError + !SalesTax) * 
    !fldInvoiceDetailQuantity<BR>        End 
    If<BR>        <BR>    End 
    If<BR>    <BR>    
    .Update<BR>    <BR>    
    .MoveNext<BR>Loop</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial size=2>End 
    With<BR>'*************************************************************************</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial size=2>Any hints?</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial size=2>MTIA,</FONT></DIV>
    <DIV><FONT face=Arial size=2></FONT> </DIV>
    <DIV><FONT face=Arial size=2>Rocky Smolin<BR>Beach Access 
    Software</FONT></DIV>
    <DIV><FONT face=Arial size=2> </DIV></FONT>
    <DIV><FONT face=Arial size=2> </DIV></BLOCKQUOTE></FONT>
  <P>
  <HR>

  <P></P>_______________________________________________<BR>AccessD mailing 
  list<BR>AccessD@databaseadvisors.com<BR>http://databaseadvisors.com/mailman/listinfo/accessd<BR>Website: 
  http://www.databaseadvisors.com<BR></BLOCKQUOTE></BODY></HTML>