PSLine2000Documentation/Forms/Main Menu.md

Main Menu

Analysis generated on: 4/1/2025 4:08:03 PM

Record Source

• None

Controls

Control Name	Reference
None	-

VBA Code

Option Compare Database   'Use database order for string comparisons

Private Sub BeginMakePart_Click()
On Error GoTo Err_BeginMakePart_Click

    Dim DocName As String
    Dim LinkCriteria As String

    DocName = "MakeForm"
    DoCmd.OpenForm DocName, , , LinkCriteria

Exit_BeginMakePart_Click:
    Exit Sub

Err_BeginMakePart_Click:
    MsgBox Error$
    Resume Exit_BeginMakePart_Click
    
End Sub

Private Sub Button16_Click()

End Sub

Private Sub Button17_Click()
On Error GoTo Err_Button17_Click

    Dim DocName As String
    Dim LinkCriteria As String
    PrimaryScreen$ = "MakeForm"
    DocName = "Material Selection Screen"
    DoCmd.OpenForm DocName, , , LinkCriteria

Exit_Button17_Click:
    Exit Sub

Err_Button17_Click:
    MsgBox Error$
    Resume Exit_Button17_Click

End Sub

Private Sub Button18_Click()
On Error GoTo Err_Button18_Click

    Dim DocName As String
    Dim LinkCriteria As String
    
    PrimaryScreen$ = "MakeForm"
    DocName = "Universal Selection Screen"
    UnivREQName$ = "PhantomNumber"
    DoCmd.OpenForm DocName, , , LinkCriteria

Exit_Button18_Click:
    Exit Sub

Err_Button18_Click:
    MsgBox Error$
    Resume Exit_Button18_Click

End Sub

Private Sub Button19_Click()
On Error GoTo Err_Button19_Click

    Dim DocName As String
    Dim LinkCriteria As String
    LinkCriteria = "WareHouse='90'"
    Call ckPrimaryScreen
    DocName = PrimaryScreen$
    DoCmd.OpenForm DocName, , , LinkCriteria

Exit_Button19_Click:
    Exit Sub

Err_Button19_Click:
    MsgBox Error$
    Resume Exit_Button19_Click

End Sub

Private Sub Button20_Click()
On Error GoTo Err_Button20_Click

    Dim DocName As String
    Dim LinkCriteria As String
    LinkCriteria = "WareHouse='02'"
    Call ckPrimaryScreen
    DocName = PrimaryScreen$
    DoCmd.OpenForm DocName, , , LinkCriteria

Exit_Button20_Click:
    Exit Sub

Err_Button20_Click:
    MsgBox Error$
    Resume Exit_Button20_Click


End Sub

Private Sub Button21_Click()
   Button21.Caption = "CALCULATING"
   DoEvents
   
   ' Single part recalculate
   
   A$ = Trim$(itsaNull$(PartNumber))
   If PaperCutFlag Then b$ = "1" Else b$ = "0"
   Call LaserTapeGenerate(A$, b$)
   Button21.Caption = "Process Laser Tape"
Exit Sub

   ' Multiple part recalculate


   If PaperCutFlag Then b$ = "1" Else b$ = "0"
   
   On Error Resume Next
   MkDir "C:\Files\Process\"
   On Error GoTo 0

   Open "C:\Files\Process\junk.dat" For Input As #15
   While Not (EOF(15))
      Line Input #15, A$
      A$ = Trim$(A$)
      Call LaserTapeGenerate(A$, b$)
   Wend
   Close #15
   Button21.Caption = "Process Laser Tape"

End Sub

Private Sub Button6_Click()
On Error GoTo Err_Button6_Click

    Dim DocName As String
    Dim LinkCriteria As String
    
    DocName = "Universal Selection Screen"
    UnivREQName$ = "PhantomNumber"
    DoCmd.OpenForm DocName, , , LinkCriteria

Exit_Button6_Click:
    Exit Sub

Err_Button6_Click:
    MsgBox Error$
    Resume Exit_Button6_Click
    
End Sub

Private Sub Command24_Click()
On Error GoTo Err_buttUpload_Click

    Dim x As Integer
    Dim AppName As String

    AppName = "S:\UPLOADER.BAT"
    x = Shell(AppName, 1)

Exit_buttUpload_Click:
    Exit Sub

Err_buttUpload_Click:
    MsgBox Error$
    Resume Exit_buttUpload_Click
    

End Sub

Private Sub Form_Load()
   PaperCutFlag = 0
End Sub

Private Sub Form_Open(Cancel As Integer)
   If Exists("\\fryfs001v\eng\DEPTS\IE\PROCESS\ACCESS\PSLine2000.kil") Then
      Application.Quit
   End If
End Sub

Private Sub Form_Timer()

   If Exists("\\fryfs001v\eng\DEPTS\IE\PROCESS\ACCESS\PSLine2000.kil") Then
      Application.Quit
   End If
End Sub

Private Sub MaterSelect_Click()
On Error GoTo Err_MaterSelect_Click

    Dim DocName As String
    Dim LinkCriteria As String

    DocName = "Material Selection Screen"
    DoCmd.OpenForm DocName, , , LinkCriteria

Exit_MaterSelect_Click:
    Exit Sub

Err_MaterSelect_Click:
    MsgBox Error$
    Resume Exit_MaterSelect_Click
    
End Sub

Private Sub Process_Sheet_Click()
On Error GoTo Err_Process_Sheet_Click

    Dim DocName As String
    Dim LinkCriteria As String

    Call ckPrimaryScreen
    DocName = PrimaryScreen$
    DoCmd.OpenForm DocName, , , LinkCriteria

Exit_Process_Sheet_Click:
    Exit Sub

Err_Process_Sheet_Click:
    MsgBox Error$
    Resume Exit_Process_Sheet_Click
    
End Sub

Private Sub Sheet_Utilization_Utilites_Click()
On Error GoTo Err_Sheet_Utilization_Utilites_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Sheet Utilization Utilites"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Sheet_Utilization_Utilites_Click:
    Exit Sub

Err_Sheet_Utilization_Utilites_Click:
    MsgBox Err.Description
    Resume Exit_Sheet_Utilization_Utilites_Click
    
End Sub

What it does

Failed to generate documentation with Ollama