[Resolvido]modulo enserir e mover

Não sei se é exatamente o que deseja
https://www.maximoaccess.com/t20295-resolvidoinserir-foto-em-um-formulario-e-visualiza-las-em-um-relatorio

Encontrei esse artigo
(devhut.net/vba-move-a-file-from-one-directory-to-another/)
Talvez ajude
Abs

Bom
Não sou TI
E pouco sei de programação em relação a vcs.
Mas acredito que ache
Algo
(isladogs.co.uk/folder-image-viewer/index.html)

Fora isso vou continuar a procurar algo P ajudar a vc
Mas não sei programar como vcs.

Boa tarde, Gilliard, tudo bem?
Veja se minha videoaula te ajuda.

Bons estudos!

Parabéns pelo material, Marcelo David !!!
Show !!

Testei aqui e funcionou e meu office 64.

Fiz algumas alterações:

Código que faz a copia da imagem, agora passo como parâmetro a origem da imagem direto do filedialog.

Código:

Sub CopiarFoto(strOrigem As String)
    On Error Resume Next
    Dim strArquivo
    Dim SourceFile, DestinationFile

    strArquivo = "Cliente" & "-" & Me.Cliente

    SourceFile = strOrigem  'Passo a origem da imagem
    DestinationFile = CurrentProject.Path & "\Fotos\" & strArquivo & Mid("marcelo.png", InStr("marcelo.png", "."))
    ' aqui coloca o nome da pasta de destino, current project e a pasta raiz do sistema.
    FileCopy SourceFile, DestinationFile         ' Copy source to target.
    Me.Texto19 = DestinationFile

End Sub

E o código do botão inserir foto:

Código:

   Dim selecionarFt As Office.FileDialog
    strArquivo2 = "Cliente" & " -- " & Me.Cliente
    strFoto = CurrentProject.Path & "\Fotos\" & strArquivo2

    Set selecionarFt = Application.FileDialog(msoFileDialogFilePicker)

    With selecionarFt
        .AllowMultiSelect = False
        .Title = "Selecione uma imagem"
        .Filters.Clear
        .Filters.Add "Foto do Cliente", "*.jpg, *.jpeg, *.bmp, *.gif, *png"
    
        If .Show = True Then
            Me.Foto1 = .SelectedItems(1)
            CopiarFoto .SelectedItems(1) 'ja chamo a sub que copia a foto, passando como parâmetro a origem da imagem
        Else
        End If
    End With
    Set selecionarFt = Nothing
        
    Me.Texto21 = strArquivo2

Para as operações acima, não se faz necessário o módulo: tagOPENFILENAME.

caso não use ele em outros locais, pode excluir, pois eles podem estar dando de problema e compatibilidade, por fazer uso de APIs do Windows, sendo que o Access/Office já
dispõe das mesmas funções.

Teste por favor

Feliz por ter dado certo e ter percebido outros códigos que lhes podem ser úteis. Gratos pelo retorno!