MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Renomear Ficheiro Antes de Enviar

    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 245
    Registrado : 19/08/2010

    Renomear Ficheiro Antes de Enviar Empty Renomear Ficheiro Antes de Enviar

    Mensagem  marcelo3092 em 13/1/2021, 18:21

    Ola meus amigos estou com um problema aqui que esta me deixando doido, tenho o form de cadastro com foto porem como estou usando servidor online mysql esta foto e subida pro espaço no servidor na pasta public para quando carrega o registro ele baixa a foto e mostra no campo porem eu tenho duas formas de envio uma e via webcam dentro do access mes ele tira a foto e envia para o servidor ja renomeado, a outra e via o codigo para setar a foto, porem queria que antes de enviar ele renomea-se a foto. este e o codigo que ultilizo.

    'VarNomeFoto = "Id " & Me!id_candidato & ".jpg"

    ' Set up the File Dialog.
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

    With fDialog

    .AllowMultiSelect = True
    .Title = "A pasta com a sua logomarca"
    .Filters.Clear
    .Filters.Add "Arquivo JPG", "*.jpg"
    .Filters.Add "Arquivo BMP", "*.bmp"
    .Filters.Add "Arquivo JPGE", "*.jpge"
    .Filters.Add "Arquivo GIF", "*.gif"


    If .Show = True Then

    'Loop through each file selected and add it to our list box.


    For Each strarquivo In .SelectedItems strarquivo e o arquivo que carrega para ser enviado aqui que eu queria que ele renomea-se a foto para "Id-" & Me.id_candidato & "


    Me.Foto1 = Dir(strarquivo, vbArchive)


    Call Upload_FTP_Candidatos(strarquivo)
    Next
    Else

    End If
    End With


    DoCmd.Hourglass True
    Me.Refresh
    DoEvents
    Call Load_Imagem_Candidato
    DoEvents
    DoCmd.Hourglass False

    se alguem puder me ajuda agradeço aos amigos.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1495
    Registrado : 23/01/2018

    Renomear Ficheiro Antes de Enviar Empty Re: Renomear Ficheiro Antes de Enviar

    Mensagem  crysostomo em 13/1/2021, 18:42

    o meu é local, uma forma que tenho para renomear-las 

    Código:
    Dim Nome_da_foto
    Dim nome_da_Pasta, destino_da_pasta

    strArquivo = Me.id & "--" & Me.Nome_daFoto& ".jpg"

    nome_da_Pasta= Me.Foto1 
    destino_da_pasta= CurrentProject.Path & "\Fotos\" & strArquivo 


    Ve  te da uma luz 
    por enquanto não mexo com a web.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 22/1/2021, 08:58