135 lines
5.3 KiB
Markdown
135 lines
5.3 KiB
Markdown
# Util Result2
|
|
Analysis generated on: 4/1/2025 4:04:12 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]]) |
|
|
| MachineName | MachineName (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
|
|
**Command120 Click Event Handler**
|
|
=====================================
|
|
|
|
### Overview
|
|
|
|
This is a VBA code module that handles the click event of a command button with ID 120. When the button is clicked, it performs the following actions:
|
|
|
|
### Code Breakdown
|
|
|
|
#### Option Statements
|
|
|
|
The code begins with two `Option` statements:
|
|
|
|
* `Option Compare Database`: This statement specifies that string comparisons in this code module should be performed as if they were case-insensitive when comparing database strings.
|
|
* `Option Explicit`: This statement requires that all variables declared within the code must be explicitly initialized or passed to a procedure.
|
|
|
|
#### Command120 Click Event Handler
|
|
|
|
The `Private Sub` declaration defines a new subroutine called `Command120_Click`. When this button is clicked, this event handler will be invoked:
|
|
|
|
```vb
|
|
Private Sub Command120_Click()
|
|
```
|
|
|
|
#### On Error Handling
|
|
|
|
The next statement sets up error handling for the code within the `Command120_Click` subroutine. If an error occurs while executing this subroutine, it will jump to the designated error-handling label and display the error message:
|
|
|
|
```vb
|
|
On Error GoTo Err_Command120_Click
|
|
```
|
|
|
|
#### Moving to Next Record
|
|
|
|
Inside the `Command120_Click` event handler, there is a call to the `DoCmd.GoToRecord` method, which moves the current record in the active database table to the next record. This action assumes that the records are ordered by their primary key or some other unique identifier.
|
|
|
|
```vb
|
|
DoCmd.GoToRecord , , acNext
|
|
```
|
|
|
|
#### Exit Event Handler
|
|
|
|
After moving to the next record, the code exits the `Command120_Click` subroutine:
|
|
|
|
```vb
|
|
Exit_Command120_Click:
|
|
Exit Sub
|
|
```
|
|
|
|
#### Error Handling Resume
|
|
|
|
If an error occurs within the `Command120_Click` event handler while executing this code block, it will display the error description using a message box and resume execution from the next statement after the `Err_Command120_Click` label:
|
|
|
|
```vb
|
|
Err_Command120_Click:
|
|
MsgBox Err.Description
|
|
Resume Exit_Command120_Click
|
|
```
|
|
|
|
### Notes
|
|
|
|
* This code assumes that the `Command120` button is in an Access database, and it has a specific ID of 120.
|
|
* The `DoCmd.GoToRecord` method moves to the next record based on its primary key or other unique identifier.
|
|
|
|
This event handler provides basic functionality for navigating through records within a database table when the specified button is clicked.
|