Operations is not supported of this type of object ERROR?

[EBee]

I am getting an error " Operation is not supported on this type of object. . i don't knw what this means. pleas help
erwin


Private Sub Newtable1()

Dim db As Database
Dim rst As Recordset
Dim rstOpen As Recordset
Dim rstFirst As Recordset
Dim rstExcept As Recordset
Dim rstSecond As Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("auxil1&quot
Set rstOpen = db.OpenRecordset("Auxil_Logic_Open&quot
Set rstFirst = db.OpenRecordset("table6&quot
Set rstExcept = db.OpenRecordset("tableExcept&quot
Set rstSecond = db.OpenRecordset("table789&quot

Do While Not rstOpen.EOF

rst.MoveFirst
GETTIN GERROR ON THIS LINE /??????????HELPPPPP
rst.FindFirst "Number=" & rstOpen!Number
If Not rst.NoMatch Then
If rst!Tx_Date = rstOpen!Tx_Date Then
If (DateDiff(&quot;s&quot;, rst!Tx_Time, rstOpen!Tx_Time) < &quot;60&quot Then
If rst!Trans_Number = &quot;6&quot; Then
With rstFirst
.AddNew
!Number = rst!Number
!Denom = rst!Denom
!Location = rst!Location
!Emp_Name = rst!Emp_Name
!Tx_Date = rst!Tx_Date
!Tx_Time = rst!Tx_Time
!Trans_Number = rst!Trans_Number
!Trans_Desc = rst!Trans_Desc
.Update

.AddNew
!Number = rstOpen!Number
!Denom = rstOpen!Denom
!Location = rstOpen!Location
!Emp_Name = rstOpen!Emp_Name
!Tx_Date = rstOpen!Tx_Date
!Tx_Time = rstOpen!Tx_Time
!Trans_Number = rstOpen!Trans_Number
!Trans_Desc = rstOpen!Trans_Desc
.Update
End With

ElseIf rst!Trans_Number > 6 Then

With rstSecond
.AddNew
!Number = rst!Number
!Denom = rst!Denom
!Location = rst!Location
!Emp_Name = rst!Emp_Name
!Tx_Date = rst!Tx_Date
!Tx_Time = rst!Tx_Time
!Trans_Number = rst!Trans_Number
!Trans_Desc = rst!Trans_Desc
.Update

.AddNew
!Number = rstOpen!Number
!Denom = rstOpen!Denom
!Location = rstOpen!Location
!Emp_Name = rstOpen!Emp_Name
!Tx_Date = rstOpen!Tx_Date
!Tx_Time = rstOpen!Tx_Time
!Trans_Number = rstOpen!Trans_Number
!Trans_Desc = rstOpen!Trans_Desc
.Update
End With
End If
Else
With rstExcept
.AddNew
!Number = rstOpen!Number
!Denom = rstOpen!Denom
!Location = rstOpen!Location
!Emp_Name = rstOpen!Emp_Name
!Tx_Date = rstOpen!Tx_Date
!Tx_Time = rstOpen!Tx_Time
!Trans_Number = rstOpen!Trans_Number
!Trans_Desc = rstOpen!Trans_Desc
.Update
End With
End If
End If
End If
rstOpen.MoveNext
Loop

End Sub

 

[JoaoTL]

Hi, assuming that &quot;auxil1&quot; is a table, try this.

Set rst = db.OpenRecordset(&quot;auxil1&quot;, dbOpenDynaset)

If this is the problem, change it to all Tables


Best Regards

---
JoaoTL
NOSPAM_mail@jtl.co.pt

http://www.jtl.co.pt

http://www.jtl.co.pt/Access

 

[EBee]

HI JoaoTL,

It works, you guys are great, i got so excited when i did not get any errors and checked all my tables and found some records. . .yeah!!!!!

project complete, just need to jaz it up a litte with form

rst.FindFirst &quot;Number=&quot; & rstOpen!Number
If Not rst.NoMatch Then

BTW: what does this line do again? I know it compares the records together but. . . .

Thank you