Method or Data Member Not Found

[Bob Quintal]

=?Utf-8?B?Sm9obiBRdWlubg==?=

Hi Group;
I have five databases where the code below works
great. However
on one of the five I get the error message on the line
indicated below. Why is the same Sub_routine working in four,
but not the fifth?
Set rst = db.OpenRecordset("SELECT TEXT FROM SORTED1")

If Right(rst!Text, 2) = ", " Then
rst.Edit '
Error Mesage on
this line?

Thanks in Advance J.Q.

Is the source of your select statement, SORTED1 a query that is
for some reason, read-only?

 

[Guest]

Hi Group;
I have five databases where the code below works great. However
on one of the five I get the error message on the line indicated below. Why
is the same Sub_routine working in four, but not the fifth?

Dim db As Database
Dim rst As Recordset
Dim LeftLen As Byte
Dim IX As Byte
Dim wrkStr As String
Dim wrkText As String

Set db = CurrentDb

Set rst = db.OpenRecordset("SELECT TEXT FROM SORTED1")

Do Until rst.EOF
wrkText = ""
IX = 1
If Right(rst!Text, 2) = ", " Then
rst.Edit ' Error Mesage on
this line?
LeftLen = Len(rst!Text) - 2
wrkStr = rst!Text
Do
wrkText = wrkText & Mid(wrkStr, IX, 1)
IX = IX + 1
Loop Until IX > LeftLen
rst!Text = wrkText
rst.Update
End If
rst.MoveNext
Loop

rst.Close

Set rst = db.OpenRecordset("SELECT TEXT FROM SORTED1")

Do Until rst.EOF
wrkText = ""
IX = 1
If Right(rst!Text, 3) = ", " Then
rst.Edit
LeftLen = Len(rst!Text) - 3
wrkStr = rst!Text
Do
wrkText = wrkText & Mid(wrkStr, IX, 1)
IX = IX + 1
Loop Until IX > LeftLen
rst!Text = wrkText
rst.Update
End If
rst.MoveNext
Loop

Thanks in Advance J.Q.

 

[Ken Snell \(MVP\)]

Probably a references issue. Both ADODB and DAO libraries have a Recordset
object, and you need to disambiguate the Dim statement accordingly:

Dim rst As DAO.Recordset

 

[Guest]

Ken;
Thanks, it worked! However I did not have to Dimension the Database
and Recordset as DAO in the other databases. Do you know why on this one?

A little confised and thanks again

J.Q.

 

[Marshall Barton]

Thanks, it worked! However I did not have to Dimension the Database
and Recordset as DAO in the other databases. Do you know why on this one?

Because you removed the reference to the ADO library the
other databases. Always check the references list to make
sure you are not referencing a library unless it is
absolutely necessary.