[Resolvido]falta de método de campo para inserir foto

bom tarde  colegas, alguém pode me ajudar , , está pedindo algum método para da a funcionalidade , mas ja coloquei os necessarios.

foto.value , quando eu tiro para ver , falta o Picture
O problema é na variaveil que puxa o value

tem como anexar o formulário?

Experimente assim:

On Error Resume Next
Dim S As String
S = Nz(Me.txtCaminhoda foto.Value, "")
If S <> "" Then S = IIf(Dir(S) = "", "", S)
Foto.Picture = S
If Err.Number <> 0 Then Foto.Picture = ""

Veja se ajuda este exemplo

https://www.dropbox.com/s/wocj4fxxa0rw5ch/Imagem.rar?dl=0

Estou analisando meus tópicos para serem fechados ,amigo pois eu esqueci de fechar alguns e dar retorno, .
.
Obrigado a vcs

Obrigado pela ajuda, através deste tópico encerrei o meu tópico que estava em aberto.

Uma excelente semana para todos.

primeira acontece esse erro



no seu exemplo funciona, mas quando coloco no meu não!

puxa

Código:

Option Compare Database
Option Explicit
Private Sub btnFotoADD_Click()
On Error Resume Next
Dim S As String
    S = OpenCommDlg()
    If S <> "" Then
    txtCaminho = S
    txtCaminho_AfterUpdate
End If
End Sub

Private Sub txtCaminho_AfterUpdate()
On Error Resume Next
Dim S As String
    S = Nz(Me.txtCaminho.Value, "")
    If S <> "" Then S = IIf(Dir(S) = "", "", S)
    imgFoto.Picture = S
    If Err.Number <> 0 Then imgFoto.Picture = "C:\KSAsoftware\Patrimonio\imagens\001.jpeg"
End Sub

Private Sub Form_Current()
On Error Resume Next
 txtCaminho_AfterUpdate
End Sub

Private Sub lblFechar_Click()
On Error Resume Next
DoCmd.Close
End Sub

Private Sub btnProdutosList_Click()
    DoCmd.OpenForm "frmProdutos_Pesq"
End Sub

Private Sub Detalhe_DblClick(Cancel As Integer)
    Me.Requery
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Os dados foram alterados"
strMsg = strMsg & "@Deseja salvar os dados?"
strMsg = strMsg & "@Click Sim para guardar ou Não para remover."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Guardar?") = vbYes Then

Else
DoCmd.RunCommand acCmdUndo
End If
End Sub


opa.

consegui era algo no módulo.

deletei e refiz

agora, vamos testar. rs