The microsoft jet engine stopped the process!!! Why ?

[wassimdaccache]

The microsoft jet engine stopped the process because you and another user are attempting to change the same data at the same time


I'm using access 2003 and I'm the only person that I open the file" I mean the file isn't shared on a network"

I used to search in a table contains 8000 records and return the value in my form
Does my code is a factor of that ????/


Appreciate your reply thank you

[MMcCarthy]

Without seeing the code you are using its hard to tell. Go to Tools - options and under the advanced tab set the database to exclusive and set the default record locking to edited record.

See what affect that has.

[wassimdaccache]

Mss. Mary

First of all I appreciate your support and your reply for us .

I'm computer engineer and I'm not familiar a lot of programing . Since 2 year I'm working on a database using MSaccess everything is doing well until we have seen that the file size is greater that 100 Mega bites Sometimes we get errors unexpected without knowing the reason.

For example :

The microsoft jet engine stopped the process is one of these problems

The second problem and the worst one is

We do have a form "invoices" and a subform "invoicesubform" the invoice

subform is based on a query belong to table of invoicedetail and table products

Products table contains a primary key which has a 1 to infinity relationship with invoicedetail table . (When I add a product on the subform "invoicedetail " MSaccess will automatically point me to the record on products "

I mean : table products contains barecode(primary) and Desc as attributes
let us say barecode on products =1 and desc =" AAA " when I'll type 1 in barecode on invoicedetail I got on desc " AAA"

I'm using this code to find product on products table and return the barecode if exist or not



mysql1 = "select * from [products] where" & "[Barecode]= '" & [Barecode] & "';"
Set db = CurrentDb()
Set rst = db.OpenRecordset(mysql1, dbOpenDynaset)
If Not (rst.BOF Or rst.EOF) Then
tmpbarecode = rst![BarecodePro]
Set rst = Nothing
End If

Me.Barecode = tmpbarecode

the problem is that when I'll update the barecode on invoicesubform SOMETIMES msaccess write for me in desc " ERROR" and on barecode "ERROR" and it will go to next record normally without an error number.

Is this error is related to the size of MSACCESS file invoicesubform contains 800 000 records and invoice contains 70 000 records Product contains 20 000 records .

All my friends that work their program on vb and SQL server tell me that access has low level of manipulation and is not design for a huge type of data ...
Is there anyone that work on MSACCESS with huge data with no problem
Please leave me any comments about access and about the second problem

My file size is aprox. 100 MB using access 2003 11.5614.5606


Thank you again MARY you helped me before in many things appreciate you again and again

[MMcCarthy]

Using a recordset to find one record is overkill. Try the following instead:

tmpbarecode = NZ(DLookup("[Barecode]","products","[Barecode]='" & Me.Barecode & "'"),"")
If tmpbarecode = "" Then
    Msgbox "This product code does not exist", vbOkOnly
Else
    Me.Barecode = tmpbarecode
End If
 

Using recordsets slows down your system and should only be used when necessary.

Ideally you would want to backend your data to a SQL system like MS SQL Server. This will improve preformance. It is not about the the file being 100 mb but rather the number of records being queried.