[Resolvido]Requery num formulário com Fotografia

Boa noite Amigos

Tenho 2 formulários, FrmProduto, e frmProdutoAlterar.

Abro o frmProduto, para visualizar e se necessitar alterar dados tem um comando para abrir o frmProdutoAlterar.

Depois de fazer as alterações cliko num botão com o código abaixo.

Ao fechar o formulário vou para o mesmo registo que foi alterado, e todos os campos que eu alterei são atualizados, menos um que é a Fotografia

Dim rs As DAO.Recordset
Dim frmProd As DAO.Recordset
Set frmProd = Forms!frmProduto.RecordsetClone

If Me.Dirty Then
If MsgBox("Dados Alterados Deseja Salvar ?", vbYesNo, "Aviso") = vbNo Then
 Me.Undo
Else

Me.Actualizado = Date
End If
End If

frmProd.MoveFirst

frmProd.FindFirst "[Ref] = '" & Me.ref & "'"

Forms!frmProduto.Bookmark = frmProd.Bookmark

DoCmd.Close acForm, Me.name

Boas Assis, tente isso..

Forms!frmProduto.Bookmark = frmProd.Bookmark
Forms!frmProduto.requery
DoCmd.Close acForm, Me.name

Bom dia Silvio

Com o requery no local aonde o Amigo deu a ideia, perco a função de ao fechar o frmProdutoAlterar, voltar para o mesmo registo no formulário frmProduto, pois vai para o primeiro registo

Anexo o exemplo

Obrigado

Boa tarde Assis.

Uma parte já está feita.

Chame a rotina " call carregafoto() " ao abrir teu formulário

Código:

Private Sub carregafoto()
Dim f As String
f = "[sysId]=" & Me!sysId
DoCmd.ApplyFilter , f
    If IsNull(Me.LocalFoto) = False Then
        Me.FOTO.Picture = CurrentProject.Path & "\imagens\" & Me.LocalFoto.Value
          Else
        Me.FOTO.Picture = CurrentProject.Path & "\imagens\" & "SemFoto.gif"
    End If
    End Sub

Agora vamos ver, o porque o mesmo não atualiza. Em anexo uma imagem para colocar na pasta "imagens" que você tem.

Bom dia
up

Boa tarde amigos



Dim rs As DAO.Recordset
Dim frmProd As DAO.Recordset
Set frmProd = Forms!frmProduto.RecordsetClone


Me.CarregaDadosSalvos

If Me.Dirty Then
If MsgBox("Dados Alterados Deseja Salvar ?", vbYesNo, "Aviso") = vbNo Then
 Me.Undo
Else

Me.Requery ' fazer o Requery no próprio Formulário "frmProdutoAlterar"

Me.actualizado = Date
End If
End If

Forms!frmProduto.Requery
frmProd.MoveFirst

frmProd.FindFirst "[Ref] = '" & Me.ref & "'"

Forms!frmProduto.Bookmark = frmProd.Bookmark

DoCmd.Close acForm, Me.name