(Resolvido) duvida com function

[Humm]

criei uma função que verifica se determinado arquivo existe em tal diretorio..

ela funciona perfeitamente.

o problema é que ela só pesquisa no registro atual, e eu tenho um form continuo que mostra todos os registros duma vez..

como eu faço nessa function para atualizar todos os registros ao invez daquele que contem o foco?

Function STATUS() As String
    Forms!MAINUPDATE![CLIENTSTATUS] = "VERIFICANDO..."
    
    On Error GoTo STATUS_Err
    Dim fs As FileSearch, I As Integer
        
    Set fs = Application.FileSearch
    With fs
        .LookIn = "//" & DLookup("[CLIENTIP]", "SUB_CLIENTS", "[CLIENTNAME] ='" & Forms!MAINUPDATE![CLIENTNAME] & "'") & DLookup("[CLIENTPATH]", "SUB_CLIENTS", "[CLIENTNAME] ='" & Forms!MAINUPDATE![CLIENTNAME] & "'")
        .SearchSubFolders = False ' Não pesquisa em subdiretórios.
        .FileName = DLookup("[MAINFILENAME]", "MAINCONFIG") & ".MDE"
        'Screen.MousePointer = 11 'ampulheta
        If .Execute > 0 Then
            'For I = 1 To .FoundFiles.Count
                Forms!MAINUPDATE![CLIENTSTATUS] = "CLIENTE ENCONTRADO NA REDE. VERIFICANDO APLICAÇÃO...               "
                .LookIn = "//" & DLookup("[CLIENTIP]", "SUB_CLIENTS", "[CLIENTNAME] ='" & Forms!MAINUPDATE![CLIENTNAME] & "'") & DLookup("[CLIENTPATH]", "SUB_CLIENTS", "[CLIENTNAME] ='" & Forms!MAINUPDATE![CLIENTNAME] & "'")
                .SearchSubFolders = False ' Não pesquisa em subdiretórios.
                .FileName = DLookup("[MAINFILENAME]", "MAINCONFIG") & ".LDB"
                'Screen.MousePointer = 11 'ampulheta
            'Next
                If .Execute > 0 Then
                    'For I = 1 To .FoundFiles.Count
                    Forms!MAINUPDATE![CLIENTSTATUS] = "APLICAÇÃO ESTÁ EM USO NO MOMENTO, NÃO SERÁ POSSIVEL ATUALIZAR AGORA."
                    'Next
                Else
                Forms!MAINUPDATE![CLIENTSTATUS] = "PRONTO PARA RECEBER ATUALIZAÇÃO!"
                End If
        Else
            Forms!MAINUPDATE![CLIENTSTATUS] = "NÃO FOI ENCONTRADO NA REDE, VERIFIQUE SE O CLIENTE ESTÁ LIGADO E CONECTADO."
        End If
    End With
    
STATUS_Exit:
    'Screen.MousePointer = 0
    Set fs = Nothing
    Exit Function
    
STATUS_Err:
    MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, _
        vbExclamation, "Erro"
    Resume STATUS_Exit

End Function

abraços

derrepente tem que fazer um FOR NEXT que faça ele contar os registros que tem nesse recordset e ao final de cada FOR ele tipo fazer um comando recordset.findnext

sei lá.. to meio por fora mas acho que é mais ou menos por ai..

alguma ideia?

[Humm]

acabei resolvendo usando o FOR NEXT

abraços