Ok grazie, ora ci guardo un po'!
Intanto, facendo un po' di prove ho trovato una query che funziona a modo:
SELECT Sum(C1 + C2 + C3) AS Tot FROM (SELECT Count(Tbl1.Campo_1) AS C1, Count(Tbl1.Campo_2) AS C2, Count(Tbl1.Campo_3) AS C3 FROM Tbl1)
E fa il suo bel conteggio in una tabella, mettetndo il suo totale in Tot
Ora però ho un po' di difficoltà a tradurlo in VBA, per ora ho scritto questo (che non funziona...non mi dà erore, ma mi fa tornare 0 su TotRecDb):
Public Function TotRecDb()
Dim strSQL As String
Dim tbf As TableDef
Dim totRec As Integer
Dim Total As Integer
Dim Name As String
Dim C1 As Integer
Dim C2 As Integer
Dim C3 As Integer
Dim C4 As Integer
Dim Tot As Integer
For Each tbf In DBEngine(0)(0).TableDefs
If Right(tbf.Name, 3) = "_BB" Then
Name = tbf.Name
strSQL = "SELECT Sum(C1 + C2 + C3) AS Tot"
strSQL = strSQL & "FROM (SELECT Count([" & Name & "].Campo_1) AS C1, Count([" & Name & "].Campo_2) AS C2, Count([" & Name & "].Campo_3) AS C3 FROM [" & Name & "])"
Total = Total + Tot
End If
Next
TotRecDb = Total
End Function
Dove sbaglio? Devo dividere ulteriormente la stringa?
EDIT: Forse ho scoperto perchè non mi funzionava il DaO.Recordset: in effetti quell'istruzione c'è anche nello script di un altro modulo del DB....quindi non posso più usarla?