Pessoal quem pode me ajudar com esta dúvida, tenho um arquivo com extensão "xlsb" que utilizo como um banco de dados externo e em um form utilizo uma textbox para digitar a chave primaria para a busca do registro nessa tabela, só consegui
através do código abaixo mais só abrindo o arquivo.
Private Sub Txt_N_Ocorrencia_AfterUpdate()
Dim linha As Integer
Dim N_Ocorrencia As Long
N_Ocorrencia = Txt_N_Ocorrencia
' (A linha abaixo localiza um registro sem o looping pelo método find em uma tabela externa e
' para isso tenho que abrir o arquivo e depois fechar).
linha = Workbooks.Open("C:\Bco_Dados\Bco_Ocorr_Faltas.xlsb").Sheets("Bco_Ocorr_Falta").Range("A:A").Find(N_Ocorrencia).Row
Txt_N_Ocorrencia = Sheets("Bco_Ocorr_Falta").Cells(linha, 2)
Txt_D_Atual = Sheets("Bco_Ocorr_Falta").Cells(linha, 2)
Txt_D_Ocorrencia = Sheets("Bco_Ocorr_Falta").Cells(linha, 3)
Txt_N_NotaFiscal = Sheets("Bco_Ocorr_Falta").Cells(linha, 4)
Windows("Bco_Ocorr_Faltas.xlsb").Activate
ActiveWorkbook.Close
Alguém teria alguma outra solução para isso? agradeço desde já a ajuda.