Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009
Alexandre Neves 28/11/2017, 19:16
Boa noite,
Execute um loop através de todos os relatórios
Dim ctl As Control, Rpt
For Each Rpt In Application.CurrentProject.AllReports
DoCmd.OpenReport Rpt.Name, acDesign
For Each ctl In Reports(Rpt.Name)
aqui o código
Next
DoCmd.Close acReport, Rpt.Name
Next
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo