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](https://2img.net/i/fa/i/smiles/icon_cool.gif)
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.
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](https://2img.net/i/fa/i/smiles/icon_cool.gif)
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.