Report.RepeatLastFindReplace

Repeat the previous find and replace.

Syntax Parameters Return value
- This function has no parameters. Boolean

SVB Example

Finding additional text in a report: 

Option Base 1
Option Explicit
Sub Main
    Dim rpt As Report
    Set rpt = ActiveReport
    'see how many occurrences of "FAILURE" are found in the report
    Dim HowMany As Long
    If (rpt.Find("FAILURE",True,True)) Then
        HowMany = HowMany + 1
    End If
    While (rpt.RepeatLastFindReplace)
        HowMany = HowMany + 1
    Wend
    MsgBox "FAILURE was found " & Str(HowMany) & " times in the report"
End Sub