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

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

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

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.


https://www.dropbox.com/s/1bhvtdyd3webaj1/SGV.rar?dl=0



desde já gradeço.

Boa tarde
Em formato não reconhecido

https://www.dropbox.com/s/ob2kc4kjz0obvj2/SGV-2000-2003.rar?dl=0

em versão anterior

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

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.

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

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





https://www.dropbox.com/s/ob2kc4kjz0obvj2/SGV-2000-2003.rar?dl=0