Dúvida: Conectar um leitor Rfid(NFC) ao access 2007

Bom dia pessoal.

Venho mais uma vez a pedir uma ajudinha dos meus colegas do forum.

Eu comprei um leitor de "cartão de aproximação" com a tecnologia Rfid.
Apriore pencei que era só conectar e ele faria aleitura do cartão como um leitor de código de barras qualquer.
más quado aproximo o cartão ele apita mais não aparece nada.

Alguém poderia me ajudar com esse probleminha?
Segue imagem do leitor:

Bom dia.
Já trabalho com esta tecnologia a algum tempo;
Radio-Frequency IDentification ou, em português, Identificação por Rádio Frequência;
Pelo que estou vendo, você esta a testar pelo cartão de configuração que vem junto, um cartãozinho branco;
Em suma não é diferente do leitor a laser, recebe o foco em um campo, recebe comando de enter e pula para outro campo;

Existem diversos modelos de leitores, portais de transmissão, e outros periféricos que independem de software próprio
do fabricante, mas existem modelos que dependem destes para replicar a informação;
Se não for o seu caso e "o aparelho estiver isento de defeito" o que acontece muito com produtos chineses, digo isto porque já sofri muito
aqui na empresa com estes similares !
Crie dois campos de teste um com o foco pré definido e outro com a sequência de tabulação ex:0 e 1 esqueça um pouco o cartão que vem junto
arrume uma etiqueta destas que vem em caixas de mercadorias como impressoras, caixas de celulares, etc, tente fazer a leitura se mostrar a
sequêncial inclusa na etiqueta e pular para o outro campo ai é só passar para o próximo passo que é adaptar para o sistema que deseja;
Outra forma é utilizar o bloco de notas do computador para testar;

Este tipo de tecnologia, exige de inicio um investimento um pouco alto, impressoras (registradoras de sequênciais) para estas etiquetas que não são baratas, fora as etiquetas acho que a mais barata custa 0,03 centavos de dóllar;

Boa tarde meu jovem!

Desde agradeço Luissiscone pela atenção.
Confeço que comprei imaginando que apenas conectar e pronto.
Na verdade o sistema que eu quero fazer não tem nada de complicado, seria apenas pra ler o código qualquer apenas pra utilizar na igreja, tipo aproximar o cartão e exibir um membro cadastrado referente ao código do cartão.

Não sei se pra esse tipo de leitor tem que fazer alguma programação pra poder fazer a leitura, pq como falei ele não exibe nada quando aproximo o cartão. Apenas da um bípe e a luz fica azul.

Olá, eu também tive problemas com um leitor de RFID FC, pois o mesmo faz a leitura e não retorna o numero do crachá.

Consegui resolver com o seguinte código:

Código:



'CRIEI UMA FUNÇÃO
''-----------------------------------------------------------------------------------------------
'So it goes like this, we have a card that has physically printed the
'following sequence of numbers: 0002821060 043,03012
'
'We convert 2821060 to HEX = 2B0BC4 ( This is what ZKTeco sees )
'
'For Hikvision: We convert 2B to DEC = 43 We convert 0BC4 to DEC = 3012
'
'The result decimal number is 43 3012, pretty close to what the access panel sees.
'Now, we have to pad it so it has 8 digits like this: 04303012
'
'If the first bits are <100 in decimal we have to add a 0 in front.
'We also need to pad the rest of the bits so the second part reaches a length of 5 digits.
''-----------------------------------------------------------------------------------------------
Public Function leitorRFID(numcra As String) As Long
    
    'Dim numcra
    Dim numhex
    Dim numhex1
    Dim numhex2
    Dim numDec1
    Dim numDec2
    
        While Left(numcra, 1) = 0
            numcra = Right(numcra, Len(numcra) - 1)
        Wend
    
        'texto1 = numcra
        numhex = Hex(numcra)
      
        numhex1 = (Mid(numhex, 1, 2))
    
        numDec1 = CDec(CDbl("&h0" & numhex1))
    
        numhex2 = (Mid(numhex, 3, 7))
    
        numDec2 = CDec(CDbl("&h0" & numhex2))
        
        'Se quantidade de caracteres for < 5 inlcuir 0 a esquerda até completar 5 caracteres
        While Len(numDec2) < 5
            numDec2 = "0" & numDec2
        Wend
    
        leitorRFID = numDec1 & numDec2

End Function


'Depois no seu formulario de leitura chama a função acima.
Private Sub txRfid_AfterUpdate()

    Dim Result As Long

    If Me.txRfid <> "" Then
        Result = leitorRFID(Me.txRfid)
    Else
        rot1.caption = "Digite o numero do crachá!"
    End If

End Sub



Espero que seja util para alguém da comunidade.


Sds/Nelson Costa Neto (E-MATERIAL)
+5521979072500

Pessoal segue link do exemplo deixado aqui nos repositorios.

https://www.maximoaccess.com/t40775-leitor-de-cartao-com-rfid-fc#277619