MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Erro 2220 em código

    Compartilhe

    RAprendiz
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 08/06/2014

    [Resolvido]Erro 2220 em código

    Mensagem  RAprendiz em Sab 28 Jun 2014, 04:09

    Olá amigos,
    Com a ajuda de membros e tópicos aqui do fórum criei o seguinte código:

    Private Sub Comando3_Click()

    DoCmd.OpenForm "frmPrincipal", acDesign, , , , acHidden

    If Forms(Forms().Count - 1).Name = "frmPrincipal" Then

       Forms(Forms().Count - 1).Picture = Me.ListaImgs.Column(0)
       DoCmd.Close acForm, "frmprincipal", acSaveYes
    End If
    DoCmd.OpenForm "frmPrincipal", acNormal
    Forms("frmPrincipal").Imagem86.Picture = Me.ListaImgs.Column(0)
    DoCmd.Close acForm, "frmMudaImagem", acSaveYes
    End Sub

    Private Sub Form_Open(Cancel As Integer)
    Dim strDiretorio, strPasta, strFicheiros
    strDiretorio = CurrentProject.Path & "\Imagens\"

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set strPasta = fso.GetFolder(strDiretorio)
    Set strFicheiros = strPasta.Files
    Me.ListaImgs.RowSourceType = "Value List"
    For Each File In strFicheiros
    Me.ListaImgs.AddItem (File.Name)
    Next
    End Sub

    Private Sub ListaImgs_Click()
    Me.Preview.Picture = Me.ListaImgs.Column(0)
    End Sub


    Mas, sempre que eu fecho o access e abro novamente o sistema retorna o seguinte erro:

    Erro em tempo de execução '2220':
    O Sistema de Vendas não pode localizar o arquivo "....."


    Na seguinte linha:

    Private Sub ListaImgs_Click()
    Me.Preview.Picture = Me.ListaImgs.Column(0)


    Alguem pode me ajudar a resolver isto?


    .................................................................................
    Versão: Access 2013

    Nunca tenha certeza de nada, pois a sabedoria começa com a dúvida!

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2489
    Registrado : 29/06/2012

    Re: [Resolvido]Erro 2220 em código

    Mensagem  Noobezinho em Sab 28 Jun 2014, 04:21

    Rodrigo

    Me.Preview.Picture = Me.ListaImgs.Column(0)

    O que tem na coluna(0) da ListaImgs?

    Se for a mesma lista que eu tinha feito naquele exemplo,

    deve referenciar a coluna onde tem o caminho da figura (c:/pasta/imagem.bmp)

    É por isso que o Access não consegue encontrar a imagem.

    Veja bem o código daquele exemplo.

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    RAprendiz
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 08/06/2014

    Re: [Resolvido]Erro 2220 em código

    Mensagem  RAprendiz em Sab 28 Jun 2014, 14:29

    Obrigado Noob,
    Mas ja tinha resolvido o problema.


    .................................................................................
    Versão: Access 2013

    Nunca tenha certeza de nada, pois a sabedoria começa com a dúvida!

      Data/hora atual: Dom 04 Dez 2016, 14:14