Views

Histats

Vitrine

VBA Access - Documentando os objetos da aplicação

Existem alguns aspectos desafiadores ao implementarmos os 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 assumirão 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 da sua aplicação estou 'postando' apenas 2 aspectos bem relevantes delas: Todas as tabelas e Todas as Queries.
Ao documentá-los terá uma boa compreensão de como a sua aplicação se comporta. Cabe a você extrapolar 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   
bernardess@gmail.com     
    ' 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!




Tags: document, documentação, objects, objetos


André Luiz Bernardes
A&A® - Work smart, not hard.

✔ VBA Brazil®

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