Figuring out which object type opened 1

[zevw]

Is there a way to figure out if the object on the screen is a form or a report.

Can I write a function when a form opens I can capture if its a form and if its a report capture the report and manipulate the menu bar.

Thanks in advance!

 

[MajP]

dim frm as access.form
dim rpt as access.report
select case Application.CurrentObjectType
case acForm
set frm = screen.activeform
case acReport
set rpt = screen.activereport
end select

 

[zevw]

I Thank You for the valuable information.

I have a minor problem I created a function and call it in the open event procedure

Private Sub Form_Open(Cancel As Integer)
    
    CurrentDb.Properties("AppTitle").Value = Nz(DLookup("HName", "Company"), "")
    Me.Company.Caption = Nz(DLookup("HName", "Company"), "")
    
    GetActv
   
    Application.RefreshTitleBar 'Update On Screen!

End Sub

and it is giving me this error

Run-time error '2475':

You entered an expression that requires a form to be the active window.
[/color red]
only when I startup the Main Form

Once the Main formis loaded it works Dandy!

here is my code

Public Function GetActv()

  Select Case Application.CurrentObjectType
      Case acForm
          CommandBars("Base").Controls("Print").Visible = False
      Case acReport
          CommandBars("Base").Controls("Print").Visible = True
  End Select

End Function

Any ideas why once its loaded its unhappy?

 

[PHV]

Try to use the Load event procedure instead of the Open.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[zevw]

I put it all the way at the end the Load Event Procedure and it works fine.

Thanks!