Tables

1.31 Verificare se una tabella è vuota
  Alessandro Baraldi

Inserire il codice seguente in un modulo standard del database.
Function tblIsEmpty(strTable As String, _
            Optional ByVal Nome_Dbs As String = vbNullString) As Boolean
   
   Dim dbs As DAO.Database
   Dim rs As DAO.Recordset
   Dim x, num_ogg As Integer
   If IsMissing(Nome_Dbs) Or Nome_Dbs = vbNullString Then
      Set dbs = CurrentDb
   Else
      Set dbs = OpenDatabase(Nome_Dbs)
   End If
   Set rs = dbs.OpenRecordset("SELECT COUNT(*) as Conta FROM " & strTable)
   tblIsEmpty = (rs!Conta <> 0)
   rs.Close
   Set rs = Nothing
End Function
La funzione di cui sopra fa riferimento alle librerie Microsoft DAO quindi, se si usa una versione di Access successiva ad Access 97 è necessario aggiungere ai riferimenti del database tale libreria.

Nota di Roberto Massoni
Nel caso in cui la tabella è contenuta nel database corrente, per verificare se è vuota si può fare ricorso anche alla funzione di aggregazione sui dominii DCount (vedi help in linea)
If DCount("*", "NomeTabella") = 0 Then
     ' la tabella è vuota
Else
     ' la tabella è piena
End If

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.