3251 Run Time Error with FindFirst

[CameronCarlile]

I'm trying to use the FindFirst method when loading a form (ServiceRecordF) to decide if I need to use this form OR open a different form (ServiceRecordNewF) and close this form.

    Dim IntArgs
    Dim dbsEquipmentAndServiceHistory As Database
    Dim rstUnitNumSortCriteria As Recordset
    Dim rstServiceRecord As Recordset
 
    IntArgs = OpenArgs
 
    Set dbsEquipmentAndServiceHistory = CurrentDb
    Set rstUnitNumSortCriteria = dbsEquipmentAndServiceHistory.OpenRecordset("UnitNumSortCriteriaT")
 
    With rstUnitNumSortCriteria
    .Edit
 
    !UnitNumSortValue = IntArgs
 
    .Update
    .Close
    End With
 
    Set dbsEquipmentAndServiceHistory = CurrentDb
    Set rstServiceRecord = dbsEquipmentAndServiceHistory.OpenRecordset("ServiceRecordT")
 
    With rstServiceRecord
    rstServiceRecord.FindFirst "[UnitNum] =" & "'" & IntArgs & "'"
 
    If rstServiceRecord.NoMatch Then
 
        DoCmd.OpenForm "ServiceRecordNewF", acNormal, , , acFormAdd, , IntArgs
        DoCmb.Close "ServiceRecordF"
 
    End If
    .Close
    End With
    dbsEquipmentAndServiceHistory.Close
 

When I open this form, the code stops at : rstServiceRecord.FindFirst "[UnitNum] =" & "'" & IntArgs & "'"

I receive the following message box message "Run time error '3251' Operation is not supported for this type of object"

The little debug functionality shows that I've passed my OpenArgs value successfully. I just don't see what's wrong with any of the objects in the line. Sorry to show the whole sub, just don't know enough to assume.

[MikeTheBike]

Hi

At first glance the only thing I could see is that if [UnitNum] is a numeric field (hinted at by IntArge) then this

rstServiceRecord.FindFirst "[UnitNum] =" & "'" & IntArgs & "'"

should be this

rstServiceRecord.FindFirst "[UnitNum] =" & IntArgs

??

MTB

[CameronCarlile]

UnitNum is text, although I happen to be passing numbers. I try to do my homework before seeking out guidance. I'm terribly appreciative of whatever help is provided. I just can't make sense of this. Am I perhaps using the DAO methods incorrectly above?

Again, I have two forms (one for creating records one for editing records) I want to utilize, but the decision on which to go to is based on whether an existing record is out there.

You can also see above where I'm updating a record with OpenArgs information so I can SQL with the term. That part works, but I don't want to assume it doesn't cause problems below.

[CameronCarlile]

I think I figured it out. Looks like I needed to set the parameter dbOpenDynaset to get past the object problem.

Set rstServiceRecord = dbsEquipmentAndServiceHistory.OpenRecordset("Servi ceRecordT", dbOpenDynaset)