[Resolvido]modulo enserir e mover

Bo atarde, colega.
passei para o office 2010 x64.
os modulos de mover e enserir foto, não funciona mais, mesmo eu ter acrescentado a estrutura necessaria.
Já refiz e pesquisei

UP
Nenhum projeto que tem essa função está inserindo e copiando mais, não funciona no x64

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

Já pesquisei essas e refez, e não funciona para x64.
Nenhum dos codigos que adiciona e move foto funciona em x32 funfa em x64

Se o sistema só movesse a foto para o local já ta de bom tamanho, que ai ja da pra manobrar outros código.

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 !!

Boa tarde nobre.
Obrigado marcelo, na parte de adicioar a foto , ok, so não consigo copiar ele de uma pasta a outra com o nome já renomeado.
Também refiz ele com um dos seus códigos

Testei aqui e funcionou e meu office 64.

A parte de selecionar funcionou, seu código limpo, show de bola.
A outra pasta de copiar a foto não.
NO campo da Tabela (Foto2) ele joga o caminha, mas não copia a foto.
O sentido de copiar e colcar a foto em outra pasta é puxar a a foto direto do destino, porque entendo que um hora alguem vai deletar fotos sem requer e o sistema vai ficar sem foto.
Obs.: Sempre fica na disco C



Office 2010 x64

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

MArcelo, perdoe-me. Passei mal e afastrei dastelas.
Vou refer e te retorno

Boa tarde Marcelo.
Ficou muoto top.
Interressante esse código

Código:

Mid("Marcelo.png", InStr("Marcelo.png", "."))

sensacional.

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