Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

DONUT PROJECT - VBA - Access - Saiba o Número de Registro cada tabela

DONUT PROJECT - VBA - Access - Saiba o Número de Registro cada tabela



Saiba quantos registros foram gerados em suas Tabelas.

Sub Records()
    '      Author: André Bernardes
    '        Date: 28/07/14 - 12:35
    ' Application: *** SalesForce®

    Dim dbs As DAO.Database
    Dim tbf As TableDef

    Set dbs = CurrentDb
    Set tbf = dbs.CreateTableDef
 
    For Each tbf In dbs.TableDefs
        Debug.Print "Tabela " & tbf.Name & ", com " & Format(tbf.RecordCount, "###,###,###") & " registros." '&Chr(10)   'vbCrLf
    Next tbf
End Sub


LinkWithinBrazilVBAAccessSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine