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


3 participantes

    [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios

    PPTT
    PPTT
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

    [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios Empty Janela do access oculta nos formulários, mas mostrá-la nos relatórios

    Mensagem  PPTT Qui 07 Jul 2011, 19:22

    Boas,
    tenho o seguinte módulo:
    Option Compare Database
    Option Explicit

    Global Const SW_HIDE = 0

    Private Declare 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

    Como digo acima precisava de mostrar a barra nos relatórios,
    existe por aí algum código já feito?

    Obrigado




    .................................................................................
    bounce Este lugar é o ceú
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios Empty Re: [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios

    Mensagem  criquio Qui 07 Jul 2011, 19:31

    Como você chama a função para "amoitar" a janela do Access?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    PPTT
    PPTT
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

    [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios Empty Re: [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios

    Mensagem  PPTT Qui 07 Jul 2011, 19:36

    É assim:

    Private Sub Form_Open(Cancel As Integer)

    Call FSetAccessWindow(SW_HIDE)
    DoCmd.Restore

    End Sub

    Obrigado


    .................................................................................
    bounce Este lugar é o ceú
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios Empty Re: [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios

    Mensagem  vieirasoft Qui 07 Jul 2011, 19:46

    fsetaccesswindow(3) para mostrar e 0 para esconder
    PPTT
    PPTT
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

    [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios Empty Re: [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios

    Mensagem  PPTT Qui 07 Jul 2011, 19:57

    Obrigado,

    Neste caso terei que criar outra função:
    Option Compare Database
    Option Explicit

    Global Const SW_HIDE = 3

    Private Declare 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

    Abraço





    .................................................................................
    bounce Este lugar é o ceú
    PPTT
    PPTT
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 308
    Registrado : 18/05/2011

    [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios Empty Re: [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios

    Mensagem  PPTT Qui 07 Jul 2011, 20:35

    Peço desculpa pela minha ignorância, era só
    fazer isto:

    Private Sub Report_Open(Cancel As Integer)

    Call FSetAccessWindow(3)
    DoCmd.Restore

    End Sub

    Desculpem a burrice
    Abraço


    .................................................................................
    bounce Este lugar é o ceú

    Conteúdo patrocinado


    [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios Empty Re: [Resolvido]Janela do access oculta nos formulários, mas mostrá-la nos relatórios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 28 Mar 2024, 11:51