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


3 participantes

    [Resolvido]inserir imagem

    avatar
    marcomconh
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 08/10/2016

    [Resolvido]inserir imagem Empty [Resolvido]inserir imagem

    Mensagem  marcomconh 8/10/2016, 18:11

    Boa tarde !

    tenho um formulário de cadastro de material e nele coloquei um campo de anexo para imagem.
    Tudo funciona perfeitamente nesta parte do cadastro, a imagem aparece, gera um código para o cadastro, tudo certo.
    Porem tenho outro formulário principal aonde eu digito o código do material gerado no cadastro e automaticamente preenche todos os campos indicado pela formula:

    Private Sub cboCódigo_AfterUpdate()
    Me.txtTrabalho = Me.cboCódigo.Column(1)
    Me.txtMaterial = Me.cboCódigo.Column(2)
    Me.txtImpressão = Me.cboCódigo.Column(3)
    Me.txtTamanhoEtiqueta = Me.cboCódigo.Column(4)
    Me.txtTamanhoCorte = Me.cboCódigo.Column(5)
    Me.txtMontagem = Me.cboCódigo.Column(6)
    Me.txtSetorImpressão = Me.cboCódigo.Column(7)
    Me.txtTipoMáquina = Me.cboCódigo.Column(Cool
    Me.txtNavalha = Me.cboCódigo.Column(9)
    Me.txtProcessoProdução = Me.cboCódigo.Column(10)
    Me.txtOBS = Me.cboCódigo.Column(11)
    Me.txtAmostra = Me.cboCódigo.Column(12)

    End Sub

    Sendo que o ultimo campo como anexo não aparece a imagem.
    Alguem sabe me dizer o que posso fazer para corrigir ?
    Muito obrigado pela atenção.
    avatar
    Jozelia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 8
    Registrado : 03/10/2016

    [Resolvido]inserir imagem Empty Re: [Resolvido]inserir imagem

    Mensagem  Jozelia 8/10/2016, 18:18

    Sub carrega_foto()

    Dim local_imagem As String
    Dim cod As String

    linha = 2
    cod = txt_codigo 'codigo do produto
    Sheets("estoque").Select


          Do Until Sheets("estoque").Cells(linha, 1) = ""
               
                If Sheets("estoque").Cells(linha, 1) = cod Then
                Sheets("estoque").Cells(linha, 1).Select
                ActiveCell.Offset(0, 8 ).Select 'colocar a coluna que esta o endereço da imagem
                local_imagem = ActiveCell
               
                On Error Resume Next
                Application.DisplayAlerts = False
               
                Me.Image1.Picture = LoadPicture(local_imagem)
                Image1.PictureSizeMode = fmPictureSizeModeStretch
                Exit Sub
               
                Else
                End If
               linha = linha + 1

          Loop
    avatar
    marcomconh
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 08/10/2016

    [Resolvido]inserir imagem Empty Re: [Resolvido]inserir imagem

    Mensagem  marcomconh 8/10/2016, 18:52

    Obrigado Jozelia !

    Irei tentar essa nova alternativa.
    Abraços,
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]inserir imagem Empty Re: [Resolvido]inserir imagem

    Mensagem  Silvio 8/10/2016, 20:20

    Boa tarde....

    Existe uma certa diferença entre os VBA do Excel para o Access.
    avatar
    marcomconh
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 08/10/2016

    [Resolvido]inserir imagem Empty Obrigado à todos

    Mensagem  marcomconh 27/7/2017, 11:34

    Obrigado pela atenção de todos...

    Conteúdo patrocinado


    [Resolvido]inserir imagem Empty Re: [Resolvido]inserir imagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:09