Se você tem já criou um formulário através do qual evoca todos os seus relatórios, sabe bem que de vez em quando ficam inúmeros deles sobrepondo-se uns aos outros. Como resolver isso?
Function CloseAllReportss()Dim lngLoop As LongFor lngLoop = (Forms.Count - 1) To 1 Step -1DoCmd.Close acForm, Forms(lngLoop).NameNext lngLoopEnd Function
Tags: Access, VBA, Report, Reports, close, fechar
Nenhum comentário:
Postar um comentário