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

DONUT PROJECT - VBA - Access - Saiba o Número de Registro de 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
Envie comentários e sugestões e compartilhe este artigo! 
⬛◼◾▪ Social Media ▪◾◼⬛
• FACEBOOK • TWITTER • INSTAGRAM • TUMBLR • GOOGLE+ • LINKEDIN • PINTEREST

⬛◼◾▪ Blogs ▪◾◼⬛ 

⬛◼◾▪ CONTATO ▪
Related Posts Plugin for WordPress, Blogger...

Vitrine

diHITT - Notícias