RE: manually incrementing number code does not work in a2003

Thanks for all your help Ofer, I got it working, I dont want to mention how,
lets just call it U-S-E-R error !! but I couldnt have done it without your
help !!

happy holidays to you and yours

"Ofer" wrote:

> I tried the code, and it works, the only thing I can think of is that the
> Dmax returns a null.
> Open the Immidiate widow, and check what the Dmax returns
>
> ?DMax("Estimate_Number", "Table1")
>
> --
> Please respond to the group if your question been answered or not, so other
> can refer to it.
> Thank you and Good luck
>
>
>
> "wellssh" wrote:
>
> > I just noticed one other difference, at work -- SP1 has been installed, maybe
> > a flaw in the service pack ?
> >
> > "Ofer" wrote:
> >
> > > Mybe, and sorry if it will sound like a silly question, but does the dmax is
> > > looking in a table called Table1, but are there any records in this table?
> > >
> > > --
> > > Please respond to the group if your question been answered or not, so other
> > > can refer to it.
> > > Thank you and Good luck
> > >
> > >
> > >
> > > "wellssh" wrote:
> > >
> > > > I tried the added code you suggested, and the value returned remains as
> > > > ES-00001 and will not increment by 1
> > > >
> > > >
> > > >
> > > > "Ofer" wrote:
> > > >
> > > > > Does it return any value?
> > > > > If it doesn't, try this incase the field is empty and not Null
> > > > >
> > > > > Private Sub Form_BeforeUpdate(Cancel As Integer)
> > > > > If IsNull(Me!Estimate_Number) Or Trim(Me!Estimate_Number)="" Then
> > > > > Me!Estimate_Number = "ES-" & (Format(CLng(Right(Nz(DMax("Estimate_Number",
> > > > > "Table1"), 0), 5) + 1), "00000"))
> > > > > End If
> > > > >
> > > > > End Sub
> > > > >
> > > > >
> > > > > --
> > > > > Please respond to the group if your question been answered or not, so other
> > > > > can refer to it.
> > > > > Thank you and Good luck
> > > > >
> > > > >
> > > > >
> > > > > "wellssh" wrote:
> > > > >
> > > > > > Hello,
> > > > > >
> > > > > > I am trying to write the code to increment a number with 2 alpha characters
> > > > > > and a dash in front as follows ES-00001. The number should increment by one
> > > > > > each time the user inputs a new record using the form.
> > > > > >
> > > > > > I am using the following code, and it works great when tested on a db
> > > > > > created in A2000. However will not increment at all when using in a db
> > > > > > created in A2003 SP1
> > > > > >
> > > > > > Private Sub Form_BeforeUpdate(Cancel As Integer)
> > > > > > If IsNull(Me!Estimate_Number) Then
> > > > > > Me!Estimate_Number = "ES-" & (Format(CLng(Right(Nz(DMax("Estimate_Number",
> > > > > > "Table1"), 0), 5) + 1), "00000"))
> > > > > > End If
> > > > > >
> > > > > > End Sub
> > > > > >
> > > > > > Is there additional code needed to make it work for A2003?
> > > > > >
> > > > > > Thank you in advance
> > > > > >
> > > > > > Sherman Wells
> > > > > >
.

Relevant Pages
Loading