[ Πίνακες ] ΠΛΗΘΟΣ ΕΓΓΡΑΦΩΝ

[kapetang]

Καλημέρα

Μάνο, δες μια προσέγγιση στην επισυναπτόμενη ΒΔ.

Πατώντας το κουμπί [Πληροφορίες Πινάκων] της φόρμας frmTablesInfo εκτελείται ο παρακάτω κώδικας,

Private Sub cmdTablesInfo_Click()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim strSQL As String
    Const conSQL As String = "INSERT INTO TablesInfo (TableName,NumRecords) VALUES('"
       
    Set db = CurrentDb
    db.Execute ("DELETE * FROM TablesInfo")
    
   For Each tdf In db.TableDefs
        ' Αγνοούμε τους πίνακες συστήματος και τους προσωρινούς
        If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name = "TablesInfo") Then
            strSQL = conSQL & tdf.Name & "', " & DCount("*", tdf.Name) & ")"
            db.Execute (strSQL)
        End If
    Next
    Set tdf = Nothing
    Set db = Nothing
End Sub

ο οποίος αποθηκεύει στο πίνακα TablesInfo τις ζητούμενες πληροφορίες.

Φιλικά/Γιώργος