How to prevent Error 3052 ?

[Stefan Goerres]

Hi alls,

I have some code like the following and get errors 3052 while execution :(
Is there any way around it? How can I prevent the locking for all records in
the set? I think I only need the one locked that is edited ??

While Not rst.EOF
With rst

lon = !lon
lat = !lat
actTime = !ptime

dist = fDistSquare(lat, lon, lastLat, lastLon)

.Edit
!distance = dist
.Update

.MoveNext

lastLon = lon
lastLat = lat
lastTime = actTime

End With
Wend
Any ideas??

Thanks Stefan

[Edward]

"Stefan Goerres" <li***@gsysteme.de> wrote in message news:<bk************@ID-8437.news.uni-berlin.de>...

Hi alls,

I have some code like the following and get errors 3052 while execution :(
Is there any way around it? How can I prevent the locking for all records in
the set? I think I only need the one locked that is edited ??

While Not rst.EOF
With rst

lon = !lon
lat = !lat
actTime = !ptime

dist = fDistSquare(lat, lon, lastLat, lastLon)

.Edit
!distance = dist
.Update

.MoveNext

lastLon = lon
lastLat = lat
lastTime = actTime

End With
Wend
Any ideas??

Thanks Stefan

What's the SQL that populates the recordset?

[Stefan Goerres]

Edward wrote:

"Stefan Goerres" <li***@gsysteme.de> wrote in message
news:<bk************@ID-8437.news.uni-berlin.de>...

Hi alls,

I have some code like the following and get errors 3052 while
execution :(
Is there any way around it? How can I prevent the locking for all
records in
the set? I think I only need the one locked that is edited ??

While Not rst.EOF
With rst

lon = !lon
lat = !lat
actTime = !ptime

dist = fDistSquare(lat, lon, lastLat, lastLon)

.Edit
!distance = dist
.Update

.MoveNext

lastLon = lon
lastLat = lat
lastTime = actTime

End With
Wend
Any ideas??

Thanks Stefan

What's the SQL that populates the recordset?

Dim dbsTrackPoints As DAO.Database
Dim rst As DAO.Recordset
'Dim fld As DAO.Field

Set dbsTrackPoints = CurrentDb
Set rst = dbsTrackPoints.OpenRecordset("SELECT * FROM Trackpoint")

[Peter Doering]

Stefan,

I have some code like the following and get errors 3052 while
execution :(

What's the SQL that populates the recordset?

Set rst = dbsTrackPoints.OpenRecordset("SELECT * FROM Trackpoint")

Does it also happen when you select only those fields you really need?

"SELECT lon, lat, ptime, distance FROM Trackpoint;"

Peter

--
No mails please.