# DS MultShear
---
## Record Source
- [[Queries/DataSheetQ1]]
## Controls
| Control Name | Reference |
|--------------|-----------|
| PartNumber | PartNumber (from [[Queries/DataSheetQ1]]) |
| Operation | Operation (from [[Queries/DataSheetQ1]]) |
| Elem1V1 | Elem1V1 (from [[Queries/DataSheetQ1]]) |
| Paperwork | Paperwork (from [[Queries/DataSheetQ1]]) |
| TotalSelectTime | TotalSelectTime (from [[Queries/DataSheetQ1]]) |
| StandardMinutes/part | StandardMinutes/part (from [[Queries/DataSheetQ1]]) |
| pf&d | pf&d (from [[Queries/DataSheetQ1]]) |
| StandardHours/part | StandardHours/part (from [[Queries/DataSheetQ1]]) |
| StandardParts | StandardParts (from [[Queries/DataSheetQ1]]) |
| Elem1A | Elem1A (from [[Queries/DataSheetQ1]]) |
| Elem2V2 | Elem4V1 (from [[Queries/DataSheetQ1]]) |
| Elem2V3 | Elem4A (from [[Queries/DataSheetQ1]]) |
| Elem3A | Elem5V1 (from [[Queries/DataSheetQ1]]) |
| Elem3V1 | Elem5A (from [[Queries/DataSheetQ1]]) |
| Elem3V2 | Elem6V1 (from [[Queries/DataSheetQ1]]) |
| Elem3V3 | Elem6A (from [[Queries/DataSheetQ1]]) |
| Elem4V1 | Elem7A (from [[Queries/DataSheetQ1]]) |
| Elem5A | Elem8A (from [[Queries/DataSheetQ1]]) |
| Elem9A | Elem10A (from [[Queries/DataSheetQ1]]) |
| Elem9V2 | Elem11A (from [[Queries/DataSheetQ1]]) |
| Field412 | Elem2V1 (from [[Queries/DataSheetQ1]]) |
| Field413 | Elem2A (from [[Queries/DataSheetQ1]]) |
| Field414 | Elem3V1 (from [[Queries/DataSheetQ1]]) |
| Field415 | Elem3A (from [[Queries/DataSheetQ1]]) |
| Field423 | Elem7V1 (from [[Queries/DataSheetQ1]]) |
| Field429 | Elem8V1 (from [[Queries/DataSheetQ1]]) |
| Field441 | Elem9A (from [[Queries/DataSheetQ1]]) |
| Field446 | Elem9V2 (from [[Queries/DataSheetQ1]]) |
| Field449 | Elem9V1 (from [[Queries/DataSheetQ1]]) |
| Field450 | Elem10V1 (from [[Queries/DataSheetQ1]]) |
| Field453 | Elem11V2 (from [[Queries/DataSheetQ1]]) |
| Field455 | Elem11V1 (from [[Queries/DataSheetQ1]]) |
| Field469 | Elem12A (from [[Queries/DataSheetQ1]]) |
## VBA Code
```vba
Option Compare Database   'Use database order for string comparisons

Private Sub Form_Load()
   On Error GoTo die
   If IsNull(Me![PartNumber]) Then
      End
   End If
Exit Sub
HelpMe:
    DoCmd.SelectObject A_FORM, "DS MultShear"
    DoCmd.Close
Exit Sub
die:
   Resume HelpMe

End Sub

```
## What it does
### VBA Code Description: `Form_Load` Event Handler

#### Overview

This VBA code snippet is an event handler for the `Load` event of a form in Microsoft Access. The code is responsible for initializing certain settings and behavior when the form is loaded.

#### Key Functions:

1. **Error Handling**: The code uses `On Error GoTo die` to catch any errors that occur during execution. If an error occurs, it redirects the control flow to the labeled `die` label.
2. **Null Check**: It checks if the `PartNumber` field in the form is null or undefined using `IsNull(Me![PartNumber])`. If it is, the code skips the rest of the subroutine and exits.
3. **Default Form Opening**: The code opens a new instance of the "DS MultShear" form using `DoCmd.SelectObject A_FORM, "DS MultShear"` and closes the current active window using `DoCmd.Close`.
4. **Exiting Early**: If an error occurs or the `PartNumber` field is null, the code exits early from the subroutine.

#### Step-by-Step Explanation:

1. The code starts by declaring that string comparisons will be performed in database order using `Option Compare Database`.
2. It then defines a private subroutine called `Form_Load`, which is the event handler for the `Load` event of the form.
3. Inside the subroutine, it checks if there's an error and, if so, skips to the `die` label.
4. Next, it checks if the `PartNumber` field in the form is null or undefined. If so, it exits the subroutine using `End`.
5. The code then opens a new instance of the "DS MultShear" form using `DoCmd.SelectObject A_FORM, "DS MultShear"` and closes the current active window using `DoCmd.Close`.
6. If an error occurs or the `PartNumber` field is null, it skips to the `die` label and resumes execution from there.

#### Example Use Case:

This code can be used in a Microsoft Access application where you want to ensure that certain actions are performed when a form is loaded. For instance, it might be used in an inventory management system to check if a part number is required before opening the "DS MultShear" form.

### Code Improvements Suggestions

* Consider adding more error handling or logging mechanisms to provide better insights into what's causing errors.
* Refactor the code to make it more concise and readable by breaking it down into smaller, more focused subroutines.
* Use meaningful variable names instead of abbreviations like `A_FORM` and `Me![PartNumber]`.