MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

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

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 2/9/2021, 21:57

    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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 3/9/2021, 08:18

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 4/9/2021, 02:45

    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
    Anexos
    [Resolvido]Mudar o nome da imagem em uma determinada pasta Attachmentrenomear imagem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (886 Kb) Baixado 16 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 7/9/2021, 11:55

    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
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 7/9/2021, 17:26

    boa tarde meu amigo aonde estou errando
    Anexos
    [Resolvido]Mudar o nome da imagem em uma determinada pasta Attachmentbolo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.3 Mb) Baixado 12 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 8/9/2021, 10:10

    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
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 893
    Registrado : 12/04/2016

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

    Mensagem  marcelo marques 9/9/2021, 00:34

    Boa noite ahteixeira muito obrigado era isso mesmo abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 9/9/2021, 08:30

    cheers

      Data/hora atual: 24/9/2022, 20:21