PSLine2000Documentation/Forms/DS PressBrake.md

DS PressBrake

---

Record Source

• Queries/DataSheetQ1

Controls

Control Name	Reference
PartNumber	PartNumber (from Queries/DataSheetQ1)
Operation	Operation (from Queries/DataSheetQ1)
Elem1A	Elem1A (from Queries/DataSheetQ1)
Elem7A	Elem7A (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)
Field99	Elem2A (from Queries/DataSheetQ1)
Field101	Elem3A (from Queries/DataSheetQ1)
Elem4A	Elem4A (from Queries/DataSheetQ1)
Elem5A	Elem5A (from Queries/DataSheetQ1)
Elem6A	Elem6A (from Queries/DataSheetQ1)
Elem2V1	Elem2V1 (from Queries/DataSheetQ1)
Field107	Elem3V1 (from Queries/DataSheetQ1)
Elem4V1	Elem4V1 (from Queries/DataSheetQ1)
Elem5V1	Elem5V1 (from Queries/DataSheetQ1)
Elem6V1	Elem6V1 (from Queries/DataSheetQ1)
Elem7V1	Elem7V1 (from Queries/DataSheetQ1)
Field134	Elem8V1 (from Queries/DataSheetQ1)
Field135	Elem8A (from Queries/DataSheetQ1)

VBA Code

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 PressBrake"
    DoCmd.Close
Exit Sub
die:
   Resume HelpMe

End Sub

What it does

VBA Code Description

Overview

This is a VBA (Visual Basic for Applications) code snippet that is triggered when the Form_Load event occurs. The purpose of this code is to ensure that a specific form, "DS PressBrake," remains open on a database application.

Key Functionality

• Error Handling: The code uses Option Compare Database to specify database order for string comparisons, which ensures consistent case-insensitive comparisons across the application.
• Part Number Validation: Upon form load, it checks if the PartNumber field is null. If it is, the subroutine ends, indicating that the required information is missing and preventing any potential errors or unexpected behavior.

Detailed Breakdown

1. Private Sub Form_Load():
   • This line specifies a private subroutine named Form_Load. In VBA, this event is triggered when a form is loaded into an application.
2. On Error GoTo die:
   • This statement sets the error handling strategy to stop execution at the first occurrence of an error and jump to the label die.
3. If IsNull(Me![PartNumber]) Then:
   • Within the form load event, this conditional statement checks whether the value associated with the control "PartNumber" in the current object (usually a form) is null.
4. End:
   • If Me.PartNumber is null, the subroutine terminates immediately using the End keyword.
5. HelpMe:
   • This line resumes execution from the label HelpMe.
6. DoCmd.SelectObject A_FORM, "DS PressBrake":
   • The DoCmd.SelectObject method is used to select an object with a specified name or ID in a database application.
   • Here, it selects and opens a form named "DS PressBrake."
7. DoCmd.Close:
   • After selecting the desired form, this line closes the currently active form, allowing the selected form ("DS PressBrake") to take its place.
8. Exit Sub:
   • The subroutine exits without performing any additional actions after successfully opening and closing the required form.

Error Handling Flow

The code handles errors in two steps:

• If an error occurs during the execution of the Form_Load event, the VBA interpreter stops at the first occurrence of the error (die) and then jumps to the error-handling routine (HelpMe).
• The HelpMe: label is where any necessary recovery or cleanup actions should be placed. In this example, it simply resumes execution from that point, which in turn leads back to opening the desired form.
• If the required information (in this case, a valid part number) is missing, the program ends prematurely.

Summary

This VBA code ensures that when its associated form loads, if necessary information (like PartNumber) is missing, it opens an alternative form named "DS PressBrake" to address the issue. The code uses error handling and validation checks to minimize potential problems caused by uncomplete data in the database application.