conversionproblem from Access 97 to XP

[AxeaXeaxE]

I wrote the following function in 97:

------------------------------------------------------------
Dim db As database
Dim rst As Recordset
Dim query As String

Let query = "SELECT * FROM EXPORT2 WHERE chauffeur = " & Me.KzeI.Column(0) & " and Naam = " & Me.KzeI.Column(1)

Set db = CurrentDb()
Set rst = de.openrecordset(query)

rst.MoveFirst
Do Until rst.EOF
rst.edit
rst![vinkje] = True
rst.Update
rst.Close
Loop
------------------------------------------------------------

But in XP the set db as database and rst.edit aren't available.

I think I fixed the first part, but the .edit is still a mistery, can anyone help me with this. Either give me the current function for .edit or rewrite the whole function.

This is what I've got so far:

Dim db As Connection
Dim rst As Recordset
Dim query As String

Let query = "SELECT * from EXPORT2"
Set db = CurrentProject.Connection
Set rst = db.openrecordset(query)

rst.MoveFirst
Do Until rst.EOF
rst.edit
rst![vinkje] = True
rst.Update
rst.Close
Loop

 

[Bry12345]

Two possibilities: Your recordset, as defined, may not be editable. Try specifying the query as a dbOpenDynaset on the 'Set rst' line. This link shows syntax on opening and editing ADO recordsets:

http://msdn.microsoft.com/library/d...ry/en-us/dndao/html/daotoadoupdate_topic5.asp

Also, you may need to make rst![vinkje] = True -->> rst![vinkje].value = True - - - -

Bry

 

[smedvid]

Check ur reference library also... I think u need to have DAO 3.5 as opposed to 2.5/3.5 Compatible... ? htwh Steve Medvid
"IT Consultant & Web Master"

http://www.saveourfarm.com

Chester County, PA Residents - Please Show Your Support...

 

[AxeaXeaxE]

It indeed doesn't recognise the DAO.database. I downloaded DAO 3.6 and installed it, but don't really know how it works, because he still doesn't recognise the DAO.database...?

 

[smedvid]

Sorry, I don't have any details... I remember reading an article on one of the Access Forums, perhaps a one other than this site. It detailed out some gotcha's related to XP & Access. Try searching on Library Reference.. ? htwh Steve Medvid
"IT Consultant & Web Master"

http://www.saveourfarm.com

Chester County, PA Residents - Please Show Your Support...

 

[AxeaXeaxE]

Ok thx so far