[Resolvido]Trocar imagem em um formulário a partir de outro formulário

Rodrigo

Taí  um exemplo.

Estude bem os código.

Bom estudo

Noob

Valeu mais uma vez Noob   

Noob, eu tenho apenas duas dúvidas a respeito do código:

1 - Como fazer para que ele tenha efeito somente no meu formulário principal (frmPrincipal)?
2 - Como fazer para que o formulário continue aberto após a atualização da imagem?

Grato pela atenção.

Se quer só para um formulário, por que não usou o primeiro exemplo que te enviei,
onde tem uma combobox que pode ficar no cabeçalho do formulários?


Noob

Eu queria fazer assim por que em todo meu projeto os comando abrem um form tipo uma subtela, então usando a combobox e a listbox escondidas ficaria desconexo com todo o design do sistema.

Eu tentei fazer o código assim:

Código:

Private Sub Comando4_Click()
Dim myform As String

myform = Me!Forms!frmPrincipal
DoCmd.OpenForm myform, acDesign, , , , acHidden

  If Forms(Forms().Count - 1).Name = myform Then

    Forms(Forms().Count - 1).Picture = Me.ListaImgs.Column(1)
  End If

Me.FundoTela.Picture = Me.ListaImgs.Column(1)
End Sub

e quanto a parte de não fechar o form ao atualizar a imagem?

Olá Noob,
Depois de muito tentar consegui alguma coisa.   

Estou usando este código:

Código:


Private Sub Comando3_Click()
Dim myform
myform = Forms("frmPrincipal")

DoCmd.OpenForm myform, acDesign, , , , acDialog

 If Forms(Forms().Count - 1).Name = myform Then
 
    Forms(Forms().Count - 1).Picture = Me.Lista0.Column(0)
    DoCmd.Close acForm, myform, acSaveYes
 End If
 
Me!Forms("frmPrincipal").FundoTela.Picture = Me.Lista0.Column(0)
End Sub


O unico problema é que ele retorna o seguinte erro:

Erro em tempo de execução '2498':

A expressão que você inseriu corresponde ao tipo de dados errado para um dos argumentos.

na seguinte linha:

DoCmd.OpenForm myform, acDesign, , , , acDialog

Olá Noob,
Estive "fuçando" aqui no código que me passou e finalmente consegui fazer com que ele mudasse a imagem apenas do form principal e o deixasse aberto.
O código ficou assim:

Código:

[color=#ff0000]
Private Sub Comando3_Click()

DoCmd.OpenForm "frmPrincipal", acDesign, , , , acHidden

 If Forms(Forms().Count - 1).Name = "frmPrincipal" Then
 
    Forms(Forms().Count - 1).Picture = Me.Lista0.Column(0)
    DoCmd.Close acForm, "frmprincipal", acSaveYes
 End If
DoCmd.OpenForm "frmPrincipal", acNormal
Forms("frmPrincipal").Imagem86.Picture = Me.Lista0.Column(0)
DoCmd.Close acForm, "frmMudaImagem", acSaveYes
End Sub[/color]


Muito obrigado mesmo pela sua ajuda!    

Opa Rodrigo

Só agora pude ver tua mensagem e estou respondendo.

Ótimo que conseguiu

Valeu o retorno

Boa sorte!

Noob