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]Abrir janela de Dialogo através de código em módulo (Menu do SysBase)

    avatar
    Convidado
    Convidado


    [Resolvido]Abrir janela de Dialogo através de código em módulo (Menu do SysBase) Empty Abrir janela de Dialogo através de código em módulo (Menu do SysBase)

    Mensagem  Convidado 22/1/2013, 11:44

    Para o Colega Assis:

    Sobre a propriedade Me.hWnd, utilizada na função

    Buscar(Me.hWnd, "Inserir PDF", strPastaInicial, _
    "Arquivos PDF (*.*)" & vbNullChar & "*.pdf; *.gif; *.jpg")

    Objeto Form
    Objeto Report

    Use a propriedade hWnd para determinar o identificador (identificador: um valor Inteiro exclusivo (Longo
    em um ambiente de 32 bits) usado para identificar e acessar uma janela
    Formulário ou Relatório. Use a propriedade hWnd para retornar o
    identificador.) (um valor exclusivo de Inteiro
    Longo
    (tipo de dados Longo: um tipo de dados
    básico que contém inteiros grandes. A variável Long é armazenada como um número
    de 32 bits no intervalo de - 2.147.483.648 a 2.147.483.647.))
    atribuído pelo Microsoft Windows à janela atual. Long de
    leitura/gravação.
    Então para utilizarmos o código em um módulo é necessário informarmos este identificador da form, mas como faremos isso se não podemos utilizar a propriedade Me em um módulo?

    Simples, referenciando o form na expressão:


    Sub AbrePDF()
    Dim strCaminho As String, strPastaInicial As String
    strPastaInicial = CurrentProject.Path & "PDF"
    strCaminho = Buscar(Forms!ZMainMenu.HWND, "Inserir PDF", strPastaInicial, _
    "Arquivos PDF (*.*)" & vbNullChar & "*.pdf; *.gif; *.jpg")
    1: Forms!ZMainMenu.SetFocus
    End Sub



    Cumprimentos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Abrir janela de Dialogo através de código em módulo (Menu do SysBase) Empty Re: [Resolvido]Abrir janela de Dialogo através de código em módulo (Menu do SysBase)

    Mensagem  Assis 22/1/2013, 12:48

    Obrigado Harry


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Abrir janela de Dialogo através de código em módulo (Menu do SysBase) Empty Re: [Resolvido]Abrir janela de Dialogo através de código em módulo (Menu do SysBase)

    Mensagem  Convidado 22/1/2013, 13:02

    O Fórum agradece o Reotorno.

    Conteúdo patrocinado


    [Resolvido]Abrir janela de Dialogo através de código em módulo (Menu do SysBase) Empty Re: [Resolvido]Abrir janela de Dialogo através de código em módulo (Menu do SysBase)

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 09:18