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

    Renomear Ficheiro Antes de Enviar

    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Renomear Ficheiro Antes de Enviar Empty Renomear Ficheiro Antes de Enviar

    Mensagem  marcelo3092 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
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

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

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

    Mensagem  crysostomo 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.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 1/2/2023, 05:31