[Resolvido]Incluir registros em SubFormulários

Olá pessoal. Bom dia.

Mais uma vez venho solicitar a ajuda dos mais experientes.

Tenho uma tabela (Tab_Pessoa) e uma outra (Tab_Foto)

Na Tab_Pessoa os campos Cod_Pessoa, Nom_Pessoa (entre outros).

Na Tab_Foto os campos Cod_Foto, Cod_Pessoa e LocalFoto.

As tabelas estão relacionadas pelo campo Cod_Pessoa.

Criei o FrmPessoa e o SubFrmFoto vinculados pelo campo Cod_Pessoa.

A medida que avanço o cadastro de pessoa o subform mostra as fotos normalmente.

O problema é que não estou conseguindo incluir mais fotos para a mesma pessoa.

Criei um botão LocalizarFotoPessoa, no entanto ele altera a foto existente, e gostaria de criar um novo registro
na Tab_Foto, com o mesmo Cod_Pessoa da Tab_Pessoa. Ou seja, adicionar mais fotos para a mesma pessoa.

Abaixo o código do referido botão. Este código é usado em outro form para incluir apenas uma foto no registro atual, porém
não sei como modificá-lo para incluir novos registros.

Private Sub btnLocalizarFotoPessoa_Click()
Dim StrCaminho As String, strPastaInicial As String
   
   strPastaInicial = fncLocalPastaBe("Fotos")
   StrCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
   "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")

   If Len(StrCaminho) > 0 Then
       
       Me!LocalFotoPessoa = Right(StrCaminho, Len(StrCaminho) - InStrRev(StrCaminho, "\"))
       
       
       Me!FotoPessoa.Picture = fncLocalPastaBe("Fotos") & Me!LocalFotoPessoa
       
       
   End If
End Sub

Bom dia Walter,

Da uma olhada nesse post. Pode ser que lhe ajude.

http://maximoaccess.forumeiros.com/t12925-cadastro-de-dados-de-detentos-com-4-fotos


Nivaldo.

Obrigado Nivaldo, pela sua ajuda. Este exemplo é justamente o que eu já uso no sistema. Com ele nós podemos incluir até quatro fotos na tabela cadastro. Observe que os quatro campos Foto1, Foto2, Foto3 e Foto 4 ficam na mesma tabela. È justamente o que quero evitar, pois caso a pessoa tenha menos de quatro fotos, a tabela fica com um vazio, que deve ser evitado. No meu caso criei uma tabela fotos para que fosse cadastrado quantas fotos forem necessário para a pessoa. O problema como já dito è, estando em um registro, no form pai, incluir várias fotos pelo subform na tabela fotos. Lembrando que tanto as tabelas (tabpessoa e tabfotos) estão relacionadas e os form e subform estão s ncronizados pelo mesmo campo.

E aí pessoal. Alguma sugestão? Lembrando que meu problema é como incluir a partir de um subform que está relacionado a um form principal, tendo ambos o campo codPessoa, vários registros na tabela tabfotos.

Obrigado pessoal, problema resolvido.