MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Sem entender erros de um trecho de código

    Compartilhe

    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 14/08/2011

    [Resolvido]Sem entender erros de um trecho de código

    Mensagem  leoni_dias em 16/9/2018, 21:11

    Boa tarde, senhores.

    Estou sem entender um tracho de um código usado em outros módulos sem problema algum, mas em um ocorre um erro... Explico.

    1 - o código (algo que todos conhecem

    With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Selecionar a foto do(a) funcionário(a)"
    .Filters.Clear
    .Filters.Add "JPEGs", "*.jpg"
    .FilterIndex = 1
    .AllowMultiSelect = False
    .InitialFileName = "C:\"
    If .Show = True Then
    FileName = Trim(.SelectedItems.Item(1))
    Set fso = CreateObject("Scripting.FileSystemObject")
    ORIGEM = FileName
    DESTINO = CurrentProject.path & "\FUNCIONARIOS\" & [NOME] & "-" & [Lista339] & ".jpg"
    fso.CopyFile ORIGEM, DESTINO, True
    Set fso = Nothing
    [Foto1] = DESTINO
    [Bot_Foto1].Visible = False
    [Imagem_Foto1].Visible = True
    [Bot_Foto2].Visible = True
    Me![Imagem_Foto1].Picture = [Foto1]
    End If
    End With

    2 - O problema:

    Se busco o arquivo de foto no diretório do projeto ou em subpastas pequenas tipo C:\PROJETO TEENS\TMP\TMP\TMP (criei essas pastas para teste), funciona perfeito, mas se busco o arquivo em pastas que gerem um nome de caminho maior tipo C:\PROJETO TEENS\FUNCIONARIOS\FOTOS, não funciona e acusa o erro -2147352567.

    Não consigo entender ou a minha mente é muito pequena.

    Fico no aguardo.

    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 14/08/2011

    Re: [Resolvido]Sem entender erros de um trecho de código

    Mensagem  leoni_dias em 16/9/2018, 23:05

    Boa noite,

    Em pesquisas, verifiquei que o erro se dava (não entendo porque) com a variável "ORIGEM", que não sei porque não suportava textos longos.

    O erro -2147352567 se reporta as isso. Um campo que não cabe ou não suporta uma certa quantidade.


      Data/hora atual: 15/10/2018, 20:51