MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    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.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    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


    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    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.

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    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: Seg 05 Dez 2016, 04:26