Re: Como fazer function de busca em tabela access

Reinaldo — Fri, 04 Oct 2019 17:21:15 +0000

Não tenho como testar, por sua base/arquivo; vamos pelo exposto: Aparentemente a função BuscaNome.. "espera" como resposta um valor numérico (integer); porem está "recebendo" um texto (string). Experimente alterar a definição inicial de sua Function conforme incluindo definição adicional como string: -->Public Function BuscaNomeFuncionario(ByVal Num_Reg As Integer) As String <-- Se não funcionar disponibilize seu modelo (utilize dados fictícios se necessário) para que possamos testar/acompanhar a execução. Obs.: CrossPost https://www.tomasvasquez.com.br/forum/viewtopic.php?f=22&t=7305

Como fazer function de busca em tabela access

JoaoAnacle — Thu, 03 Oct 2019 08:13:55 +0000

Olá, estou tentando fazer uma function para buscar um valor em uma tabela no access. para isso estou usando o seguinte codigo:

Public Function BuscaNomeFuncionario(ByVal Num_Reg As Integer)
  Dim lrs As ADODB.Recordset
  Set lrs = New ADODB.Recordset
   
    lsConectar
        lrs.Open "Select Nome from funcionarios where Num_Registro = " & Num_Reg, gConexao
    
    BuscaNomeFuncionario = lrs
    
    If Not lrs Is Nothing Then
        lrs.Close
        Set lrs = Nothing
    End If
    lsDesconectar

 End Function

os codigos de conectar e desconectar e os demais de conexão estão funcionando. porem quando eu tento buscar o valor "Nome" na tabela, a função me retorna o erro: #VALOR! O comando " lrs.Open "Select Nome from funcionarios where Num_Registro = " & Num_Reg, gConexao" funciona, porem não consigo retorna a celula o valor obtido pela busca. Alguém sabe onde está o erro?

Como fazer function de busca em tabela access - Integração Excel & Access

Re: Como fazer function de busca em tabela access

Como fazer function de busca em tabela access