[Resolvido]Verificar a existência de tabela vinculada e de registro em tabela

Olá amigos

Tentei algumas opções de códigos que achei pela net, não consegui achar nada por aqui.

Preciso verificar se uma determinada tabela existe, e em seguida se o registro que me interessa, com a chave primária NomeTabela_ID igual a um determinado valor.

Porém, minha tabela está no back-end, então não sei se isso muda algo no código.

Obrigado a todos pela atenção

Olá,

O código abaixo verifica as três situações: tabela não existe, registro não existe ou o dado de algum campo do registro pesquisado:

Código:

Public Sub Teste()
On Error GoTo err_Teste

Dim varPesquisa As String

varPesquisa = DLookup("[NomeCampo]", "NomeTabela", "NomeTabela_ID = 1234")

If Not IsNull(varPesquisa) Then
    MsgBox "Registro existe, NomeCampo = '" & varPesquisa & "'"
Else
    MsgBox "Registro não existe"
End If

exit_Teste:
    Exit Sub
   
err_Teste:
    If Err.Number = 3078 Then
        MsgBox "Tabela não existe"
    End If
    Resume exit_Teste

End Sub

Obrigado, Cláudio, vou fazer uns testes e retorno.

Fiz algumas modificações e acabei com a seguinte função, ainda provisória.

Public Function TabelaExiste(NomeTabela As String, Optional LOG As Boolean) As Boolean
'verifica se uma determinada tabela existe, não aplicável a registro
'função válida para tabelas no no formato tblNOMETABELAdat (quando LOG = FALSE ou não inserido)
'e tblNOMETABELAlog (quando LOG = TRUE),
'com chave primária nometabelaID
Dim strPesq As String
Dim DatLog As String
On Error GoTo err_TabelaExiste

If LOG = True Then
DatLog = "log"
Else
DatLog = "dat"
End If

strPesq = DLookup("[" & NomeTabela & "ID]", "tbl" & NomeTabela & DatLog, "" & NomeTabela & "ID = 1")
TabelaExiste = True
'MsgBox "A tabela Eexiste" 'opcional para controle

exit_TabelaExiste:
Exit Function

err_TabelaExiste:
Select Case Err.Number
Case 3078
TabelaExiste = False
Case 94
TabelaExiste = True
'MsgBox "o registro 1 não existe na tabela" 'opcional para controle
Case 2471
TabelaExiste = True
'MsgBox "O campo " & NomeTabela & "ID não existe na tabela" 'opcional para controle
Case Else
MsgBox "Erro: ERRO " & Err.Number & ". " & Err.Description
End Select
Resume exit_TabelaExiste

End Function

Ainda vou adaptar para a verificação de registro e campo. Muito obrigado pela ajuda.