ACC: Como apresentar imagens num formulário ou um relatório sem armazenar as imagens numa tabela

Este artigo mostra como pode apresentar imagens de mapa de bits num formulário ou num relatório com apenas o caminho e o nome de ficheiro armazenadas na tabela do Microsoft Access.

Este artigo pressupõe que está familiarizado com o Visual Basic for Applications e que está familiarizado com a criação de aplicações do Microsoft Access utilizando as ferramentas de programação fornecidas com o Microsoft Access.

Para mais informações sobre o Visual Basic for Applications, consulte a versão do manual "Criar aplicações com o Microsoft Access".

Nota : Visual Basic for Applications é designado por Basic do Access no Microsoft Access versão 2.0. Para mais informações sobre o Basic do Access, consulte o manual "Building Applications".

Por vezes, não é prático armazenar imagens numa tabela do Microsoft Access. Se tiver um grande número de imagens ou se cada um dos ficheiros de imagem for grande, o tamanho do ficheiro de base de dados do Microsoft Access pode aumentar rapidamente.

Os exemplos seguintes mostram como apresentar imagens de mapa de bits do Windows num formulário do Microsoft Access e num relatório sem armazenar as imagens numa tabela do Microsoft Access.

No Microsoft Access 97 e 7.0

Criar a tabela para armazenar ficheiros e dados de caminho

1. Abra a base de dados exemplo Adamastor.mdb.
2. Crie uma nova tabela denominada Imagetable e adicione um campo de texto que é denominado ImagePath.
3. Abra a tabela Imagetable na vista de folha de dados e, em seguida, adicione o caminho e nome de um ficheiro de mapa de bits a cada registo. Os exemplos seguintes mostram os registos apresentamos o aspecto:

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

Apresentar imagens de um formulário

1. Utilizar o formulário automático: colunas Assistente para criar um novo formulário baseado na tabela ImageTable.
2. Abra o formulário frmImagem na vista de estrutura e, em seguida, adicionar um controlo de imagem ao formulário utilizando a ferramenta de imagem na caixa de ferramentas. É-lhe pedido para seleccionar uma imagem a inserir. Seleccione qualquer imagem disponível no computador. Nome do controlo ImageFrame.
3. Defina a propriedade NoActual do formulário frmImagem 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 DepoisDeActualizar da caixa de texto ImagePath para 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 frmImagem na vista de formulário. Repare que o formulário apresenta o mapa de bits correspondente para cada registo.

Apresentar imagens num relatório

1. Pode utilizar o Assistente de relatórios automáticos para criar um novo relatório baseado na tabela ImageTable. Nome do relatório ImageReport .
2. Abra ImageReport na vista de estrutura e adicione um controlo de imagem para o relatório utilizando a ferramenta de imagem na caixa de ferramentas. É-lhe pedido para seleccionar uma imagem a inserir. Seleccione qualquer imagem que está disponível no computador. Nome do controlo ImageFrame .
3. Definir o evento Formatar da secção "Detalhes sobre a" do relatório para 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 pré-visualização. Repare que o relatório apresenta o mapa de bits correspondente para cada registo.

No Microsoft Access 2.0

Criar a tabela para armazenar ficheiros e dados de caminho

1. Abra a base de dados exemplo nwind.mdb.
2. Crie uma nova tabela denominada Imagetable e adicione um campo de texto que é denominado ImagePath.
3. Abra a tabela Imagetable na vista de folha de dados e, em seguida, adicione o caminho e nome de um ficheiro de mapa de bits a cada registo. Os exemplos seguintes mostram os registos apresentamos o aspecto:

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

Apresentar as imagens de um formulário

1. Utilize o Assistente de formulário automático para criar um novo formulário baseado na tabela ImageTable. Nome do formulário frmImagem.
2. Abra o formulário frmImagem na vista de estrutura e, em seguida, adicionar uma moldura de objecto desvinculado utilizando a ferramenta de moldura de objecto independente na caixa de ferramentas. Nome do controlo ImageFrame.
3. Defina a propriedade NoActual do formulário frmImagem 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 DepoisDeActualizar da caixa de texto ImagePath para 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. Definir as seguintes propriedades para a moldura de objecto independente ImageFrame:

          Enabled: Yes<BR/>
          Locked: No
       
   					

6. Abra a frmImagem na vista de formulário. Repare que o formulário apresenta o mapa de bits correspondente para cada registo.

Nota : no Microsoft Access 97 e versão 7.0, o formulário não apresenta qualquer imagem se um caminho não válido ou um nome de ficheiro não válido é adicionado à tabela ImageTable. No entanto, pode ser implementada intercepção de erros para um grau adicional para garantir que um caminho válido e um nome de ficheiro válido são introduzidos. No Microsoft Access 2.0, o formulário ignora o erro e, em seguida, apresenta o mapa de bits mais recente do formulário.

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

Para mais informações sobre a propriedade Sourcedoc , procurar o índice remissivo da ajuda Sourcedoc e propriedade DocDeOrigem ou pergunte ao Microsoft Access 97 do Assistente do Office.