|
| Precedente :: Successivo |
| Autore |
Messaggio |
emmanuele80
Comune mortale
Registrato: 04/10/07 15:41
Messaggi: 3
|
 Inviato: 09 Ott 2007 14:42 Oggetto: Countrecord in una serie di tabelle |
 |
|
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ì:
| Codice: |
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 |
|
| Top |
|
 |
freemind
Supervisor sezione Programmazione
Registrato: 04/04/07 20:28
Messaggi: 4643
Residenza: Internet
|
| Inviato: 28 Nov 2007 20:35 Oggetto: |
 |
|
Forse la seguente fa al caso tuo:
| Codice: |
SELECT
Table_Name = Name,
Row_Count = DCount("*",[MSysObjects].[Name])
FROM
MSysObjects
WHERE
(Left([Name],1)<>"~")
AND (Left([Name],4) <> "MSys")
AND ([Type] In (1, 4, 6))
ORDER BY
Name
|
Non sono sicuro che funzioni perchè ora su linux e non ho la possibilità di accedere a qualche cosa che riguardi access.
Qualcuno in rete dice che basta questa:
| Codice: | | select * from MSysObjects where Type=1 |
Facci sapere...
ciao |
|
| Top |
|
|
|
|
Non puoi inserire nuovi argomenti
Non puoi rispondere a nessun argomento
Non puoi modificare i tuoi messaggi
Non puoi cancellare i tuoi messaggi
Non puoi votare nei sondaggi
|
|
FAQ
Cerca
Lista utenti
Gruppi
Registrati
Profilo
Messaggi privati
Log in
