Notifications
Clear all

Como fazer function de busca em tabela access  

  RSS

JoaoAnacle
(@joaoanacle)
New Member
Entrou: 12 meses atrás
Posts: 4
03/10/2019 5:13 am  

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?


ResponderCitar (Quote)
Reinaldo
(@rlm)
Estimable Member
Entrou: 6 anos atrás
Posts: 247
04/10/2019 2:21 pm  

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

Reinaldo


ResponderCitar (Quote)
Compartilhar: