Can't FindFirst

Question

In the OnCurrent event of a form, I have the following code:

If Me!RemBox = "REM" Then

    Dim rst As DAO.Recordset, WOValue As Variant

    Dim lngBlue As Long, lngGreen As Long, lngRed As Long, lngYellow As Long, lngWhite As Long

    lngRed = RGB(255, 0, 0)

    lngYellow = RGB(255, 255, 0)

    lngBlue = RGB(173, 216, 230)

    lngGreen = RGB(144, 238, 144)

    lngWhite = RGB(255, 255, 255)

    WOValue = Me!WONo.Value

 MsgBox "[WONo]=" & WOValue

    Set rst = CurrentDb().OpenRecordset("SCHEDULE")

rst.FindFirst "[WONo]=" & WOValue

    Do While "[WONo]=” & WOValue

        If Not rst.NoMatch Then

           Forms!ScheduleForm!SONo.BackColor = lngYellow

        End If

        rst.FindNext "[WONo]=" & WOValue

    Loop

End If

The line rst.FindFirst “[WONo]=” & WOValue always errors ‘Operation is not supported for this type of object’. WONo is a field on the form and in the underlying table. It is ShortText and it is indexed. The MsgBox line gives a correct display [WONo]=112233

What am I doing wrong?

Answer 1

Finally got it to find the record with: rst.FindFirst "[WONo]='" & WOValue & "'"

Now I have a statement: Forms!ScheduleForm!SONo.BackColor = lngYellow

where lngYellow is dim as Long

and its value is lngYellow = RGB(255, 255, 0)

However, the field SONo is NOT showing up as yellow or any other color.

How do you set a datasheet field on a split form to have a BackColor in VBA??

Answer 2

Still getting the same error message.

Answer 3

Still getting the same error message.

Answer 4

Try DIMming WOValue as String

Answer 5

Change the line

Set rst = CurrentDb().OpenRecordset("SCHEDULE")

to

Set rst = CurrentDb.OpenRecordset("SCHEDULE", dbOpenDynaset)