VBA Access - Como carregar uma imagem num formulário



Aqui encontra-se uma das técnicas para colocarmos imagens dentro de um formulário MS Access.

Com esta poderá ler imagens: .jpg, .gif, .bmp para um "Image control".  E a partir daí poderá navegar no seu formulário através dos registros e suas imagens serão lidas automaticamente de um local qualquer (rede, internet, pendrive, etc...).


Perceba que o tamanho da sua imagem influenciará quanto a velocidade de apresentação da mesma no formulário.

A vantagem desta técnica é a de que poderá ter centenas de imagens que não farão o banco de dados sentar.

Por quê?

Porque as imagens não estarão dentro do banco de dados, mas à parte em um local da rede, disco, etc...

Passos:

1. Adicione um "Image control" ao seu formulário.
   Informe ao prompt o local onde estão as imagens que deseja, bem o tipo a ser utilizado.
2. Configure as propriedades por remover esta que escolheu primeiro.
3. Coloque o código a seguir no evento "On_current event"
  • Private Sub Form_Current()
      •     Let nPath="\\IMAGESERVER\PhotosBernardes\01\"
      •     If Me![ID] <> 0 Then
      •         Let Me!Img.Picture = nPath & Me![ID] & ".jpg"
      •         Let LblImg.Caption = "Arquivo: " & nPath & Me![ID] & ".JPG"
      •     End If
      • End Sub

O objeto Label simplesmente mostrará o caminho (path) da imagem, identificando algum problema caso ocorra.

Perceba que o nome da minha imagem é o mesmo código do meu campo ID. Desse modo quando o ID 956554 for mostrado no FORM, a imagem com o mesmo nome será lido com a extensão .JPG.

Claro, deixei alguns pequenos cuidados para que possam, vamos dizer...modernizar o código ok...Divirtam-se



Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...


Tags: VBA, Access, load, image, form, jpg, gif, bmp


Nenhum comentário:

Postar um comentário

diHITT - Notícias