MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Código VBA incompatível Access 64bts

    abjinfo
    abjinfo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 02/07/2015

    [Resolvido]Código VBA incompatível Access 64bts Empty [Resolvido]Código VBA incompatível Access 64bts

    Mensagem  abjinfo 28/1/2021, 01:48

    Olá pessoal do fórum!

    Estou com problemas, pois a Declaração foi feita para Access 32 bits e da erro no de 64 bits.
    Não sei como modificar para 64 btis.
    Se alguém puder me ajudar vou ficar muito grato.

    Segue o código abaixo.
    ________________________________________________________________________________

    '// Make it public = avail to ALL Modules
    '// Lets simulate the VBA Input Function
    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

    ______________________________________________________________________________
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7262
    Registrado : 15/03/2013

    [Resolvido]Código VBA incompatível Access 64bts Empty Re: [Resolvido]Código VBA incompatível Access 64bts

    Mensagem  ahteixeira 28/1/2021, 10:04

    abjinfo gosta desta mensagem

    abjinfo
    abjinfo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 103
    Registrado : 02/07/2015

    [Resolvido]Código VBA incompatível Access 64bts Empty Re: [Resolvido]Código VBA incompatível Access 64bts

    Mensagem  abjinfo 2/2/2021, 19:25

    Muito obrigado ahteixeira.

    O Tutorial do Mestre Avelino foi perfeito.

    Até.. abraços.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7262
    Registrado : 15/03/2013

    [Resolvido]Código VBA incompatível Access 64bts Empty Re: [Resolvido]Código VBA incompatível Access 64bts

    Mensagem  ahteixeira 10/2/2021, 18:36

    Olá Alexandre Jacintho,

    São mesmo de qualidade e didática os artigos do nosso colega Avelino Sampaio.
    Obrigado pelo retorno.

    Abraço

      Data/hora atual: 23/6/2021, 06:52