# Miscellaneous
---
## Record Source
- *None*
## Controls
| Control Name | Reference |
|--------------|-----------|
| *None* | - |
## VBA Code
```vba
Option Compare Database
Option Explicit

Private Sub cmdOpen14two_Click()
On Error GoTo Err_cmdOpen14two_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "14 two"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdOpen14two_Click:
    Exit Sub

Err_cmdOpen14two_Click:
    MsgBox Err.Description
    Resume Exit_cmdOpen14two_Click
    
End Sub

Private Sub Command16_Click()
On Error GoTo Err_Command16_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "14" + Chr$(34) + " Process Sheet"
    DoCmd.OpenForm stDocName
    Forms![14" Process Sheet].recordSource = "Processes by List"
Exit_Command16_Click:
    Exit Sub

Err_Command16_Click:
    MsgBox Err.Description
    Resume Exit_Command16_Click
    

End Sub

Private Sub Utilization_Form_Click()
On Error GoTo Err_Utilization_Form_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Utilization on Multiple Sheets"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Utilization_Form_Click:
    Exit Sub

Err_Utilization_Form_Click:
    MsgBox Err.Description
    Resume Exit_Utilization_Form_Click
    
End Sub
Private Sub Gross_Weight_Click()
On Error GoTo Err_Gross_Weight_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Sheet Metal Weight"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Gross_Weight_Click:
    Exit Sub

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

The provided VBA code is a set of event-driven procedures written in Microsoft Access's Visual Basic for Applications (VBA) language. These procedures are designed to handle the click events of specific commands in an Access database.

### Common Patterns and Structure

All the procedures follow a similar pattern:

1.  Define error handling blocks using `On Error GoTo Err_[ProcedureName]` statements.
2.  Declare variables for document names (`stDocName`) and link criteria (`stLinkCriteria`).
3.  Set the values for these variables based on the procedure's purpose.
4.  Use `DoCmd.OpenForm` to open a specific form in the database, passing the declared variables as arguments.
5.  Handle successful execution with an `Exit_ProcedureName:` label, which exits the procedure cleanly.
6.  Catch and display any errors that occur using an `Err_[ProcedureName]_Click:` block, then resumes execution from the corresponding error-handling label.

### Procedure Descriptions

#### cmdOpen14two_Click()

This procedure is triggered when a command button labeled "cmdOpen14two" is clicked.

*   Opens a specific form named "14 two".
*   The form opening process uses `DoCmd.OpenForm` with no specified link criteria.

#### Command16_Click()

When the command button labeled "Command 16" is clicked, this procedure executes:

*   Opens a form named "14" + Chr(34) + " Process Sheet".
*   Sets the record source of an active form to "Processes by List".

#### Utilization_Form_Click()

This event handler opens a specific form called "Utilization on Multiple Sheets":

*   Uses `DoCmd.OpenForm` without any link criteria.

#### Gross_Weight_Click()

When the command button labeled "Gross Weight" is clicked, this procedure executes:

*   Opens a form named "Sheet Metal Weight".

### Key Takeaways

*   Each procedure handles a specific click event on a command button.
*   The procedures share a common pattern for error handling and form opening.
*   The code provides basic functionality for managing forms in an Access database.