ACC: Como exibir imagens em um formulário ou em um relatório sem armazenar as imagens em uma tabela

Este artigo mostra como você pode exibir imagens de bitmap em um formulário ou em um relatório com apenas o caminho e o nome de arquivo armazenado na tabela do Microsoft Access.

Este artigo presume que você está familiarizado com Visual Basic for Applications e que você esteja familiarizado com a criação de aplicativos do Microsoft Access usando as ferramentas de programação fornecidas com o Microsoft Access.

Para obter mais informações sobre o Visual Basic for Applications, consulte sua versão do manual "Criando aplicativos com o Microsoft Access".

Observação : o Visual Basic for Applications é chamado Access Basic no Microsoft Access versão 2.0. Para obter mais informações sobre o Access Basic, consulte o manual "Building Applications".

Às vezes não é prático armazenar imagens em uma tabela do Microsoft Access. Se você tiver um grande número de imagens, ou se cada um dos seus arquivos de imagem for grande, o tamanho do arquivo de banco de dados do Microsoft Access pode aumentar rapidamente.

Os exemplos a seguir mostram como exibir imagens de bitmap do Windows em um formulário do Microsoft Access e em um relatório sem armazenar as imagens em uma tabela do Microsoft Access.

No Microsoft Access 97 e 7.0

Criar a tabela de dados de caminho e arquivo de armazenamento

1. Abra o banco de dados de exemplo Northwind.mdb.
2. Criar uma nova tabela é denominada Imagetable e adicione um campo de texto que é chamado ImagePath.
3. Abra a tabela Imagetable no modo folha de dados e adicione o caminho e nome de um arquivo de bitmap para cada registro. Os exemplos a seguintes mostram como os registros podem parecer:

         c:\windows\circles.bmp
         c:\windows\waves.bmp
         c:\windows\tiles.bmp
         c:\windows\bubbles.bmp
   					

Exibir imagens em um formulário

1. Use o AutoFormulário: Colunar Assistente para criar um novo formulário que é baseado na tabela ImageTable.
2. Abra o formulário Imageform no modo de design e, em seguida, adicione um controle de imagem ao formulário usando a ferramenta de imagem na caixa de ferramentas. Você será solicitado a selecionar uma imagem para inserir. Selecione qualquer imagem disponível no seu computador. O nome do controle ImageFrame.
3. Defina a propriedade NoAtual do formulário Imageform para o seguinte procedimento de evento:

         Private Sub Form_Current()
            On Error Resume Next
            Me![ImageFrame].Picture = Me![ImagePath]
         End Sub
   						

4. Defina a propriedade AfterUpdate da caixa de texto ImagePath como o seguinte procedimento de evento:

         Private Sub ImagePath_AfterUpdate()
            On Error Resume Next
            Me![ImageFrame].Picture = Me![ImagePath]
         End Sub
   						

5. Abra o formulário Imageform no modo de formulário. Observe que o formulário exibe o bitmap correspondente a cada registro.

Exibir imagens em um relatório

1. Você pode usar o Assistente de AutoRelatório para criar um novo relatório é baseado na tabela ImageTable. Nomeie o relatório ImageReport .
2. Abra ImageReport no modo de design e adicione um controle de imagem para o relatório usando a ferramenta de imagem na caixa de ferramentas. Você será solicitado a selecionar uma imagem para inserir. Selecione qualquer imagem que está disponível no seu computador. O nome do controle ImageFrame .
3. Defina o evento Format da seção "Detalhes" o relatório como o seguinte procedimento de evento:

         
         Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
            Me![Imageframe].picture = me![Imagepath]
         End Sub 
   						

4. Abra o ImageReport no modo de visualização. Observe que o relatório exibe o bitmap correspondente a cada registro.

No Microsoft Access 2.0

Criar a tabela de dados de caminho e arquivo de armazenamento

1. Abra o banco de dados de exemplo nwind.mdb.
2. Criar uma nova tabela é denominada Imagetable e adicione um campo de texto que é chamado ImagePath.
3. Abra a tabela Imagetable no modo folha de dados e adicione o caminho e nome de um arquivo de bitmap para cada registro. Os exemplos a seguintes mostram como os registros podem parecer:

         c:\windows\circles.bmp
         c:\windows\waves.bmp
         c:\windows\tiles.bmp
         c:\windows\bubbles.bmp

Exibir as imagens em um formulário

1. Use o Assistente de AutoFormulário para criar um novo formulário baseado na tabela ImageTable. Nome do formulário Imageform.
2. Abra o formulário Imageform no modo de design e em seguida, adicione um quadro de objeto não acoplado usando na ferramenta moldura de objeto não acoplado, na caixa de ferramentas. O nome do controle ImageFrame.
3. Defina a propriedade NoAtual do formulário Imageform para o seguinte procedimento de evento:

         Private Sub Form_Current()
            On Error Resume Next
            If Not IsNull(Me![ImagePath]) Then
            Me![ImageFrame].OLETypeAllowed = 1
            Me![ImageFrame].SourceDoc = Me![Imagepath]
            Me![ImageFrame].Action = 0
            End If
         End Sub
   						

4. Defina a propriedade ApósAtualizar da caixa de texto ImagePath como o seguinte procedimento de evento:

         Sub ImagePath_AfterUpdate ()
            On Error Resume Next
            Me![ImageFrame].OLETypeAllowed = 1
            Me![ImageFrame].SourceDoc = Me![Imagepath]
            Me![ImageFrame].Action = 0
         End Sub
   						

5. Defina as seguintes propriedades para o quadro de objeto não acoplado ImageFrame:

          Enabled: Yes<BR/>
          Locked: No
       
   					

6. Abra o Imageform no modo formulário. Observe que o formulário exibe o bitmap correspondente a cada registro.

Observação : no Microsoft Access 97 e versão 7.0, o formulário não exibe qualquer imagem se um caminho não é válido ou um nome de arquivo não é válido é adicionado à tabela ImageTable. No entanto, a interceptação de erro pode ser implementada para um grau adicional para certificar-se que um caminho válido e um nome de arquivo válidos são inseridos. No Microsoft Access 2.0, o formulário ignora o erro e, em seguida, exibe o bitmap mais recente no formulário.

Para obter mais informações sobre a propriedade OleTypeAllowed , pesquisar o índice da Ajuda OleTypeAllowed e, em seguida, propriedade OleTypeAllowed ou peça ao Assistente do Office do Microsoft Access 97.

Para obter mais informações sobre a propriedade Sourcedoc , pesquisar o índice da Ajuda Sourcedoc e, em seguida, propriedade DocDeOrigem ou peça ao Assistente do Office do Microsoft Access 97.