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]Transformar procedimento em função publica (modulo)

    Compartilhe

    J.Silas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 31/05/2013

    [Resolvido]Transformar procedimento em função publica (modulo)

    Mensagem  J.Silas em Qui 20 Ago 2015, 13:24

    olá pessoal estou retornando algumas atividade em access atualmente usado office 2013. Desde já agradeço a todos os membros do fórum pois este tem sido de muita ajuda tenho adquirido mais conhecimento a cada dia.

    Recentemente tive que fazer algumas atualizações eu um de meu projetos  tive que acrescenta uma logo em vários formulários diferente sendo que o logo e o mesmo para facilitar a escolha do logo recorri a um procedimento que já conheço a um bom tempo que facilita a troca de uma imagem só que o procedimento tem que estar em todos os formulários gostaria de transformar-lo em um modulo publico e chamar de qualquer formulário ate agora sem sucesso.

    fica a baixo o procedimento.



    Private Sub Form_Current()
    msgerro.Visible = False
    On Error GoTo Err_mostraimagem



    If IsNull(Me.LocalFoto) = False Then
           Me.FOTO.Picture = Me.LocalFoto
           FOTO.Visible = True
           
       Else
           Me.FOTO.Picture = ""
           FOTO.Visible = False

       End If


    Exit_mostraimagem:
       Exit Sub

    Err_mostraimagem:
       Select Case err.Number
           Case 2220       ' Não encontra a imagem
               FOTO.Visible = False
               msgerro.Visible = True
               Resume Exit_mostraimagem:
           Case Else       ' Outro Erro.
               MsgBox err.Number & " " & err.Description
               Resume Exit_mostraimagem:
       End Select
       
        If Me.NewRecord Then
           cboCliente = vbNull
       Else
           cboCliente = Me!Cliente
       End If
    End Sub




    desde fico grato por participar deste fabuloso fórum:D
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6256
    Registrado : 05/11/2009

    Re: [Resolvido]Transformar procedimento em função publica (modulo)

    Mensagem  Alexandre Neves em Sab 22 Ago 2015, 22:02

    Boa noite,
    Código:
    sub MostraImagem(frm as form)
    On Error GoTo Err_mostraimagem
    frm.msgerro.Visible = False


    If IsNull(frm.LocalFoto) = False Then
          frm.FOTO.Picture = frm.LocalFoto
          frm.FOTO.Visible = True
      Else
          frm..FOTO.Picture = ""
          frm.FOTO.Visible = False
      End If


    Exit_mostraimagem:
      Exit Sub

    Err_mostraimagem:
      Select Case err.Number
          Case 2220      ' Não encontra a imagem
              frm.FOTO.Visible = False
              frm.msgerro.Visible = True
              Resume Exit_mostraimagem:
          Case Else      ' Outro Erro.
              MsgBox err.Number & " " & err.Description
              Resume Exit_mostraimagem:
      End Select
     
        If frm..NewRecord Then
          frm.cboCliente = vbNull
      Else
          frm.cboCliente = Me!Cliente
      End If
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    J.Silas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 31/05/2013

    Re: [Resolvido]Transformar procedimento em função publica (modulo)

    Mensagem  J.Silas em Seg 24 Ago 2015, 13:37

    ola não deu certo estou enviando o exemplo do que pretendo.
    observe que estou tentando criar um modulo que funcione para vários forms.


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



    desde já gradeço.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6256
    Registrado : 05/11/2009

    Re: [Resolvido]Transformar procedimento em função publica (modulo)

    Mensagem  Alexandre Neves em Seg 24 Ago 2015, 18:23

    Boa tarde
    Em formato não reconhecido


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    J.Silas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 31/05/2013

    Re: [Resolvido]Transformar procedimento em função publica (modulo)

    Mensagem  J.Silas em Ter 25 Ago 2015, 12:19

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

    em versão anterior

    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6256
    Registrado : 05/11/2009

    Re: [Resolvido]Transformar procedimento em função publica (modulo)

    Mensagem  Alexandre Neves em Qua 26 Ago 2015, 18:52

    Boa tarde,
    O que é que não funciona e devia funcionar. Explique todos os passos


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    J.Silas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 31/05/2013

    Re: [Resolvido]Transformar procedimento em função publica (modulo)

    Mensagem  J.Silas em Qua 26 Ago 2015, 22:45

    gostaria se possível transformar a função que carrega imagem em um a função publica que carregue a mesma imagem em todos os formulário facilitado a troca e a insseção da imagem em novos formularios.


    desde já agradeço.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6256
    Registrado : 05/11/2009

    Re: [Resolvido]Transformar procedimento em função publica (modulo)

    Mensagem  Alexandre Neves em Qui 27 Ago 2015, 17:46

    Boa tarde,

    Private Sub Form_Load()
    Call MostraImagem(Me)
    End Sub

    Public Sub MostraImagem(ByVal frm As Form)
    On Error GoTo Err_mostraimagem
    frm!msgerro.Visible = False

    If IsNull(frm.LocalFoto) = False Then
    frm!FOTO.Picture = frm!LocalFoto
    frm!FOTO.Visible = True
    Else
    frm!FOTO.Picture = ""
    frm!FOTO.Visible = False
    End If


    Exit_mostraimagem:
    Exit Sub

    Err_mostraimagem:
    Select Case err.Number
    Case 2220 ' Não encontra a imagem
    frm!FOTO.Visible = False
    frm!msgerro.Visible = True
    Resume Exit_mostraimagem:
    Case Else ' Outro Erro.
    MsgBox err.Number & " " & err.Description
    Resume Exit_mostraimagem:
    End Select
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    J.Silas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 31/05/2013

    Re: [Resolvido]Transformar procedimento em função publica (modulo)

    Mensagem  J.Silas em Qui 27 Ago 2015, 23:43

    Perfeito  era exatamente o que eu estava procurando, como agradecimento deixo parte do projeto como, exemplo obrigado.

    Laughing



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

      Data/hora atual: Sab 22 Jul 2017, 09:43