[Resolvido]Erro de compilação

Prezados, hoje ao tentar compilar um FE no access 2013 64bits (Win10 64bits) ocorreu esse erro, o que não consigo entender é pq no 2007 consegui.

Olá Tauron,

A imagem está ruim e não dá pra identificar o erro.
Se possível, nos envie seu bd com as partes envolvidas no erro para analisarmos.

Grato.

[]'s

Segue o modulo que apresenta o erro

Tauron,

Eu compilei seu módulo e não de erro.
Tente isso:
Nas declarações de API, substitua o "Private Declare" por "Public Declare" ou somente "Declare".

Boa Sorte

[]'s

Alexandre, Obrigado mas o problema é justamente nesta funcao:


Erro de Compilacao:  tipos incompativeis

Public Function InputBoxDK(Prompt As String, Optional Title As String, _
Optional Default As String, _
Optional Xpos As Long, _
Optional Ypos As Long, _
Optional Helpfile As String, _
Optional Context As Long) As String

Dim lngModHwnd As Long, lngThreadID As Long

'// Lets handle any Errors JIC! due to HookProc> App hang!
On Error GoTo ExitProperly
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)

hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
If Xpos Then
InputBoxDK = InputBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)
Else
InputBoxDK = InputBox(Prompt, Title, Default, , , Helpfile, Context)
End If

ExitProperly:
UnhookWindowsHookEx hHook

End Function

Bom dia,

Veja se isso te ajuda:

http://www.usandoaccess.com.br/tutoriais/inputbox-com-entrada-para-senha.asp?id=1#inicio
https://www.maximoaccess.com/t28022-resolvido-funcionar-em-32-e-64-bits-addressof-newproc-com-erro

Muito obrigado Caio e Alexandre, funfou perfeito (espero que definitivamente)