Newsgroup: it.comp.appl.access
Titolo: Conteggio dei record di una tabella come dato in un report

Salve a tutti, sono un novizio, spero abbate pazienza di rispondermi
con semplicità anche se la domanda sembrerà banale.
Avrei bisogno di trovare il modo di riporrtare il conteggio dei record
di una tabella (ossia il nr totale dei record) nel campo di un'altra
tabella.
ossia crearmi un tabella riepilogativa del tipo:
Nome tabella      Nr. totale dei record
a                        1
b                        2
c                        3
Grazie
Gianni

[CUT]
Avrei bisogno di trovare il modo di riporrtare il conteggio dei record
di una tabella (ossia il nr totale dei record) nel campo di un'altra
tabella.
ossia crearmi un tabella riepilogativa del tipo:
Nome tabella      Nr. totale dei record
a                        1
b                        2
c                        3
----------------------------
[Risposta]
Ora si! ;-)
Creati una Form con questi elementi :
- Pulsante di comando "Pulsante0"
- Casella di riepilogo "Elenco0" (2 colonne;Tipo origine riga : Elenco 
valori)
Su clik di "Pulsante0" ci metti questo codice :
   Dim dbs As Database
   Dim tdf As TableDef
   Dim rst As Recordset
   Dim conta As Integer
   conta = 0
   Dim conteggiorecord As Long
   conteggiorecord = 0
   Set dbs = CurrentDb
   Select Case Typ_Ogg
      Case Tables
         For Each tdf In dbs.TableDefs
            If Left(tdf.Name, 4) <> "MSys" Then
            'APRO RECORDSET TABELLA PER CONTARE RECORD
            Set rst = dbs.OpenRecordset(tdf.Name)
            rst.MoveLast
            conteggiorecord = rst.RecordCount
            rst.close
                If conta = 0 Then
                    Me.Elenco0.RowSource = tdf.Name & ";" & conteggiorecord
                Else
                    Me.Elenco0.RowSource = Me.Elenco0.RowSource & ";" & 
tdf.Name & ";" & conteggiorecord
                End If
                conta = conta + 1
                conteggiorecord = 0
            End If
         Next tdf
    End Select
    dbs.close
    Set dbs = Nothing
    conta = 0
.....
Se hai proprio bisogno di tabella... dimmelo.
-- 
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchč un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media." 

>            Set rst = dbs.OpenRecordset(tdf.Name)
Sostituiscila con :
Set rst = dbs.OpenRecordset(tdf.Name, dbOpenDynaset, dbSeeChanges)
cosě non avrai problemi.


 acceso e i piedi nel congelatore statisticamente ha una temperatura media."
Grazie della disponibilità... spero di migliorare anche grazie ai
vostrri suggerimenti!
Ciao
Gianni
http://incontenibile.com

 - Mostra testo tra virgolette -
c'e un  problema di funzionamento che non riesco a comprendere:
nel far partire il form, mi indica come errore conta = 0
dicendo: errore di compilazione: non valido all'esterno di una routine
cosa può essere?

cosa può essere?
Ti ho appena messo on-line una demo... fammi sapere.
http://www.accessgroup.it/HomeArgomenti.asp?ID=174&Oggetto2=Conteggio%20record%20tabelle
