We help IT Professionals succeed at work.
Get Started

Problem with DAO FindFirst

dsoderstrom
dsoderstrom asked
on
78 Views
Last Modified: 2017-11-07
I'm getting an error message on the FindFirst line in the following code.
The error message is "Run-time error '3251'   Operation is not supported for this type of object."
Can someone tell me what I am doing wrong?

    Dim rs As DAO.Recordset
    Dim rs2 As DAO.Recordset
    Dim i As Long
    Dim reccount As Long
   

    Set rs = CurrentDb.OpenRecordset("2015and2016ServicePartsOrders")
    Set rs2 = CurrentDb.OpenRecordset("ItemPriceHistory")
    reccount = DCount("*", "2015and2016ServicePartsOrders")
    rs.MoveFirst
    For i = 1 To reccount
        rs2.FindFirst ("[ItemNumber]= ' " & rs!ItemNumber & " ' ")
        If rs2.NoMatch Then
            rs.Edit
            rs![List Price] = 0
            rs.Update
        Endif
        If i = reccount Then
            Exit For
        Else
           rs.MoveNext
        End If
  next I
  rs.close
  rs2.close
Comment
Watch Question
Test your restores, not your backups...
CERTIFIED EXPERT
Expert of the Year 2019
Distinguished Expert 2020
Commented:
This problem has been solved!
Unlock 1 Answer and 4 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE