Compile error: Method of data not found.....

[pedie]

Hi, I'm trying to open recordset with data and then edit it and it error. where 'm i doing wrong. Do i need to open differently?


Thanks in advance.

[/FONT]
[FONT=Courier New]Option Compare Database[/FONT]
[FONT=Courier New]Sub dfgsdfhdcvbxcv()
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
Dim MyRecordset As New ADODB.Recordset[/FONT]
[FONT=Courier New]MyRecordset.ActiveConnection = cnn
Dim MySQL As String[/FONT]
[FONT=Courier New]MySQL = "Select * FROM JOBS WHERE JOBS =" & "'XJOB11'"[/FONT]
[FONT=Courier New]MyRecordset.Open MySQL
While Not MyRecordset.EOF
 Debug.Print MyRecordset!JOBS
[COLOR=blue]  MyRecordset.Edit[/COLOR]
   MyRecordset!CLINTID = 7
  MyRecordset.Update
 
MyRecordset.MoveNext
Wend[/FONT]
[FONT=Courier New]MyRecordset.Close
Set MyRecordset = Nothing[/FONT]
[FONT=Courier New]End Sub

 

[boblarson]

What if you do it this way:

Dim MyRecordset As New ADODB.Recordset
Dim MySQL As String
 
MySQL = "Select * FROM JOBS WHERE JOBS ='XJOB11'"
 
MyRecordset.Open MySQL, cnn, adOpenDynamic, adLockOptimistic
Do Until MyRecordset.EOF
 
MyRecordset.Edit

 

[pedie]

Hi Bob, still errors...same error at same line....

What if you do it this way:

Dim MyRecordset As New ADODB.Recordset
Dim MySQL As String
 
MySQL = "Select * FROM JOBS WHERE JOBS ='XJOB11'"
 
MyRecordset.Open MySQL, cnn, adOpenDynamic, adLockOptimistic
Do Until MyRecordset.EOF
 
MyRecordset.Edit

 

[boblarson]

Well, if it is still not working, then how about doing a DECOMPILE on the database (be sure to keep a copy BEFORE you do, just in case something goes wrong). I don't see anything else that should logically cause a problem.

 

[pedie]

Thats leads to another questin Bob, my apologies for my ignorance...
What's "DECOMPILE ", how do I decomplile? Is there some procedure i can follow?

Well, if it is still not working, then how about doing a DECOMPILE on the database (be sure to keep a copy BEFORE you do, just in case something goes wrong). I don't see anything else that should logically cause a problem.

 

[boblarson]

Check it out here:
http://www.granite.ab.ca/access/decompile.htm

 

[pedie]

Bob, thanks again for the usefull information...
'll test it out and then update you on the same...

Thanks again.

Check it out here:

http://www.granite.ab.ca/access/decompile.htm