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]Erro 2220 em código

    Compartilhe
    avatar
    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!
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    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 .
    avatar
    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: Sab 22 Jul 2017, 09:48