Usando Access

Coleção WizHook

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).

Esta coleção, que é utilizada pelo construtor do Access, é pouco conhecida pela maioria dos programadores.  Ao abrir o Pesquisador de objetos do VBA, clique com o botão direito do mouse na tela, conforme apresentado na imagem abaixo, e selecione "Exibir membros ocultos".

Corra a lista de Classes e selecione a Classe WizHook.  Verifique que à direita da tela é exibida uma lista de Membros. Vou  me deter aqui, apenas a três desses Membros, os quais considero interessantes. 

O procedimento SortStringArray()

Utilizado para ordenar uma matriz do tipo String.  Observe o código exemplo:

Public sub fncOdernarMatriz

Dim Fruta(3) As String
Dim i As Integer

Fruta(0) = "Pera"
Fruta(1) = "Banana"
Fruta(2) = "Limão"
Fruta(3) = "Abacate"
      
WizHook.SortStringArray Fruta 'Ordena a matriz do tipo String
    
MsgBox join(Fruta, " ") 'Exibe a lista ordenada na caixa de mensagem   

End sub

Nota:  A função Join() transforma uma Matriz em uma Lista, portanto a Caixa de Mensagem irá exibir a sequência:

Abacate Banana Limão Pera

Lembrando que o procedimento SortStringArray ordena apenas Matriz do tipo string.  Para ordenar uma Matriz do tipo número é preciso utilizar a função abaixo:

Public Sub fncOrdenarArray(Prova)
Dim i%, j%, uB%, Temp, temp2
uB = UBound(Prova)
For i = LBound(Prova) To uB - 1
    For j = i + 1 To uB
        If Cdbl(Prova(i)) > Cdbl(Prova(j)) Then
            Temp = Prova(j)
            Prova(j) = Prova(i)
            Prova(i) = Temp
        End If
    Next j
Next i
End Sub

Para ordenar, basta chamar pela função, utilizando o comando Call.

Call fncOrdenarArray(nome matriz numérica)

A função OpenPictureFile()

Utilizada para abrir uma tela de busca, exclusiva para arquivos de imagens:

Public Function fncCapturaNomeImagem()
Dim wzFileName As String
Dim wzCancelled As Boolean
Dim ret As Boolean

WizHook.key = 51488399
ret = WizHook.OpenPictureFile(wzFileName, wzCancelled)
    
If wzCancelled = False Then fncCapturaNomeImagem = wzFileName

End Function

A chave (key) é necessária para que a função funcione.  Ao rodar a função, a seguinte tela de procura é exibida:

Ao selecionar a imagem,  a função irá retornar com o local e o nome da imagem.  Exemplo:

c:\Maestro\Imagens\avel.gif

A função FileExists()

Utilizada para verificar se o arquivo existe na pasta indicada.

A chave (key) é necessária para que a função funcione.

Mais detalhes das outras funções e procedimentos, clique AQUI.

Bom estudo!

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 |