FindFirst not working

Maxine14062 

You can filter the recordset directly:

    Dim rst As DAO.Recordset
    Dim SQL As String

    SQL = "Select * From SchedFieldTable Where [Width] + [Left] > 10.5 * 1440"
    Set rst = CurrentDb.OpenRecordset(SQL)
    
    If rst.RecordCount > 0 Then
        ' List the found FIDs.
        rst.MoveFirst
        While Not rst.EOF
            Debug.Print rst!FID.Value, rst!Width.Value, rst!Left.Value
            rst.MoveNext
        Wend
    End If
    rst.Close