MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Executar função em um formulário ja aberto através de outro form

    Compartilhe
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    Registrado : 01/03/2011

    Executar função em um formulário ja aberto através de outro form

    Mensagem  HARYSOHN em Sex 24 Jun 2011, 01:53

    Amigos... Como

    Executar função em um formulário ja aberto através de outro form?

    Se puderem ajudar.. fico grato


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12240
    Registrado : 01/03/2011

    Re: [Resolvido]Executar função em um formulário ja aberto através de outro form

    Mensagem  HARYSOHN em Sex 24 Jun 2011, 02:16

    Resolvi assim:



    Private Sub btnInserir_Click()

    If Me!opcao = 0 Then
    Dim strCaminho As String, strPastaInicial As String
    strPastaInicial = "C:\Syspen\FotosAdm\"
    strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
    "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
    If Len(strCaminho) > 0 Then
    Forms![Formulário ADM].CaminhoAgente = strCaminho
    Forms![Formulário ADM].FotoAgente.Picture = Forms![Formulário ADM].CaminhoAgente
    MsgBox "Foto aplicada com Sucesso!", vbInformation, "Syspen"
    Forms![Formulário ADM].SalvarRegistro
    End If
    End If
    End Sub


    Saudações


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Hephraim BF
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 05/03/2013

    Re: [Resolvido]Executar função em um formulário ja aberto através de outro form

    Mensagem  Hephraim BF em Qua 28 Jun 2017, 16:45

    Show... Muito Bom!!!

      Data/hora atual: Ter 21 Nov 2017, 10:14