Início
DZABEU 16/10/2020, 15:07Fala pessoal tudo bem?
A muitos anos atras, uns 7..8 anos, eu adquiri de um colega nosso um modulo de leitura da Griaule, para impressão digital. Na epoca, meu sistema rodava em MSAccess 2007 e no Windows 7, rodava tudo normal.
Estou retomando o projeto, e hoje quando fui iniciar o codigo, o sistema não esta funcionando.
O erro acontece no trecho "erro = GrFingerXCtrl1.Initialize"
?error
O objeto não aceita esta propriedade ou método
Ele ja esta referenciado nas bibliotecas do VBA (a Dll). Eu tambem instalei o programa q precisa pra rodar "NITGEN_HamsterMouse_Setup_OEM_v43026_x64", tambem testei se o leitor esta funcionando atraves de um software chamado NFD 64.exe e ele funciona normal, mas na aplicacao do access não mais..
Alguem passou por isso?
Obrigado!
A muitos anos atras, uns 7..8 anos, eu adquiri de um colega nosso um modulo de leitura da Griaule, para impressão digital. Na epoca, meu sistema rodava em MSAccess 2007 e no Windows 7, rodava tudo normal.
Estou retomando o projeto, e hoje quando fui iniciar o codigo, o sistema não esta funcionando.
O erro acontece no trecho "erro = GrFingerXCtrl1.Initialize"
?error
O objeto não aceita esta propriedade ou método
Ele ja esta referenciado nas bibliotecas do VBA (a Dll). Eu tambem instalei o programa q precisa pra rodar "NITGEN_HamsterMouse_Setup_OEM_v43026_x64", tambem testei se o leitor esta funcionando atraves de um software chamado NFD 64.exe e ele funciona normal, mas na aplicacao do access não mais..
Alguem passou por isso?
Obrigado!
- Código:
'---------------------------------------------------------------------------------------
' Procedure : InicializaBio
' Author : Harysohn P. Pina (PILOTO) - Harysohn@hotmail.com
' Fórum : Fórum Máximo Access - http://maximoaccess.maisforum.com/
' Date : 25/1/2013
' Comentários : Inicia o aplicativo de captura utilizando a dll GrFingerX
'---------------------------------------------------------------------------------------
Private Function InicializaBio()
' Cria um novo molde
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
10 On Error GoTo TrataErro
Dim NomeProcedimento As String
20 NomeProcedimento = "InicializaBio"
'Adiciona o nome do procedimento à função
30 PegaProcedimento (NomeProcedimento)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
40 ReDim template.tpt(10000) As Byte
50 raw.widht = 0
60 raw.Height = 0
' Inicia a biblioteca
70 erro = GrFingerXCtrl1.Initialize
80 If erro < 0 Then
90 EscreveLog ("Erro no aparelho de biometria")
100 Exit Function
110 End If
' Inicia Captura
120 InicializaBio = GrFingerXCtrl1.CapInitialize
130 Exit Function
140 Exit Function
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Tratamento de Erros
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Exit_TrataErro:
150 DoCmd.Hourglass False
160 DoCmd.Echo True
170 Exit Function
TrataErro:
180 Select Case err.Number
Case 0
'Não é um erro
190 Case Else
200 DoCmd.Hourglass False
210 DoCmd.Echo True
'Chama a função global de tratamento de erros
220 GlobalErrHandler (Me.Name)
230 End Select
End Function
