InícioBoa noite pessoal seria possível contar todos os dados de todas as tabelas em um banco
3 participantes
[Resolvido]Contar os registros de todas as tabelas
marcelo marques- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1003
Registrado : 12/04/2016
Avelino Sampaio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010
- Mensagem nº2
![[Resolvido]Contar os registros de todas as tabelas Empty](https://2img.net/i/empty.gif)
Re: [Resolvido]Contar os registros de todas as tabelas
Avelino Sampaio 25/10/2019, 10:13
Olá!
utilize o laço FOR EACH para percorrer as tabelas. Exemplo do FOR EACH neste meu artigo:
Utilize uma variável no laço que vá acumulando o numero de registros. Algo Assim:
lngTotal = lngTotal + currentdb.TableDefs(tbl.name).RecordCount
Bom estudo!
marcelo marques- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1003
Registrado : 12/04/2016
- Mensagem nº3
Re: [Resolvido]Contar os registros de todas as tabelas
marcelo marques 26/10/2019, 19:54
Boa tarde desculpe Avelino mais eu não consegui adaptar o código
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016
- Código:
dim lngTotal as long
dim tbl as tabledef
for each tbl in currentdb.tabledefs
lngTotal = lngTotal + currentdb.TableDefs(tbl.name).RecordCount
next tbl
call msgbox("Total de registros de todas as tabelas: " & lngTotal
.................................................................................
Ajude-se a ser ajudado, anexe seu projeto.
Sempre tente entender o código, não somente copie e cole.
Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
marcelo marques- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1003
Registrado : 12/04/2016
- Mensagem nº5
Re: [Resolvido]Contar os registros de todas as tabelas
marcelo marques 27/10/2019, 00:31
Boa noite Ivan e Avelino muito obrigado a vocês deu certinho
DamascenoJr.- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3845
Registrado : 22/11/2016
O fórum agradece o retorno. Sucesso.
.................................................................................
Ajude-se a ser ajudado, anexe seu projeto.
Sempre tente entender o código, não somente copie e cole.
Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
Conteúdo patrocinado