# Utilities --- ## Record Source - [[Tables/Process]] ## Controls | Control Name | Reference | |--------------|-----------| | PartNumber | PartNumber (from [[Tables/Process]]) | ## VBA Code ```vba Option Compare Database 'Use database order for string comparisons Private Sub Button3_Click() AppActivate "SessionA - [24 x 80]" SendKeys "1{ENTER}" End Sub ``` ## What it does **Code Description** ====================== ### Overview This VBA code snippet is a subroutine that triggers an action when a button labeled "Button3" is clicked. The code's purpose is to activate a specific window and send a key press sequence to it. ### Breakdown #### Option Compare Database The first line, `Option Compare Database`, sets the comparison order for string comparisons to use database sorting. This setting affects how VBA compares strings when performing operations like matching or searching. #### Button3_Click Subroutine The code defines a private subroutine named `Button3_Click`. This subroutine is triggered when the button labeled "Button3" is clicked. * The first line, `AppActivate "SessionA - [24 x 80]"`, activates the window with the specified title. The title contains a screen resolution reference (`[24 x 80]`) followed by the main application name (`SessionA`). This suggests that the code is intended for use in an environment where multiple applications are running simultaneously, and the user needs to focus on a specific one. * The second line, `SendKeys "1{ENTER}"`, sends a key press sequence to the currently active window. In this case, it simulates pressing the number 1 followed by the Enter key. ### Functionality When the button labeled "Button3" is clicked, this code: 1. Activates the specified window with the title `SessionA - [24 x 80]`. 2. Sends a key press sequence to the active window, simulating the press of the number 1 followed by the Enter key. ### Assumptions and Context The presence of the screen resolution reference (`[24 x 80]`) in the title suggests that this code is designed for use with an application or environment that displays multiple windows with different resolutions. The use of `AppActivate` and `SendKeys` implies that the code is running in a graphical user interface (GUI) environment, likely Microsoft Excel or another office software. Without more context, it's difficult to provide specific guidance on how to modify or extend this code. However, this description should give you a clear understanding of what the code does and how it functions.