Incrementing Invoice Number

External Since: Apr 09, 2008 Posts: 457

a) Jet doesn't have real locking
b) Jet doesn't have a real database log
c) Jet doesn't have real transactions.

so now _WHAT_ are you talking about?

You're right-- databases that are built by _PROFESSIONALS_ are built
in SQL Server, that's why they don't have these problems.
You're not some sort of 'database architect' just because you run the
database splitting wizard in Jet.

Learn how to use the worlds most popular database before you try to
boss me around, script kiddie!

-Aaron
MCITP: SQL 2005 DBA

On Dec 31 2008, 2:27 pm, "Arvin Meyer [MVP]"
wrote:
> While all of that information is basically true, it neglects to mention that
> a split database, rarely corrupts because nothing is shared except the data,
> and that is locked by the user currently writing to that record or page.
>
> While it alludes to network server connections being dropped as a cause for
> corruption, it neglects to mention that tables without memo fields being
> written to rarely corrupt, even with dropped connections. It also doesn't
> mention that high quality networks, rarely drop a connection. Further, it
> doesn't mention that transactional processing from unbound forms with
> rollback will almost never have a problem either.
>
> So databases designed by intelligent professionals, almost never suffer from
> any of the problems mentioned. That said, if there is a mission critical
> application that requires high security on a 24/7 basis, it makes sense to
> spend the extra money for software, hardware, and administration to set up
> and run a full SQL-Server application.
> --
> Arvin Meyer, MCP, MVPhttp://www.datastrat.comhttp://www.mvps.org/accesshttp://www.accessmvp.com
>
> "a a r o n . k e m p f @ g m a i l . c o m" wrote in
> messagenews:07211240-7db6-4f8b-aff5-c2f898880105@t39g2000prh.googlegroups..com...
> In Microsoft's own words....
> The following comes from Microsoft article Q300216.
>
> -----------------------------------------------------------------------------------------------------------------------------------------------------------
> "Microsoft Jet is a file-sharing database system. A file-sharing
> database is one in which all the processing of the file
> takes place at the client. When a file-sharing database, such as
> Microsoft Jet, is used in a multiuser environment,
> multiple client processes are using file read, write, and locking
> operations on the same shared file across a network. If,
> for any reason, a process cannot be completed, the file can be left in
> an incomplete or a corrupted state. Two
> examples of when a process may not be completed is when a client is
> terminated unexpectedly or when a network
> connection to a server is dropped.
>
> Microsoft Jet is not intended to be used with high-stress, high-
> concurrency, 24x7 server applications, such as Web,
> commerce, transactional, and messaging servers. For these type of
> applications, the best solution is to switch to a true
> client/server-based database system such as Microsoft Data Engine
> (MSDE) or Microsoft SQL Server. When you use
> Microsoft Jet in high-stress applications such as Microsoft Internet
> Information Server (IIS), customers have reported
> database corruption, stability issues such as IIS crashing or locking
> up, and also a sudden and persistent failure of the
> driver to connect to a valid database that requires re-starting the
> IIS service."
> -----------------------------------------------------------------------------------------------------------------------------------------------------------
>
> On Dec 30, 2:18 pm, "Bob Vance" wrote:
>
>
>
> > When I create my Invoice I have 2 choices an Invoice number or Not and
> > that
> > works just great, BUT if I open my Invoice again and add a charge when I
> > close my form it changes my Invoice Number from say 122 to 123, If my
> > invoice is Zero and add a charge to my Invoice its not a problem, this is
> > part of my code that must be wrong.........Thanks Bob
>
> > If fraSelectInvoiceNoType = 1 Then
> > recInvoice.Fields("InvoiceNo") = NextInvoiceNo
> > ElseIf fraSelectInvoiceNoType = 2 Then
> > recInvoice.Fields("InvoiceNo") = 0
> > End If
>
> > --
> > Thanks in advance for any help with this......Bob
> > MS Access 2007 accdb
> > Windows XP Home Edition Ver 5.1 Service Pack 3- Hide quoted text -
>
> - Show quoted text -

External Since: Oct 02, 2008 Posts: 266

OK, now that you're done talking to yourself <lol> let's solve your problem.
First, you may be able to avoid getting a new number depending upon your
code and where it's placed. That may solve the other problem as well. So
give me some more information. What triggers your code? And what does the
sub NextInvoiceNo look like?
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

"Bob Vance" wrote in message

> Sorry Arvin , It is not giving me a Invoice Number when I select it too,
> thought I had fixed it but hadnt ....Regards Bob
>
> "Bob Vance" wrote in message
>
>> Thanks Arvin got it going just had to put that code in again as there was
>> 2 places it was sitting....Regards Bob
>>
>> "Bob Vance" wrote in message
>>
>>> Oops it is not changing the invoice number when I open the form and
>>> close it But If I create a new Invoice with the option to give it a
>>> number it will only give it a zero..Regards Bob
>>> "Bob Vance" wrote in message
>>>
>>>> BRILLIANT Arvin, Thank you very much....Regards Bob Smile

>>>>
>>>> "Arvin Meyer [MVP]" wrote in message
>>>>
>>>>> Add another condition:
>>>>>
>>>>> If Me.NewRecord = True Then
>>>>> If fraSelectInvoiceNoType = 1 Then
>>>>> recInvoice.Fields("InvoiceNo") = NextInvoiceNo
>>>>> ElseIf fraSelectInvoiceNoType = 2 Then
>>>>> recInvoice.Fields("InvoiceNo") = 0
>>>>> End If
>>>>> End If
>>>>> --
>>>>> Arvin Meyer, MCP, MVP
>>>>> http://www.datastrat.com
>>>>> http://www.mvps.org/access
>>>>> http://www.accessmvp.com
>>>>>
>>>>> "Bob Vance" wrote in message
>>>>>
>>>>>> When I create my Invoice I have 2 choices an Invoice number or Not
>>>>>> and that works just great, BUT if I open my Invoice again and add a
>>>>>> charge when I close my form it changes my Invoice Number from say 122
>>>>>> to 123, If my invoice is Zero and add a charge to my Invoice its not
>>>>>> a problem, this is part of my code that must be wrong.........Thanks
>>>>>> Bob
>>>>>>
>>>>>> If fraSelectInvoiceNoType = 1 Then
>>>>>> recInvoice.Fields("InvoiceNo") = NextInvoiceNo
>>>>>> ElseIf fraSelectInvoiceNoType = 2 Then
>>>>>> recInvoice.Fields("InvoiceNo") = 0
>>>>>> End If
>>>>>>
>>>>>>
>>>>>> --
>>>>>> Thanks in advance for any help with this......Bob
>>>>>> MS Access 2007 accdb
>>>>>> Windows XP Home Edition Ver 5.1 Service Pack 3
>>>>>>
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>