[Resolvido]O sistema guarda a foto

Amigos boa noite. ja percorri o forum , mas não consigo adaptar no codigo.
Quero que o sistema guarda a foto

Código:

Private Sub inserirfotos_Click()
Dim s As String
s = OpenCommDlg()
If s <> "" Then
    foto = s
    foto_AfterUpdate
 
 End If
End Sub
Private Sub Form_Current()

foto_AfterUpdate

End Sub
Private Sub foto_AfterUpdate()

Dim s As String
s = Nz(foto.Value, "")
If s <> "" Then s = IIf(Dir(s) = "", "", s)
On Error Resume Next
Imagem3.Picture = s
If err.Number <> 0 Then Imagem3.Picture = ""
On Error GoTo 0
End Sub


tentando encontrar, mas não obtenho sucesso

Não entendi,...

Quero que o sistema guarda a foto

Olá, Silvio .
Eu queria que o sistema guardasse a foto adicionada.
Eu busquei por aqui mas não consegui.
Encontrei um meio de fazer isso,mas tem que ativar uma referência Microsoft Libery 11 , mas o meu VBA não tem essa referência.
Eu queria uma ajuda de uma código entre esse aí de cima para o sistema fazer uma pasta para guarda as fotos ou guarda na própria pasta do sistema.
O motivo disso é se um dia o usuário for trocar de computador ou formatar ele vai ter que adicionar todas as fotos de novo porque o caminho das fotos vao continuar os caminhos antigos.

Bom dia....

O ideal é ter uma pasta onde guardar as fotos e não dentro do sistema.

Em uma tabela qualquer, haverá o caminho onde o sistema irá "pegar" a foto.

Vou ver se encontro algo aqui no meus alfarrábios e te mando.

Entendi. Mas o objetivo é ele ter uma pasta de fotos. Ou seja ele pode pegar as foto de quiser lugar, mas guarda essas fotos em uma pasta do sistema . Para que quando for mudar de PC o caminha na tabela continua o mesmo para não refazer tudo de novo

Ele não guarda as fotos no ou dentro do sistema.

Fica apenas armazenado o caminho ( local ) onde está a foto.

Aqui no fórum temos vários exemplos disso no repositório, basta dar uma boa olhada que vai achar.

Abraços.

Vá a esse endereço...
https://www.maximoaccess.com/t6596-resolvidobd-com-fotos-no-formulario
baixe exemplo msg 6.
Acredito que seja isso que deseja.
Estude e adapte.
Abs

Obrigado a vcs dei certo aqui.