<!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 5.00.3314.2100" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial size=2>When I open my form and add a new record and (say
there is already a record in the table "BOM-2601-0010"), the next number given
is correct ("BOM-2601-0011").</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>However, if I add another record and use the same
prefixes as before "BOM-2601"......the next number given is the same as the
previous ("BOM-2601-0011"). For some reason, I can only get it to increment one
time only and that's all.</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Is there something I can insert in the following
statement (which is a doubleclick event that assigns the Document Number), which
tells it to continue incrementing even though the prefixes are the
same?</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2><SPAN
class=250510816-22072003>******************************</SPAN></FONT></DIV>
<DIV><FONT face=Arial size=2>Private Sub DocumentNumber_DblClick(Cancel As
Integer)</FONT></DIV>
<DIV><FONT face=Arial size=2>Dim intMax As Integer, strPrefix As
String</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>If Me.DocumentNumber = "" Or
IsNull(Me.DocumentNumber) Then</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>strPrefix = Me.[cboDocType].Column(0) & "-"
& Me.cboWBSCodesSelect & "-"</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>If DCount("DocumentNumber", "DocumentList",
"Mid([DocumentNumber],6,4)='" & Me.cboWBSCodesSelect & "'") > 0
Then</FONT></DIV>
<DIV><FONT face=Arial size=2>intMax = DMax("Val(Mid([DocumentNumber],11))",
"DocumentList", "Mid([DocumentNumber],6,4)='" & Me.cboWBSCodesSelect &
"'")</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Me.DocumentNumber = strPrefix & Format(intMax +
1, "0000")</FONT></DIV>
<DIV><FONT face=Arial size=2>Else</FONT></DIV>
<DIV><FONT face=Arial size=2>Me.DocumentNumber = strPrefix &
"0001"</FONT></DIV>
<DIV><FONT face=Arial size=2>End If</FONT></DIV>
<DIV><FONT face=Arial size=2>End If</FONT></DIV>
<DIV><FONT face=Arial size=2>End Sub</FONT></DIV>
<DIV> </DIV></BODY></HTML>