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 FunctionLa 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 |