[Resolvido]Botão Salvar Foto Não Salva

Boa noite a todos.
No aplicativo que vou fazendo bem devagar, criei um campo com 6 quadro para se salvar foto (guia Foto).
Quando clico no cmd busca foto ele abre no lugar certo, contudo quando mando salvar dá erro.
Alguém poderia ajudar?
Obrigado


Corrigi o banco

Acertei letras e número mas continua a dar erro conforme a imagem

Tinha esquecido de colocar o evento no texto foto para atualizar após e gerou esse erro da imagem.
Alguem poderia ajudar?

Mylton
Para estudar

Assis tentei adaptar sua dica criando outro campo p anexar as imagens.
Fiz essa adaptação nessas imagens


Private Sub btnLocalizar_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.LocalFoto = strCaminho
Me.FOTO.Picture = Me.LocalFoto
Me.FOTO.Visible = True
End If
End Sub

Private Sub btnLocalizar1_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Inserir foto1", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.LocalFoto1 = strCaminho
Me.FOTO1.Picture = Me.LocalFoto1
Me.FOTO1.Visible = True
End If
End Sub

Private Sub Comando43_Click()
DoCmd.Close
End Sub
Private Sub Comando45_Click()
LocalFoto = Null
FOTO.Visible = False
SEMFOTO.Visible = True
End Sub

Private Sub Comando59_Click()
LocalFoto1 = Null
FOTO1.Visible = False
SEMFOTO.Visible = True
End Sub



Contudo ao fechar o form vejo na tabela que só um caminho da imagem foi registrado. Dando erro no localfoto1.
Poderia comentar o pq?
Obrigado

Boa noite Mylton

Como tem 6 Fotos, tem de colocar na tabela um LocalFoto para cada uma. LocalFoto1, LocalFoto2, LocalFoto3 etc. até 6.

Ok.
Obrigado