CISA FotoGallery

Statistiche

Tot. visite contenuti : 928233
Home Articoli tecnici Tabelle IsEmpty (verifica se una tabella è vuota)

IsEmpty (verifica se una tabella è vuota)


Serve pre verificare se una Tabella è Vuota

USA LE LIBRERIE DAO

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

Alessandro Baraldi