Views

Histats

Vitrine

VBA Access - Documentando os objetos da aplicação

Inline image 1

Existem alguns aspectos desafiadores ao implementarmos alguns códigos em nossas aplicações. Mas ao olharmos para o projeto como um todo ainda nos cabe uma tarefa extremamente necessária: A DOCUMENTAÇÃO DA APLICAÇÃO.

Esta faz-se muito útil tanto quando precisamos voltar a aplicação para uma manutenção, bem como quando outros assumirem as futuras implementações desta.

Tenham em mente que este não é um tempo perdido, antes incluam-no quando estiverem preparando os seus apertadíssimos cronogramas.

Para que fiquem inspirados a documentar todos os objetos das suas aplicações estou 're-postando'  a documentação via código de 2 objetos bem relevantes: Todas as tabelas e Todas as Queries.

Ao documentá-los terá uma boa compreensão de como a sua aplicação se comporta, cabe-lhea criatividade de extrapolar este código para:
  • Relatórios
  • Formulários
  • Scripts VBA (módulos e classes)
  • Macros
Conforme combinado eu começo a brincadeira e vocês implementam o resto.

:: Primeiro, liste todas as tabelas da sua aplicação

Public Sub ListTables()
    ' Author:                           Date:                        Contact:
    ' André Bernardes              09/09/2010 08:43       bernardess@gmail.com     
    ' Lista todas as tabelas da aplicação.
    Dim i As Integer
     
    On Error Resume Next
     
    For i = 0 To CurrentDb.TableDefs.Count - 1
        Debug.Print "Table: " & CurrentDb.TableDefs (i).Name
    Next
End Sub



:: Segundo, liste todas as queries da sua aplicação com alguns detalhes opcionais

Public Sub ListQueries()
    ' Author:                          Date:                     Contact:
    ' André Bernardes             09/09/2010 10:05   
    ' Lista todas as tabelas da aplicação.
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim l As Integer
    On Error Resume Next
     
    For i = 0 To CurrentDb.QueryDefs.Count - 1
        Debug.Print "    Query: " & CurrentDb.QueryDefs(i).Name
        ' Opcionalmente pode-se acrescentar que se liste todos os campos:
        'For j = 0 To CurrentDb.QueryDefs(i).Fields.Count
        '    Debug.Print "Field " & CurrentDb.QueryDefs(i).Fields(j).Name
        'Next
        ' Opcionalmente pode-se listar todas as propriedades:
        'For k = 0 To CurrentDb.QueryDefs(i).Fields.Count
        '    Debug.Print "Propertie " & k & " - " & CurrentDb.QueryDefs(i).Properties(k)
        'Next
        Debug.Print "Propertie: " & CurrentDb.QueryDefs (i).Properties (16)
        Debug.Print "       SQL: " & CurrentDb.QueryDefs (i).SQL
        Debug.Print " "
    Next
End Sub

Continuem desenvolvendo e retornem para comentar o que desenvolveram de novo!

Reference:

Inspiration:

TagsVBA, VBE, tips, Access, document, documentação, objects, objetos

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias