[Resolvido]Condicionante para atualização de base de dados vinculada

Saudações, nobres guerreiros!

O problema é o seguinte:
Meu bd tem 2 tabelas vinculadas (excel) – vamos chama-las aqui de TABELA A e TABELA B – e ambas possuem as seguintes características:
- Elas são (ou melhor, precisão ser) balanços de meses diferentes;
- Os nomes dos arquivos de origem (.xlsx) seguem um padrão: Balanço-01-2022, Balanço-02-2022, Balanço-03-2022 e etc;
- Cada uma delas é atualizada por um botão diferente, para isso usei uma dica muito legal do mestre ahteixeira (vide aqui).

Enfim, eu preciso carregar essas duas tabelas para poder compará-las. No entanto, essa comparação precisa obedecer duas condicionantes:
1 - A TABELA B precisa ser, obrigatoriamente, de um mês posterior a TABELA A;
2 – A diferença entre as duas tabelas NÃO pode ser superior a 2 meses.

Pergunta:
É possível colocar no botão que atualiza a TABELA B uma função que, antes de carregá-la, verifique, através do nome do arquivo, se ela obedece às condicionantes acima?
Caso sim, o carregamento continuaria; caso contrário, o carregamento seria cancelado e uma mensagem seria exibida.

Segue anexo um pequeno bd simulando a situação.

Alguém pode me dar uma luz?

Desde já, muito obrigado.

Ninguém?!

Acho que dessa vez peguei pesado demais.  

Na verdade, quando o texto é longo dá preguiça de ler e se envolver rsrs.

Crie essa função no módulo select B

Código:

Private Function fncPodePassar(ByVal strTabelaB As String) As Boolean

    Dim strTabelaA As String
    Dim dtDataA As Date
    Dim dtDataB As Date
   
    strTabelaA = fncCaminhoTabelaLigada("Tabela A")
    strTabelaA = Split(strTabelaA, "\")(UBound(Split(strTabelaA, "\")))
    dtDataA = DateSerial(Mid(strTabelaA, 12, 4), Mid(strTabelaA, 9, 2), 1)
   
    strTabelaB = Split(strTabelaB, "\")(UBound(Split(strTabelaB, "\")))
    dtDataB = DateSerial(Mid(strTabelaB, 12, 4), Mid(strTabelaB, 9, 2), 1)
   
    If Eval(DateDiff("m", dtDataA, dtDataB) & " between 1 and 2") Then
        fncPodePassar = True
    Else
        Call MsgBox("Opa! Essa não, meu patrão.")
        fncPodePassar = False
    End If

End Function

E ainda no módulo citado, antes da linha

Código:

strTable = "TABELA B"

Coloque

Código:

If Not fncPodePassar(strPathFile) Then Exit Function

Rapaz...

Confesso que achei que ninguém ia desenrolar essa.
Rolou até aposta aqui!

Meu caro DamascenoJr, você é fera!!

Muito obrigado!


P.S: "Opa! Essa não, meu patrão." foi hilário!

O fórum agradece o retorno. Sucesso.

P.S: