[Resolvido]Fazer referencia a um nome de formulário através de uma variável...

Amigos na tentativa de diminuir o tamanho de meu BD estou ao invés de adicionar as imagens de meus ícones vinculando os mesmos uma vez que todos o botões que utilizo no BD tem o mesmo nome...

Criei a seguinte função:

Function ImgBotoes()

Screen.ActiveForm.BTO_DELETAR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Lixo.bmp"
Screen.ActiveForm.BTO_IMPRIMIR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Printer.bmp"
Screen.ActiveForm.BTO_PESQUISAR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Find.bmp"
Screen.ActiveForm.BTO_LIMPACAMPOS.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "New.bmp"
Screen.ActiveForm.BTO_CONFIRMA.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Disk.bmp"
Screen.ActiveForm.BTO_FECHAR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Stop.bmp"

end function

Montei dessa forma porque tenho um back end no servidor e todas as imagens ficarão lá, para em caso de atualização das mesmas fazer em um unico local...

As imagens são carregadas ok. Porém como usei o Screen para descobrir o formulário ativo me gerou o problema de que ao chamar a função no LOAD do form ele ainda não esta ativo, dado este problema queria passar o nome do formulário através de uma varíavel. A sintaxe:

strMyFormName.BTO_FECHAR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Stop.bmp"

não funciona, uma vez que o BD não reconhece a string strMyFormName como o objeto formulário, dai tentei o metodo:

Forms.strMyFormName.BTO_FECHAR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Stop.bmp"

Também não funfou!....

Alguém teria uma dica!!!!!....

... tente assim!

Function ImgBotoes(frm As form)

frm!BTO_DELETAR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Lixo.bmp"
frm!BTO_IMPRIMIR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Printer.bmp"
frm!BTO_PESQUISAR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Find.bmp"
frm!BTO_LIMPACAMPOS.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "New.bmp"
frm!BTO_CONFIRMA.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Disk.bmp"
frm!BTO_FECHAR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Stop.bmp"

end function

NO LOAD DO FORM...

ImgBotoes Me



Acho que assim da certo!

E assim ?

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

Function ImgBotoes(Form As Form)
Dim strAtivoForm As Form
Set strAtivoForm = Screen.ActiveForm
With strAtivoForm
strAtivoForm.BTO_DELETAR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Lixo.bmp"
strAtivoForm.BTO_IMPRIMIR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Printer.bmp"
strAtivoForm.BTO_PESQUISAR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Find.bmp"
strAtivoForm.BTO_LIMPACAMPOS.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "New.bmp"
strAtivoForm.BTO_CONFIRMA.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Disk.bmp"
strAtivoForm.BTO_FECHAR.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Stop.bmp"
End With
End Function

E assim ?


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

Function ImgBotoes(Form As Form)
Dim ctrl As Control
For Each ctrl In Form.Controls
If (ctrl.Name = "BTO_DELETAR") Then
ctrl.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Lixo.bmp"
ElseIf (ctrl.Name = "BTO_IMPRIMIR") Then
ctrl.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Printer.bmp"
ElseIf (ctrl.Name = "BTO_PESQUISAR") Then
ctrl.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Find.bmp"
ElseIf (ctrl.Name = "BTO_LIMPACAMPOS") Then
ctrl.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "New.bmp"
ElseIf (ctrl.Name = "BTO_CONFIRMA") Then
ctrl.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Disk.bmp"
ElseIf (ctrl.Name = "BTO_FECHAR") Then
ctrl.Picture = Replace(MostraCaminhoDaTabela("TAB_RESUMODIARIO"), "DADOS\SEI_be.accdb", "Imagens") & "Stop.bmp"
End If
Next
End Function

E ae resolveu ?

JUGLI, JPaulo e amigos...

Utilizando o "ME" para se passar o valor para a variável funcionou legal, e o esquema de leitura dos campos apresentado também foi muito interessante. Agradeço muito...

he he ... as vezes a gente se esqueçe que o simples é bem melhor.