Public Function conteggio_righe()
'funzione che restituisce il conteggio dei record di una query
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim nr_quotaz As Integer
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT Count([Nome_campo]) AS Count_rows FROM nome_tabella", dbOpenDynaset)
If (IsNull(rst!Count_rows) = True) Then
conteggio_righe = 0
Else
conteggio_righe = rst!Count_rows
End If
rst.Close
db.Close
End Function