Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Working with the Screen Object

Sub screen()     On Error Resume Next          Dim strName As String     Dim strType As String     strType = "Form"     strName = ActiveForm.Name     If Err = 2475 Then              Err = 0         strType = "Report"         strName = ActiveReport.Name         If Err = 2476 Then             Err = 0             strType = "Data access page"             strName = ActiveDataAccessPage.Name             If Err = 2022 Then                 Err = 0                 strType = "Datasheet"                 strName = ActiveDatasheet.Name             End If         End If     End If     Debug.Print "The current Screen object is a " & strType & "Screen object name: " & strName End Sub