Problemas con este modulo en access
Tengo un formulario en access que cuenta con un botón para modificar los datos del formulario el botón pide una contraseña pero no funciona por que me muestra el error les podre el código del modulo
Cabe destacar que me da error en un laptop en otras pc no me da ese problema
...
Function InputBoxDK(Prompt, Title) As String
Dim lngModHwnd As Long, lngThreadID As Long
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)
hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
InputBoxDK = InputBox(Prompt, Title)
UnhookWindowsHookEx hHook
End Function
-------------------------------------------------------------
El error dice error de compilación
2 Respuestas
No nos ha indicado el error que obtiene, pero ¿y si lo deja simplemente con este código?
Function InputBoxDK(Prompt, Title) As String InputBoxDK = InputBox(Prompt, Title) End Function
De hecho, ni siquiera necesita la función InputBoxDK. Ahí donde está llamando a InputBoxDK podrá usar InputBox directamente.
Si solo falla en esa maquina, lo mas probable es que falte copiar algo (puede ser un modulo externo que tenga implementado algo relativo a la seguridad).
En principio (en el código posteado) da error al no reconocer una de sus funciones y creo que el diseñador no las creo para un mensaje (que solo necesita/utiliza una simple línea).