Usando Access

FondoAccess.dll com as imagens em campo tipo anexo

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

Confesso que em termos de designer sou um desastre.  Este foi um dos principais motivos que me fez  migrar rapidamente para o Access 2007.  O uso de ribbons, formulários contínuos zebrados, campos com rich text, fundo em azul, cores suavizadas e muitos outros benefícios visuais, foram um alento para mim, haja vista que requerem o mínimo de esforço para implementá-los.

Uma artifício visual que eu usava bastante no Access 2003 era o uso de uma dll, chamada de FondoAccess, pois com praticamente nenhuma programação, era possível alterar o fundo de tela  (cinza feioso) por um que fizesse sentido visual para o aplicativo.   Esta dll, no Access 2007, apresentou uma falha de não recompor a imagem de fundo, ao fechar formulários, e acabei  tendo que abandoná-la.

No início de 2009, um cliente havia me perguntado se era possível introduzir a sua logomarca, substituindo o fundo azul do Access, e loucamente afirmei que sim.    Fui pra casa me perguntando por  que raios havia feito tal afirmativa, sabendo que o recurso que  tinha para isso havia falhado no Access 2007.

Depois de muito pensar e realizar alguns testes, descobri uma solução para continuar fazendo o uso do FondoAccess no Access 2007.   A solução que criei foi a de montar um formulário nas dimensões de um ponto que ficasse em movimento constante, forçando a dll a recompor a tela de fundo.  Esta solução tem funcionado para os clientes que presto serviço, sem apresentar problema algum.  Por isso, então, resolvi divulgá-la aqui.

Veja na lista abaixo algumas das propriedades que foram alteradas para que o formulário (frmFoco) tenha as dimensões de um ponto.

Largura = 0,051 cm

Estilo de borda = nenhum

Altura = 0,1 cm

Para gerar um movimento constante do formulário, criei a seguinte rotina no evento "No timer":

Private Sub Form_Timer()

   Randomize

   'Posiciono no canto esquerdo superior e acrescento um pequeno

   'movimento no sentido vertical com o rnd()
   Me.Move Left:=0, Top:=(50 * Rnd())
End Sub

Para fazer uso desta dll é necessário registrá-la no Windows e depois referenciá-la no Access.  

Utilize o executar do Windows para registrar a dll com o comando regsvr32.exe.  Exemplo:

regsvr32.exe c:\fundo\fondoaccess.dll

Usando /u você desinstala a dll, se desejar.

regsvr32.exe c:\fundo\fondoaccess.dll /u

Para referenciar a dll no Access, abra o VBA e no menu ferramenta escolha referências.  Clique no botão procurar e selecione fondoAccess.dll na pasta fundo.

Veja abaixo como são poucas as funções utilizadas para manipular a imagem de fundo com a dll FondoAccess:

Option Compare Database

Public fundo As New FondoAccess.CMDIWindow

-------------------------------------------------------------------
Function fncCarregaFundo(NomeImagem As String)

  on error resume next
  fundo.DrawMode = 1
  fundo.ImagePath = fncLocalFundo & NomeImagem
  fundo.Hook (Application.hWndAccessApp)
End Function

-------------------------------------------------------------------
Public Function fncDescarregaFundo()
  fundo.Unhook
End Function

-------------------------------------------------------------------
Public Function fncLocalFundo() As String
  fncLocalFundo = CurrentProject.Path & "\imagens\fundo\"
End Function

No evento "Ao Abrir" do formulário frmFoco, carregamos a imagem de fundo.

Private Sub Form_Open(Cancel As Integer)
  Call fncCarregaFundo(DLookup("NomeImg", "tblImagensDeFundo"))
End Sub

E no evento "Ao Fechar" do formulário, descarregamos a imagem de fundo.

Private Sub Form_Close()
  Call fncDescarregaFundo
End Sub

Como são poucas as imagens de fundo, resolvi armazená-las numa tabela , usando um novo tipo de campo do Access 2007/2010, chamado de anexo.    Neste campo, podemos armazenar vários tipos de arquivos, dentre eles, imagens de diversos tipos (bmp, gifs, jpeg e png).

No formulário, que seleciona o fundo a ser exibido (frmImgFundo), usei o novo controle anexo, com origem no campo anexo da tabela de imagens,  proporcionando um mecanismo nativo de inclusão, exclusão e visualização das imagens, sem programação.  Observe:

A questão mais complicada foi como usar a imagem do arquivo anexo, pois não é possível o uso direto, devido ao mecanismo de compactação utilizado pelo Access.   A solução encontrada foi a de extrair, através de programação, a imagem selecionada e gravá-la numa pasta chamada fundo.  A dll então carrega a imagem desta pasta.  

veja abaixo o código utilizado para a extração e gravação da imagem na pasta fundo:

Private Function fncGravaFundo()

Dim rsfrm As DAO.Recordset2
Dim rsFilho As DAO.Recordset2
Dim fld As Field2

Set rsfrm = Me.Recordset
Set rsFilho = rsfrm.Fields("imgFundo").Value
Set fld = rsFilho.Fields("filedata")

'percorre a lista de imagens do quadro de imagens
Do While Not rsFilho.EOF

  'compara a posição absoluta com o valor do campo idimg
  If rsFilho.AbsolutePosition = Idimg Then

    'verifica se existe uma imagem já gravada na pasta fundo

    'Se existir DELETA
    If Len(Dir(fncLocalFundo, vbArchive) & "") > 0 Then
      Kill fncLocalFundo & "*.gif"
    End If

    'salva a imagem escolhida do quadro de imagens, na pasta fundo
    fld.SaveToFile (fncLocalFundo)
  End If
  rsFilho.MoveNext
Loop

Set fld = Nothing
Set rsFilho = Nothing
Set rsfrm = Nothing

End Function

Veja na figura, o exemplo do fundo modificado:

Download

fundo.zip

Sobre o vídeo

Este vídeo tem duração total de 5 minutos. Porém, aqui pela página, você terá acesso apenas aos 2 minutos iniciais. Caso queira assistir o vídeo na íntegra, basta adquirir o kit UsandoAccess. Veja os detalhes da compra, clicando aqui.

Para saber mais sobre campo anexo clique aqui

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Segurança máxima, usando o OPEN

Vídeo - Aprenda sobre filtragens

Uma ajuda para quem está começando um negócio ou um projeto

Vídeo - Programação de relatórios - Parte 1

Desabilitando a faixa(ribbon) superior do Access

Adquira o kit UsandoAccess e aprenda em alta velocidade

Integrando o Access com Servidor MySQL - Introdução

Como carregar o seu menu sem que ele vá para lista de suplementos

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |