Countrecord in una serie di tabelle

martedì 09 ottobre 2007 - 16.05

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

emmanuele80 Profilo | Newbie

8 messaggi | Data Invio: mar 9 ott 2007 - 16:05

Ciao a tutti, risolto un problema vado avanti con il prossimo!

Ho una serie di tabelle e vorrei sapere il numero di record per ogni tabella.

Invece di inserire il nome di ogni tabella manualmente, vorrei che fosse il VBA a farlo per me.

Io faccio così:

Public Function conta_record()

Dim tabe, tabe1 As Recordset
Dim db As Database

Set db = CurrentDb

Set tabe = db.OpenRecordset("nome tabella")
Set tabe1 = db.OpenRecordset("TEMP_TAB")
With tabe1
.AddNew
.Update
End With
tabe1.MoveLast

tabe.MoveFirst

With tabe1
.Edit
!REC = tabe.RecordCount
![TABLE NAME] = tabe.Name
.Update
End With

End Function

Come faccio a far cambiare "nome tabella" di modo che, di seguito il VBA stesso sappia che deve passare alla tabella successiva?

Spero di essermi spiegato!!!

Ciao
Emmanuele

SSUPERPIPPO Profilo | Guru

1.095 messaggi | Data Invio: mar 9 ott 2007 - 16:40

Crei un'array di tipo stringa e ci memorizzi i nomi delle tabelle:

Per semplicità poniamo che le tabelle siano 2:

Dim StrTabelle(1) As String

StrTabelle(0)="Nome Tabella1"
StrTabelle(1)="Nome Tabella2"

Poi cicli le tabelle

For IntCont%=0 to 1

   Set tabe = db.OpenRecordset(StrTabelle(IntCont%))

   ...

Next

Spero di aver centrato il problema

Ciao

Alessandro

http://blogs.dotnethell.it/alebadalin

lbenaglia Profilo | Guru

5.625 messaggi | Data Invio: mar 9 ott 2007 - 16:41

>Ho una serie di tabelle e vorrei sapere il numero di record per
>ogni tabella.
>
>Invece di inserire il nome di ogni tabella manualmente, vorrei
>che fosse il VBA a farlo per me.
>
>Io faccio così:

Ciao Emmanuele,

non puoi eseguire una banalissima SELECT COUNT(*) FROM Tabella?

Ciao!
--
Lorenzo Benaglia
Microsoft MVP - SQL Server
http://blogs.dotnethell.it/lorenzo/
http://italy.mvps.org

emmanuele80 Profilo | Newbie

8 messaggi | Data Invio: mer 10 ott 2007 - 06:12

L'idea dell'array sarebbe buona se le tabelle fossero poche, ma, nel mio db devo gestirne una ventina. E poi, se ad esempio ne creassi un'altra, dovrei ricordare di inserirla nell'array invece di averle in automatico. Ho visto nell'help di VBA che esiste un APPLICATION.FORMS che fa a leggere tutti i forms presenti nel DB: pensavo ad una cosa del genere per le tabelle. Spero di essermi spiegato.

emmanuele80 Profilo | Newbie

8 messaggi | Data Invio: mer 10 ott 2007 - 06:13

A me non serve solo il count su una tabella, quindi ciclare con il count (quando poi in VB esiste già il comando di countrecord) ma che vari la tabella.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !