5.2 KiB

Raw Blame History

Util Result1

Analysis generated on: 4/1/2025 4:03:04 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)
HOUSE	HOUSE (from Tables/Util Selection C1)

VBA Code

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

Code Description

Overview

The provided VBA code is a subroutine named Command120_Click which appears to be part of an Access database application. This code snippet handles the click event of a button with the command ID 120.

Code Breakdown

Option Declarations

Option Compare Database: This line tells Visual Basic that strings should be compared using the database comparison rules, ensuring that uppercase and lowercase letters are treated as equal.
Option Explicit: This option forces all variable declarations to be explicit. In other words, it ensures that variables declared within a subroutine or module must have their data type specified.

Subroutine Definition

Private Sub Command120_Click()

This line defines the Command120_Click subroutine, which is triggered when the button with command ID 120 is clicked.

Error Handling

On Error GoTo Err_Command120_Click: This statement sets up error handling by specifying that if an error occurs in the code within this subroutine (between Private Sub Command120_Click() and the first Exit statement), it should jump to the label marked as Err_Command120_Click.
DoCmd.GoToRecord , , acNext: If no errors occur, this line executes the GoToRecord method of the DoCmd object. The acNext constant specifies that after navigating to a record, Access should proceed to navigate to the next record.

Error Handling Resume

Exit_Command120_Click:
    Exit Sub

Err_Command120_Click:
    MsgBox Err.Description
    Resume Exit_Command120_Click

Exit_Command120_Click: This label marks the end of the subroutine if there are no errors. The Exit Sub statement terminates the execution of the subroutine.
Err_Command120_Click: If an error does occur, this label is executed instead. It displays a message box containing the description of the error using MsgBox Err.Description. After displaying the error message, it resumes execution at the Exit_Command120_Click label, effectively retrying the failed operation.

Best Practices

The code makes use of robust error handling to provide useful feedback in case something goes wrong.
It adheres to explicit variable declarations and follows Access-specific command IDs for button commands.

5.2 KiB Raw Blame History