# Util Result1
Analysis generated on: 4/1/2025 4:03:04 PM
---
## Record Source
- [[Tables/Util Selection C1]]
## Controls
| Control Name | Reference |
|--------------|-----------|
| ACTIV | ACTIV (from [[Tables/Util Selection C1]]) |
| PHANT | PHANT (from [[Tables/Util Selection C1]]) |
| MAKE# | MAKE# (from [[Tables/Util Selection C1]]) |
| ITTYP | ITTYP (from [[Tables/Util Selection C1]]) |
| USAGE | USAGE (from [[Tables/Util Selection C1]]) |
| PMNAS | PMNAS (from [[Tables/Util Selection C1]]) |
| WOQTY | WOQTY (from [[Tables/Util Selection C1]]) |
| BSIZE2 | BSIZE2 (from [[Tables/Util Selection C1]]) |
| PartNumber | PartNumber (from [[Tables/Util Selection C1]]) |
| Flag | Flag (from [[Tables/Util Selection C1]]) |
| PartName | PartName (from [[Tables/Util Selection C1]]) |
| CutType | CutType (from [[Tables/Util Selection C1]]) |
| PunchOption | PunchOption (from [[Tables/Util Selection C1]]) |
| PunchNumber | PunchNumber (from [[Tables/Util Selection C1]]) |
| PunchPartsPerStrip | PunchPartsPerStrip (from [[Tables/Util Selection C1]]) |
| PunchStd | PunchStd (from [[Tables/Util Selection C1]]) |
| GrainDir | GrainDir (from [[Tables/Util Selection C1]]) |
| GrainNone | GrainNone (from [[Tables/Util Selection C1]]) |
| FirstDim | FirstDim (from [[Tables/Util Selection C1]]) |
| SecDim | SecDim (from [[Tables/Util Selection C1]]) |
| PartsPerBlank | PartsPerBlank (from [[Tables/Util Selection C1]]) |
| PartsPerSheet | PartsPerSheet (from [[Tables/Util Selection C1]]) |
| BlocksPerSheet | BlocksPerSheet (from [[Tables/Util Selection C1]]) |
| BlanksPerBlock | BlanksPerBlock (from [[Tables/Util Selection C1]]) |
| PartHeight | PartHeight (from [[Tables/Util Selection C1]]) |
| PartWidth | PartWidth (from [[Tables/Util Selection C1]]) |
| BotTrimCut | BotTrimCut (from [[Tables/Util Selection C1]]) |
| TopTrimCut | TopTrimCut (from [[Tables/Util Selection C1]]) |
| ActualPartHeight | ActualPartHeight (from [[Tables/Util Selection C1]]) |
| ActualPartWidth | ActualPartWidth (from [[Tables/Util Selection C1]]) |
| PartSize | PartSize (from [[Tables/Util Selection C1]]) |
| GrossWt | GrossWt (from [[Tables/Util Selection C1]]) |
| ActualWt | ActualWt (from [[Tables/Util Selection C1]]) |
| Utilization | Utilization (from [[Tables/Util Selection C1]]) |
| SheetSize | SheetSize (from [[Tables/Util Selection C1]]) |
| CalculationStatus | CalculationStatus (from [[Tables/Util Selection C1]]) |
| Field113 | MetalType (from [[Tables/Util Selection C1]]) |
| Field113 (Row Source) | [[Tables/[metalQ1];]] |
| BestSheetSet | BestSheetSet (from [[Tables/Util Selection C1]]) |
| HOUSE | HOUSE (from [[Tables/Util Selection C1]]) |
## VBA Code
```vba
Option Compare Database
Option Explicit

Private Sub Command120_Click()
On Error GoTo Err_Command120_Click


    DoCmd.GoToRecord , , acNext

Exit_Command120_Click:
    Exit Sub

Err_Command120_Click:
    MsgBox Err.Description
    Resume Exit_Command120_Click
    
End Sub
```
## What it does
**Code Description**
====================

### Overview

The provided VBA code is a subroutine named `Command120_Click` which appears to be part of an Access database application. This code snippet handles the click event of a button with the command ID 120.

### Code Breakdown
-------------------

#### Option Declarations

*   `Option Compare Database`: This line tells Visual Basic that strings should be compared using the database comparison rules, ensuring that uppercase and lowercase letters are treated as equal.
*   `Option Explicit`: This option forces all variable declarations to be explicit. In other words, it ensures that variables declared within a subroutine or module must have their data type specified.

#### Subroutine Definition

```markdown
Private Sub Command120_Click()
```

This line defines the `Command120_Click` subroutine, which is triggered when the button with command ID 120 is clicked.

#### Error Handling

*   `On Error GoTo Err_Command120_Click`: This statement sets up error handling by specifying that if an error occurs in the code within this subroutine (between `Private Sub Command120_Click()` and the first `Exit` statement), it should jump to the label marked as `Err_Command120_Click`.
*   `DoCmd.GoToRecord , , acNext`: If no errors occur, this line executes the `GoToRecord` method of the `DoCmd` object. The `acNext` constant specifies that after navigating to a record, Access should proceed to navigate to the next record.

#### Error Handling Resume

```markdown
Exit_Command120_Click:
    Exit Sub

Err_Command120_Click:
    MsgBox Err.Description
    Resume Exit_Command120_Click
```

*   `Exit_Command120_Click`: This label marks the end of the subroutine if there are no errors. The `Exit Sub` statement terminates the execution of the subroutine.
*   `Err_Command120_Click`: If an error does occur, this label is executed instead. It displays a message box containing the description of the error using `MsgBox Err.Description`. After displaying the error message, it resumes execution at the `Exit_Command120_Click` label, effectively retrying the failed operation.

### Best Practices

*   The code makes use of robust error handling to provide useful feedback in case something goes wrong.
*   It adheres to explicit variable declarations and follows Access-specific command IDs for button commands.