PSLine2000Documentation/Forms/term Process Sheet.md

term Process Sheet

Analysis generated on: 4/1/2025 4:05:57 PM

Record Source

• Tables/Process

Controls

Control Name	Reference
Field113	MetalType (from Tables/Process)
Field113 (Row Source)	Tables/[metalQ1];
BlankSize	BlankSize (from Tables/Process)
PartSize	PartSize (from Tables/Process)
GrossWt	GrossWt (from Tables/Process)
ActualWt	ActualWt (from Tables/Process)
Utilization	Utilization (from Tables/Process)
SheetSize	SheetSize (from Tables/Process)
GrainDir	GrainDir (from Tables/Process)
GrainDir (Row Source)
BlocksPerSheet	BlocksPerSheet (from Tables/Process)
BlanksPerBlock	BlanksPerBlock (from Tables/Process)
PartsPerSheet	PartsPerSheet (from Tables/Process)
ActualPartHeight	ActualPartHeight (from Tables/Process)
PartCost	PartCost (from Tables/Process)
Field238	PartsPerBlank (from Tables/Process)
PartNumber	PartNumber (from Tables/Process)
PartName	PartName (from Tables/Process)
IssueNumber	IssueNumber (from Tables/Process)
IssueDate	IssueDate (from Tables/Process)
PreviousIssue	PreviousIssue (from Tables/Process)
PreviousDate	PreviousDate (from Tables/Process)
Programmer	Programmer (from Tables/Process)
PrintSize	PrintSize (from Tables/Process)
History	History (from Tables/Process)
MetalType	MetalType (from Tables/Process)
MetalType (Row Source)	Tables/[metalQ1];
FirstDim	FirstDim (from Tables/Process)
SecDim	SecDim (from Tables/Process)
BotTrimCut	BotTrimCut (from Tables/Process)
TopTrimCut	TopTrimCut (from Tables/Process)
CutType	CutType (from Tables/Process)
CutType (Row Source)
Deburr	Deburr (from Tables/Process)
Deburr (Row Source)
PartWidth	PartWidth (from Tables/Process)
ActualPartWidth	ActualPartWidth (from Tables/Process)
PartsPerBlank	PartsPerBlank (from Tables/Process)
PressBrake	PressBrake (from Tables/Process)
PressBrake (Row Source)	Tables/[PressBrakes];
EntPartHeight	PartHeight (from Tables/Process)
Field240	CellDeburrTypes (from Tables/Process)
Field240 (Row Source)
SavedProcesses (Row Source)	Tables/[QWorkCenters];
AddnlDeburrInches	AddnlDeburrInches (from Tables/Process)
Reason	Reason (from Tables/Process)
PunchPressOption	PunchOption (from Tables/Process)
PunchCount	PunchPartsPerStrip (from Tables/Process)
PunchDie	PunchNumber (from Tables/Process)
PunchDie (Row Source)	Tables/[punchpressQ1];
MakeNumber	MakeNumber (from Tables/Process)

VBA Code

Option Compare Database   'Use database order for string comparisons


Private Sub addPr_Click()
    NewPartName_Parm$ = "NEW"
    Call AddPartButton
End Sub

Private Sub Button184_Click()
   Call Add_Additional_Process
End Sub

Private Sub Button190_Click()
On Error GoTo Err_Button190_Click
    DoCmd.Quit

Exit_Button190_Click:
    Exit Sub

Err_Button190_Click:
    MsgBox Error$
    Resume Exit_Button190_Click
    
End Sub

Private Sub Button193_Click()
   NewPartName_Parm$ = Me!PartNumber
   Call AddPartButton
End Sub

Private Sub Button194_Click()
On Error GoTo Err_Button194_Click

    Dim DocName As String
    Dim MyForm As Form

    DocName = PrimaryScreen$
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject A_FORM, DocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject A_FORM, MyForm.name, False

Exit_Button194_Click:
    Exit Sub

Err_Button194_Click:
    MsgBox Error$
    Resume Exit_Button194_Click
End Sub

Private Sub Button196_Click()
On Error GoTo Err_Button196_Click

    Dim DocName As String
    Refresh
    DocName = "Process Sheet Print"
    DoCmd.OpenReport DocName, A_PREVIEW, "Q1"
