.FindRow() fails to return a Row

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I'm passing the function FindRow a valid Record yet it fails to return a Row. How could this be?

    For Each Record In ReportDrvs.Records

         Set r = ReportDrvs.Rows.FindRow(Record)

         If (r Is Nothing) Then Err.Raise JMS_FIND_ROW_ROW_NOT_FOUND, , "JMS_FIND_ROW_ROW_NOT_FOUND"

         r.Selected = True

         Exit For

    Next Record

Obviously this code means a valid Record is being passed to FindRow. Yet, I do not get a valid Row in return and r = Nothing. How can this be?

Shawshank

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Shawshank Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 16 October 2005 Status: Offline Points: 117	Post Options Post Reply Quote Shawshank Report Post Thanks(0) Quote Reply Topic: .FindRow() fails to return a Row Posted: 21 May 2007 at 8:34pm
	I'm passing the function FindRow a valid Record yet it fails to return a Row. How could this be? For Each Record In ReportDrvs.Records Set r = ReportDrvs.Rows.FindRow(Record) If (r Is Nothing) Then Err.Raise JMS_FIND_ROW_ROW_NOT_FOUND, , "JMS_FIND_ROW_ROW_NOT_FOUND" r.Selected = True Exit For Next Record Obviously this code means a valid Record is being passed to FindRow. Yet, I do not get a valid Row in return and r = Nothing. How can this be? Shawshank