MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp)

    Eloirp
    Eloirp
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 209
    Registrado : 15/06/2013

    Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp) Empty Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp)

    Mensagem  Eloirp em 15/6/2020, 15:30

    Meu aplicativo trabalha com o Access oculto com a função abaixo:

    Código:
    Global Const SW_HIDE = 0
    Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long


    Public Function FSetAccessWindow(nCmdShow As Long)

    Dim loX As Long
    Dim loForm As Form

    loX = apiShowWindow(hWndAccessApp, nCmdShow)

    End Function

    Nunca precisei visualizar relatórios, mas agora estou com essa necessidade, no entanto ao abrir com o comando abaixo abre atrás da tela devido a estar com o Access oculto, saberiam como contornar essa situação?
    Código:
    DoCmd.OpenReport strNomeRelFuncPrinter, acViewPreview, , , acDialog
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp) Empty Re: Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp)

    Mensagem  DamascenoJr. em 15/6/2020, 23:04

    Simples, basta desocultar o Access.

    No evento "ao abrir" do relatório
    Código:

    'desocultando
    Call FSetAccessWindow(255)

    No evento "ao fechar" do relatório
    Código:

    'ocultando
    call FSetAccessWindow(SW_HIDE)

    Outra possibilidade é abrir o relatório como janela independente (pop-up) e janela restrita. Essas propriedades ficam na guia "outra" da folha de propriedades.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Eloirp
    Eloirp
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 209
    Registrado : 15/06/2013

    Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp) Empty Re: Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp)

    Mensagem  Eloirp em 16/6/2020, 17:38

    Olá DamascenoJr,

    Muito obrigado pelo retorno.
    Tentei das duas formas, mas infelizmente nenhuma funcionou...
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp) Empty Re: Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp)

    Mensagem  DamascenoJr. em 16/6/2020, 21:29

    Parafraseando o membro Alexandre Neves: "não façamos o que já está feito".

    Anexe um pequeno exemplo com estrutura similar ao seu banco original. Assim conheceremos melhor como está estruturado seus objetos e a ajuda será mais objetiva.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Eloirp
    Eloirp
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 209
    Registrado : 15/06/2013

    Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp) Empty Re: Como exibir relatórios acViewPreveiew quando Access oculto (hWndAccessApp)

    Mensagem  Eloirp em 17/6/2020, 20:05

    Concordo contigo, vou separar essa parte e depois posto...
    Abraços

      Data/hora atual: 6/8/2020, 21:58