methode or data member not found

C

Carl Schuster

I'm trying to run the following module but get this error. What can be the
problem? (running access xp with a access 200 file converted from access 97)

Thanks.

Dim Teller As Integer, groepnum As Integer, vuller As String, Nummer As
Integer, tel
Dim dbs As Database, r As Recordset
'Dim r As Recordset
'Open recordset from tabledef
Set dbs = CurrentDb()
Set r = dbs.OpenRecordset("Qry_Gesorteerde items")
'Set r = OpenRecordset("Qry_Gesorteerde items")
groepnum = 0
Nummer = 0
tel = 0
Do Until r.EOF
Teller = 0
Nummer = Nummer + 1
Do While Teller < 4
r.Edit
Teller = Teller + 1
tel = tel + 1
groepnum = groepnum + 1
' ********** nr = pagina
r("nr") = Nummer
r("Volgnr") = tel
'************ Merk is Idem *********************

If tel = 1 Or tel = 4 Or tel = 8 Or tel = 12 Or tel = 16 Or tel = 20 Or
tel = 24 Or tel = 28 Or tel = 32 Or tel = 36 Or tel = 40 Or tel = 44 Or tel
= 48 Or tel = 52 Or tel = 56 Or tel = 60 Or tel = 64 Or tel = 68 Or tel = 72
Or tel = 76 Or tel = 80 Or tel = 84 Or tel = 88 Or tel = 92 Or tel = 96 Then
Else
r("merk") = "idem"
End If
' ******************************************
If tel > 98 Then
' *********** E is extra meer dan 98
r("groep") = "E"
Else
r("groep") = "N"
End If

r.Update
If groepnum = 3 Then
Teller = Teller + 1
End If
r.MoveNext
If r.EOF Then
Teller = 5
Else
'*********** tel = 98
If tel = 98 Then
groepnum = 0
Nummer = 0
Teller = 5
End If
End If

Loop
Loop
 
A

Alex Dybenko

make sure you have a reference to DAO3.60 in references
and declare recordset as:
r As DAO.Recordset
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top