[Resolvido]Como alterar nome de uma foto pelo access?

Boa noite galera...
Tenho um problema e estou com dificuldade para resolve-lo gostaria de uma mãozinha.

Problema: tenho uma pasta onde contem varias fotos onde o nome de cada foto é um número da plaqueta (ex: 1.jpg, 2.jpg ...) sendo assim eu preciso de um método que altere o nome das fotos  que estão dentro da pasta para o numero do codigo

estou anexando o .accdb para que possam dar uma olhada

Eu preciso de alterar os nomes das fotos (plaquetas) para os numero dos código respectivo a cada plaqueta

desde ja agradeço.

O banco é só essas duas tabelas e a consulta? Isso não será feito em um formulário carregado com um registro?

criquio, a consulta é feita somente com essas duas tabelas, pra min resolve ser feito por qualquer tipo tanto pela consulta quanto pelo formulário, caso você tenha algum tipo de ser feito por favor me mostre.

Avelino Sampaio, eu vi esta dica 10 e provavelmente irá funcionar... porem eu não consegui executa-la você pode me mandar o MDB que você fez este procedimento?

Em um formulário você pode ter um botão com a função Name para renomear o arquivo tendo o código como base. Algo como:

Código:

Dim nomeOrigem As String, nomeDestino As String

nomeOrigem = "Coloque aqui o caminho de origem"
nomeDestino = CurrentProject.Path & "\Imagens\" & Me.nomeDoCampoDoNumero & ".jpg"

Name nomeOrigem, nomeDestino

nomeDoCampoDoNumero é o nome do campo aonde está o número que será usado como nome da imagem. O código acima está levando em conta que todas as imagens estarão no formato jpg mas basta adaptar para pegar todos os tipos de imagens.

Se tiver problemas, pesquise o "Renomear arquivo" na ajuda do VBA.

Obrigado pela resposta criquio, eu consegui fazer do jeito que você me falou, porem ele só faz para a primeira imagem as outras ocorre erro.
também eu precisava que quando eu clicasse no botão ele criasse um loop onde renomeasse todas as imagens
eu alterei o codigo que voce me passou que ficou desta forma

Código:

Private Sub Comando0_Click()
Dim nomeOrigem As String, nomeDestino As String

nomeOrigem = "C:\fotos\" & Me.PLAQUETA & ".jpg"
nomeDestino = CurrentProject.Path & "\Imagens\" & Me.CODIGO & ".jpg"

Name nomeOrigem As nomeDestino

você tem alguma ideia de como eu devo fazer para renomear todas de uma só vez?

Procure sempre dar todos os detalhes que isso facilita e agiliza as dicas. Você quer fazer isso para toda a tabela, para dados filtrados em um form contínuo, os dados da consulta, ou whatsoever? Ao que parece seriam os dados da consulta, é isso? Se for, tente um Recordset e faça o Loop:

Código:

Dim rs As Recordset, nomeOrigem As String, nomeDestino As String

Set rs = CurrentDb.OpenRecordset("001")

rs.MoveFirst

Do While Not rs.EOF
    nomeOrigem = "C:\fotos\" & rs("PLAQUETA") & ".jpg"
    nomeDestino = CurrentProject.Path & "\Imagens\" & rs("CODIGO") & ".jpg"
    Name nomeOrigem As nomeDestino
    rs.MoveNext
Loop

MsgBox "Processo concluído"

rs.Close
Set rs = Nothing

criquio, Obrigado por me ajudar funcionou certinho!!