Dim stDocName As String TempVars.Add "strBOForm", Me.Name stDocName = Me.cboReport DoCmd.OpenReport stDocName, acPreview DoCmd.RunCommand acCmdFitToWindow Me.Visible = False
Private Sub Report_Close() Forms(TempVars!strBOForm).Visible = True End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.