Views

Histats

Vitrine

VBA Access - Documentando objetos de uma aplicação

Inline image 1

Blog Office VBA | Blog Excel | Blog Access |

Existe uma parte muito chata de se implementar nos nossos projetos, mas esta é extremamente necessária: A DOCUMENTAÇÃO DA APLICAÇÃO.

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.

Por documentar estes objetos, terá uma boa compreensão de como a sua aplicação se comporta. Cabe a você extrapolar para os relatórios, codificação VBA (módulos e classes) e formulários.

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


Tags: VBA, Outlook, email, send


✔ VBA Brazil®

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