3.5 KiB

Raw Permalink Blame History

DS Timesaver

Record Source

Queries/DataSheetQ1

Controls

Control Name	Reference
PartNumber	PartNumber (from Queries/DataSheetQ1)
Operation	Operation (from Queries/DataSheetQ1)
Elem1A	Elem1A (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)
Elem1V1	Elem1V1 (from Queries/DataSheetQ1)
Elem2A	Elem2A (from Queries/DataSheetQ1)
Elem2V2	Elem2V1 (from Queries/DataSheetQ1)
Elem3A	Elem3A (from Queries/DataSheetQ1)
Elem1V2	Elem1V2 (from Queries/DataSheetQ1)
Field469	Elem4A (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 Timesaver"
    DoCmd.Close
Exit Sub
die:
   Resume HelpMe

End Sub

What it does

Code Description

Overview

This VBA code snippet is a procedure that handles the Form_Load event in an Access application. The purpose of this code is to ensure that certain conditions are met before allowing the form to load.

Breakdown

Option Compare Database

This line specifies the comparison order for string comparisons in the current module.
By setting it to Database, the code ensures that string comparisons are performed in a case-insensitive manner, taking into account database-specific collation settings.

Private Sub Form_Load()

This line defines the procedure that will be executed when the form loads.

On Error GoTo die

The On Error statement sets up an error-handling mechanism.
When an error occurs in the code within the block, control is transferred to the label die.

If IsNull(Me![PartNumber]) Then End

This line checks if the value of the PartNumber field in the current form's recordset is null or empty.
If it is null, the procedure exits using the End statement.

DoCmd.SelectObject A_FORM, "DS Timesaver"

This line uses the DoCmd object to select an existing record in the database based on the specified form and record name ("DS Timesaver").
The A_FORM parameter specifies that the record should be selected from the current form.

DoCmd.Close

After selecting a new record, this line closes the currently open document.

Exit Sub

This statement exits the procedure, indicating that no further code needs to be executed after the conditions have been met.

die:

The die label is defined earlier in the code as the error-handling destination.
When an error occurs, control transfers to this label, which contains the alternative code path.

Purpose

The primary purpose of this code is to ensure that a specific record (DS Timesaver) is present in the database before allowing the form to load. If the required record does not exist, the form will exit without loading.

By using an error-handling mechanism and carefully selecting which actions to perform when an error occurs, this code demonstrates effective and efficient handling of potential issues that might arise during application execution.

3.5 KiB Raw Permalink Blame History