Exit_Button196_Click:
    Exit Sub

Err_Button196_Click:
    MsgBox Error$
    Resume Exit_Button196_Click
    
End Sub

Private Sub Button200_Click()
   Dim MainDB As Database, MainSet As Recordset
   Dim MachNamesDB As Database, MachNamesSet As Recordset
   Dim MachQDB As Database, MachQSet As Recordset
   
   Set MainDB = DBEngine.Workspaces(0).Databases(0)
   Set MachNamesDB = DBEngine.Workspaces(0).Databases(0)
   Set MachQDB = DBEngine.Workspaces(0).Databases(0)

   
   Set MachNamesSet = MachNamesDB.OpenRecordset("MachineNames", DB_OPEN_TABLE)   ' Create dynaset.
   Set MachQSet = MachQDB.OpenRecordset("Machines", DB_OPEN_TABLE)   ' Create dynaset.
   Set MainSet = MainDB.OpenRecordset("Process", DB_OPEN_TABLE)   ' Create dynaset.
   PartN$ = Me![PartNumber]
   MainSet.Index = "PrimaryKey"
   MachQSet.Index = "PartNumber"
   MachNamesSet.MoveFirst
         
         
   While Not (MachNamesSet.EOF)
      A$ = MachNamesSet.MachineName
      GoSub search
      If Not (fnd) Then
         MachQSet.AddNew
         MachQSet.MachineName = A$
         MachQSet.Tool = "***"
         MachQSet.PartNumber = PartN$
         MachQSet.Update
      End If
      MachNamesSet.MoveNext
   Wend
   Refresh
   
Exit Sub
   
search:
   MachQSet.MoveFirst
   MachQSet.Seek "=", PartN$, A$
   If MachQSet.NoMatch Then
      fnd = False
   Else
      fnd = True
   End If
Return
End Sub

Private Sub Button244_Click()
On Error GoTo Err_Button224_Click

    Dim DocName As String
    Dim LinkCriteria As String

    DoCmd.Hourglass True
    
    DocName = "Data Sheet Select"
    DoCmd.OpenForm DocName, , , LinkCriteria
    DoCmd.FindRecord Me![PartNumber]
    DoCmd.SelectObject A_FORM, PrimaryScreen$
    DoCmd.Close

Exit_Button224_Click:
    DoCmd.Hourglass False
    Exit Sub

Err_Button224_Click:
    MsgBox Error$
    Resume Exit_Button224_Click
    

End Sub

Private Sub Button246_Click()
    Call HistoryR
End Sub

Private Sub Button247_Click()
   Call Delete_Part
End Sub

Private Sub Button248_Click()
   Call Edit_The_Shear_Files
End Sub

Private Sub Button249_Click()
   Call Find_By_PartNumber
End Sub

Private Sub Calculate_Click()
   Call Calculate_Button
End Sub

Private Sub CutType_Click()
   Call CutTypeFormSettings
End Sub

Private Sub FindMakeButton_Click()
   Call Find_By_MakeNumber
End Sub

Private Sub FindPhantom_Click()
    Call Find_By_PartNumber
End Sub

Private Sub Form_Current()
 '
 ' Code to indicate record is locked (Requires a text object called LOCKEDRECORD
 '
 '
   A$ = Me!IssueNumber
   l = 0
   On Error GoTo BadRecord
   Me!IssueNumber = A$
   If l <> 0 Then
      LockedRecord.Visible = True
   Else
      LockedRecord.Visible = False
   End If

   Call CutTypeFormSettings
   Call PBFormView
   GrainFromRec
   Call ErrorMessages
   Exit Sub
BadRecord:
   l = 1
Resume Next

End Sub

Private Sub Form_Load()
   Set currform = Me
   TextCalcErr.Visible = False
   TextCalcErr.Top = 2.58 * 1440
   PrimaryScreen$ = "14" + Chr$(34) + " Process Sheet"
   DoCmd.GoToControl "PartName"
   DoCmd.GoToControl "PartNumber"
End Sub

Private Sub GrDirOpt_Click()
   NewGrain
End Sub

