[Resolvido]Copiar foto para pasta do BD em razão da rede

Olá, boa tarde!
E se ao invez de fotos eu queira inserir planilhas do excel, como procederia?
Grato!

Olá Marcelo, dê uma boa olhada nos módulos. Acredito que encontrarás a resposta. Se não encontrar, volte a postar que a gente vê como fica, ok? Mas está simples de perceber e alterar.

Ok, vou ver e volto aqui, obrigado!

Olá criquio,
Analizei o código e pude ver o que alterar para buscar planilhas, porém veio uma outra dúvida. O código copia as imagens para a pasta do projeto (front-end), mas se é em rede, as fotos só serão disponíveis na estação local, e não na pasta onde se encontra o back-end no servidor. Assim, se eu insiro uma foto, outro usuário de uma outra máquina não verá a foto que eu inseri (e cada um terá sua própria pasta de fotos,)... Aqui eu dividi o bd para testar, mas ele só reconhece a pasta "fotos" se estiver na pasta do front-end, o que não é viável, o interessante seria se ele copiasse a foto para a pasta onde está o back-end, no servidor, assim todos que acessar o msm bd terão os mesmos registros na sua máquina local. Pode ser que seja eu que não estou sabendo proceder. Você tem alguma sujestão quanto a isso? Grato

Amigo, esse exemplo é somente para vc ter o caminho de como fazer.
Por exemplo, em meu sistema tem uma opção de selecionar a pasta das fotos então vc compartilha a pasta e pronto.

É só adaptar para o que quer.

1º Faça uma tabela Config com o Campo PastaFotos
2º Tenha uma opção no sistema para alterar esse caminho
3º Salve as fotos sempre buscando essa tabela.

Meu código esta assim:

If IsNull(Me.FotoJovem) = False Then
If MsgBox("Já existe uma foto, deseja apagar e adicionar outra?", vbYesNo, "Aviso de Inclusão") = vbNo Then
DoCmd.CancelEvent
Exit Sub
Else
Me.FotoJovem = Null
End If
End If

If IsNull(Me.Nome_Jovem) = True Then
MsgBox "Para inserir a foto é necessário informar o nome do cadastrado", vbInformation, "Aviso"
DoCmd.CancelEvent
Me.Nome_Jovem.SetFocus
Else

Dim strCaminnhoPasta As String
'Pasta na tabela onde contem o caminho para salvar
strCaminnhoPasta = DLookup("[LocalFoto]", "Tabela_configuracoes_Individuais")

Dim strCaminho As String, strPastaInicial As String
Dim CopiaSegura As Object
Dim Caminho As String
Dim Pasta As String
Dim CaminhoCompleto As String
Dim fso As Object
Dim cam As String
Pasta = "Fotos"

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

' Faz a cópia do arquivo para a pasta do bd e sub pasta Fotos renomeando para jpg
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile strCaminho, strCaminnhoPasta & Me.ID_Membro.Value & Me.Nome_Jovem.Value & ".jpg"

Me.FotoMembro = strCaminnhoPasta & Me.ID_Membro.Value & Me.Nome_Jovem.Value & ".jpg"
Me.img.Picture = Me.FotoMembro

End If
End If ' fim do if que verifica campos Nome_Jovem e ID_Jovem

Olá, grato pela a dica.
Vou testar aqui e posto resultado, obrigado.

Boa tarde a todos, gostaria de agradecer a todos que me ajudaram, cosegui fazer o que o topbr me falou!
Muito obrigado a todos.

Obrigado pelo retorno

Abraço