[Resolvido]Não consigo fixar a foto

Amigos boa tarde.
Tenho um formulário com o botão de inserir foto e 1 caixa de combinação o problema é quando eu mudo o nome da pessoa que está na caixa de combinação a imagem sai, eu quero essa foto como plano de fundo para todos. ai pra foto está no lugar tenho que aperta f5
eu coloco foto com esse código

Código:

Private Sub inserirImgCredencial_Click()
Dim s As String
s = OpenCommDlg()
If s <> "" Then
   fotoCredencial = s
    fotoCredencial_AfterUpdate
 End If
End Sub
   Private Sub Form_Current() 'as fotoCredencial é o nome do campo na tabela
fotoCredencial_AfterUpdate

End Sub
Private Sub fotoCredencial_AfterUpdate()

Dim s As String
s = Nz(fotoCredencial.Value, "")
If s <> "" Then s = IIf(Dir(s) = "", "", s)
On Error Resume Next
fotoCred.Picture = s
If Err.Number <> 0 Then fotoCred.Picture = "" ' aqui o nome do controle da foto
On Error GoTo 0
End Sub

Se você faz F5 e a foto aparece, é porque falta um refresh no form.

No final do fotoCredencial_AfterUpdate() insira;

Me.Repaint

Eu estava olhando um dos seus anexos que tinha pegado sobre isso.
ele não está fixando não.

Quer anexar aqui, para vermos isso ?

https://drive.google.com/open?id=1agYW4cytICXz_9O8GRzPnNr74Tx_UyN5

agora nem com F5 a foto não volta

Pelo que percebi, você quer a imagem de fundo do form sempre fixa.

Não é tarefa fácil, mas veja como se faz:

Download

1º No módulo "Móduloimagem", inseri uma variavel publica "Public strImagem$"

2º Criei um form oculto, para permitir que se abra o seu form "1cartão" em modo de estrutura para aplicar a imagem

3º No botão de inserir foto, mando abrir o form oculto se a imagem for escolhida:

Código:

Private Sub inserirImgCredencial_Click()
Dim s As String
s = OpenCommDlg()
    If s <> "" Then
      'envio o caminho da foto para a variavel publica
       strImagem = s
        'abro o form oculto
        DoCmd.OpenForm "frmOculto", , , , , acHidden
     End If
End Sub

4º Ao carregar do form oculto:

Código:

Private Sub Form_Load()
'mando abrir o seu form "1cartão" em modo de estrutura e oculto
    DoCmd.OpenForm "1Cartão", acDesign, , , acFormEdit, acHidden
'mando a imagem para o fundo
      Forms("1Cartão").Picture = strImagem
'redimenciono a imagem
      Forms("1Cartão").PictureSizeMode = 1
'fecho o form e salvo
      DoCmd.Close acForm, "1Cartão", acSaveYes
'mando abrir o form
      DoCmd.OpenForm "1Cartão"
' e fecho o form oculto
      DoCmd.Close acForm, Me.Name
End Sub

Obrigado pela ajuda, fecha hoje um sistema com essas ajuda
grato

Fico feliz

Obrigado pelo retorno o forum agradece.

Vou fazer a documentação deste e voltar com outros que estão em diagrama ainda, pois ainda eu voltando a praticar continua "fraco" mas estou progredindo