Cybernomad
/
PSLine2000Documentation
1
0
Fork 0
Code Issues 1 Pull Requests Packages Projects 1 Releases Wiki Activity
PSLine2000Documentation/Forms/term Process Sheet.md

385 lines
12 KiB
Markdown
Raw Blame History

# 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
```vba
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.
Reference in New Issue View Git Blame Copy Permalink