Private Sub PressBrakeSubForm_Enter()
    Text234.Visible = True
    Text237.Visible = True
End Sub

Private Sub PressBrakeSubForm_Exit(Cancel As Integer)
    Text234.Visible = False
    Text237.Visible = False
End Sub

Private Sub PunchDie_AfterUpdate()
      If (PunchDie = "NONE") Or (Trim$(PunchDie) = "") Then
         PunchPressOption.Visible = False
         PunchCount.Visible = False
      Else
         PunchPressOption.Visible = True
         If CutType = "Single" Then
            PunchCount.Visible = False
         Else
            PunchCount.Visible = True
         End If
      End If
End Sub

Private Sub PunchPressOption_AfterUpdate()
   If (CutType <> "Single") Then
      If PunchPressOption = 2 Then
         PunchCount.Visible = True
      Else
         PunchCount.Visible = False
      End If
   Else
      PunchCount.Visible = False
   End If

End Sub

What it does

VBA Code Description

=====================================

This VBA code is part of an Access database application and provides functionality for managing parts, processes, and related data. The code is organized into several subroutines, each handling specific actions or events.

Subroutines Overview

1. addPr_Click()

• This subroutine is triggered when a button with the label "NEW" is clicked.
• It sets the NewPartName_Parm$ variable to "NEW" and calls the AddPartButton procedure.

2. Button184_Click()

• This subroutine is triggered when a button with an unknown ID (184) is clicked.
• It calls the Add_Additional_Process procedure without specifying any arguments.

3. Button190_Click()

• This subroutine is triggered when a button with an unknown ID (190) is clicked.
• If an error occurs, it jumps to the Err_Button190_Click label and displays an error message.
• Otherwise, it calls the Exit_Button190_Click label, which exits the subroutine.

4. Button193_Click()

• This subroutine is triggered when a button with an unknown ID (193) is clicked.
• It sets the NewPartName_Parm$ variable to the value of the "PartNumber" field in the current form and calls the AddPartButton procedure.

5. Button194_Click()

• This subroutine is triggered when a button with an unknown ID (194) is clicked.
• It sets the DocName variable to "Process Sheet Print" and opens the corresponding report using the DoCmd.OpenReport method.

6. Button196_Click()

• This subroutine is triggered when a button with an unknown ID (196) is clicked.
• It refreshes the data, opens the "Machines" table for editing, and sets the report to "Q1".

7. Button200_Click()

• This subroutine is triggered when a button with an unknown ID (200) is clicked.
• It creates several database objects (MainDB, MachNamesDB, MachQDB) and opens recordsets for these tables using the OpenRecordset method.
• It then loops through each machine in the "MachineNames" table and searches for a match in the "Machines" table using the search subroutine.

8. Button224_Click()

• This subroutine is triggered when a button with an unknown ID (224) is clicked.
• It opens the "Data Sheet Select" form and finds the record corresponding to the current part number.

9. Button246_Click(), Button247_Click(), Button248_Click(), Button249_Click()

• These subroutines are triggered when respective buttons with unknown IDs (246, 247, 248, 249) are clicked.
• They call other procedures, such as HistoryR, Delete_Part, Edit_The_Shear_Files, and Find_By_PartNumber, which are not defined in this code snippet.

10. Calculate_Click()

• This subroutine is triggered when a button with the label "Calculate" is clicked.
• It calls the Calculate_Button procedure, which is not defined in this code snippet.

11. CutType_Click()

• This subroutine is triggered when a button with the label "Cut Type" is clicked.
• It calls the CutTypeFormSettings procedure, which is not defined in this code snippet.

12. FindMakeButton_Click(), FindPhantom_Click()

• These subroutines are triggered when respective buttons with unknown IDs (Find Make Button and Find Phantom) are clicked.
• They call the Find_By_MakeNumber and Find_By_PartNumber procedures, which are not defined in this code snippet.

13. Form_Current()

• This subroutine is triggered whenever the form is updated or changed.
• It checks if a record is locked by checking the value of the "LOCKEDRECORD" field.
• If the record is locked, it displays a message indicating that the record cannot be edited.

Note: The search subroutine and other procedures mentioned in this code snippet are not defined within this code. They would need to be implemented separately in order for this code to function as intended.