[Resolvido]Mudar o nome da imagem em uma determinada pasta

Boa tarde pessoal tenho um formulário onde tenho um código que peguei aqui do fórum ele busca uma imagem e salva em uma pasta do windows, a imagem e salva com o nome do produto até aí está tudo beleza o problema é se o usuário digitar o nome do produto errado e depois de editar o nome do produto  ele ainda vai ficar com nome errado como resolver este problema gostaria de ao atualizar o nome do produto o nome da foto também alterasse

Código:

'On Error GoTo PROC_ERR
    
    
    ' Requer referencia a Microsoft Office 11 Object Library
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    fd.Title = "selecione o arquivo da imagem"
    fd.Filters.Add "Arquivos de imagem", "*.bmp; *.png; *.jpg", 1

    fd.Show
    
    If (fd.SelectedItems.Count > 0) Then
        Dim strPathFileOrigem, strImagens As String
        
        'arquivo escolhido
        strPathFileOrigem = fd.SelectedItems(1)
        
        'caminho destino e nome arquivo para copia de arquivo das imagens
        strImagens = Application.CurrentProject.Path & "\Fotos\" & Me.Receita & Right(strPathFileOrigem, 4)
       
        'copiar
        FileCopy strPathFileOrigem, strImagens
        MsgBox "Arquivo arquivado em: " & vbCrLf & vbCrLf & strImagens, vbInformation, "Operação concluída."
    
        'actualiza dados form
        Me.CaminhoProduto = Mid(strImagens, InStrRev(strImagens, "\") + 1)
        Me.imagemProduto.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.CaminhoProduto
        'Me.imagemCliente.Picture = Application.CurrentProject.Path & "\Fotos\" & Me.txtCaminho
        DoCmd.Save
    Else
        
        MsgBox "Não foi escolhido nenhum Arquivo", vbInformation, ""
    
    End If

Ola Marcelo,

Já tentou a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Veja estes por exemplo:
https://www.maximoaccess.com/t38442-resolvidorenomear-imagens
https://www.maximoaccess.com/t20928-resolvidomodificar-nome-de-um-arquivo-txt

Abraco

Olá boa noite tudo bem me desculpe tentei sem nenhum êxito tentei utilizar

Código:

Dim OldName, NewName
OldName = linkPasta & "\" & Campo2
NewName = linkPasta & "\" & NomeCampo2 & ".jpg" ' Define file names.
Name OldName As NewName ' Rename file.

não sei aonde estou errando mais não esta dando certo , a forma que pretendo e ao editar o nome do produto ou seja se eu digitar errado e corrigir o nome e pressionar no botão atualizar ele já mudasse o nome da foto na pasta referente

Olá Marcelo,

O código está certo, era só ajustar o caminho e nome dos ficheiros.
Pode ser no evento depois de atualizar.

Código:

Private Sub txtnomeCliente_AfterUpdate()
'ahteixeira 2021 para MAximoAccess
Dim OldName, NewName
   
    OldName = Application.CurrentProject.Path & "\Fotos\" & Me.txtCaminho  'caminho e nome ficheiro antigo
    NewName = Application.CurrentProject.Path & "\Fotos\" & Me.idCliente & "_" & Me.txtnomeCliente & Right(OldName, 4) 'caminho e nome de ficheiro novo
    Name OldName As NewName ' Rename file.
    Me.txtCaminho = Me.idCliente & "_" & Me.txtnomeCliente & Right(OldName, 4) 'para guardar o nome novo do ficheiro da foto
    MsgBox "Foi atualizado o nome do ficheiro.", vbInformation, ""
End Sub


Abraço

boa tarde meu amigo aonde estou errando

Olá Marcelo,

Ficou assim:

Código:

Private Sub Receita_AfterUpdate()

Me.Recalc

'ahteixeira 2021 para MAximoAccess
Dim OldName, NewName
   
    OldName = Application.CurrentProject.Path & "\Fotos\" & Me.txtCaminhoProduto 'caminho e nome ficheiro antigo
    NewName = Application.CurrentProject.Path & "\Fotos\" & Me.Código & "_" & Me.Receita & Right(OldName, 4) 'caminho e nome de ficheiro novo
    Name OldName As NewName ' Rename file.
    Me.txtCaminhoProduto = Me.Código & "_" & Me.Receita & Right(OldName, 4) 'para guardar o nome novo do ficheiro da foto
    MsgBox "Foi atualizado o nome do ficheiro.", vbInformation, ""

End Sub


Segue o seu exemplo com código acima
cld.pt/dl/download/aad88c28-3fc6-4bc0-8722-1ead156a81bc/bolo_rev.zip

Nota importante: Deve evitar acentuação no nome dos campos e controles (eu não alterei)

Abraço

Boa noite ahteixeira muito obrigado era isso mesmo abraço