[Resolvido]Mensagem em tabela vinculada

Gente Boa tarde a todos!!!

Este código abaixo eu achei aqui no forum no link onde tem 102 códigos VBA muito legal. Essa linha de código consiste em ligar as tabelas ao BD. Só que eu notei que se o BD que está com as tabelas não estiver na pasta onde o código vai buscar, ele não exibe nenhuma mensagem. Eu queria adaptar uuma mensagem dizendo que o arquivo procurado não está na pasta onde o código vai buscar e abra o explore do Windows para fazer a busca do referido arquivo.. Tem jeito???

Gente desde já agradeço muito a atenção de todos... Valeu...


Bessitos


Public Function VERIFICA()
Dim BD As Database
Dim Tbs As TableDefs
Dim NConta As Variant
Dim NConta2, POSI As Single
Dim CAMINHO As String
Dim Coneccao As String
Dim Comparacao As String
Set BD = CurrentDb
Set Tbs = BD.TableDefs

NConta2 = 0
CAMINHO = "C:\Sistema\Base.accde"

For Each NConta In Tbs
If IsNull(Tbs(NConta2).Name) Or IsEmpty(Tbs(NConta2).Name) Then Exit Function
If Tbs(NConta2).Connect = "" Then GoTo PULO
If Mid(Tbs(NConta2).Connect, 11, 28) = "C:\Sistema\Base.accde" Then Exit Function
POSI = InStr(Tbs(NConta2).Connect, CAMINHO)
' Caminho e uma variavel de sistema que indica qual caminho a ser atualizado

If POSI = 0 Then
Comparacao = Mid(Tbs(NConta2).Connect, 11, 28)
If StrComp(UCase(Comparacao), UCase(CAMINHO), 1) = 0 Then GoTo PULO
End If

Coneccao = ";DATABASE=" & Trim(CAMINHO)
Tbs(NConta2).Connect = Coneccao
Tbs(NConta2).RefreshLink

PULO:
NConta2 = NConta2 + 1
Next NConta

End Function

Bom dia,

Use o código abaixo logo após a inicialização da variável CAMINHO:

Código:

If Dir(CAMINHO) = "" Then
    MsgBox "o arquivo procurado não está na pasta " & CAMINHO
    Dim f As Object
    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    f.Show
    If f.SelectedItems.Count = 1 Then
        CAMINHO = f.SelectedItems(1)
    Else
        Exit Function
    End If
End If

Opa Claudio Boa tarde meu querido... Deu certinho viu... Muito bom...

Muito obrigada pelo seu apoio tah...

Valeu

Bessitos...

Legal, disponha.
Bjs