Call form from module

[kirubagari]

I want to call a form from a module.
My code as below

  Dim oGetHoldForm As frmHold
 
       If sActionType = "HOLD" Then
          Set oGetHoldForm = frmHold
         End If

Im having problem and it doesnt go into the form that i want.Kindly help

[Guido Geurs]

In the form calling the module put:

Private Sub Command1_Click()
   Call OpenForm
End Sub

In the Module place:

Public Sub OpenForm()
   Form2.Show
End Sub

[kirubagari]

Dear Guido,

I want to call the form from the module when i click the action type and the action type is hold and i'm passing the parameter in this function.

So my code as below:

call from module Public Function HoldReleaseLot(sActionType As String) As String
 
        '*** START FAILSAFE ***
       On Error GoTo FailSafe_Error    'setup error handler
        Push "HoldReleaseLot.bas", "Function HoldReleaseLot", "(" & ")"
        Trace "Enter", 9
     '*** STOP FAILSAFE ********************************************************************************************************************************
        Dim sID As String
       Dim sCommentCode As Strings
         Dim sBrifDes As String
      Dim sFullDesc As String
       Dim iHoldMousePointer As Integer
       Dim sReturnText As String
       Dim bSuccessful As Boolean
      Dim oGetCommentForm As Form
       Dim ofrmRelease As frmRelease
       Dim oGetHoldForm As frmHold
       Dim sHoldComment As String
       Dim oHistory As FwLotHistory
       Dim bRelease As Boolean
       Dim vUserGroup As Variant
       Dim bDIFAlarmGroup As Boolean 
       Dim sHoldReasonCode As String
       Dim bPREFGroup As Boolean       
       Dim iSelect As Integer
      Dim bRehold As Boolean
      Dim IsToolF1 As Boolean
       Dim objILPStep As FwStep
       Dim cNextStep As FwAggregateStep
       Dim cCurrPlan As FwProcessPlan
 
       Screen.MousePointer = vbHourglass
 
 
       HoldReleaseLot = VBRULE_FAIL
 
       If sActionType = "HOLD" Then
           Set oGetHoldForm = frmHold
       End If
      ''
      If sActionType = "Hold" And LCase(rc.Lot.status) = "hold" Then
           'If any dispatch list is selected, have to select Hold rule from Activities>WIP>Hold Lot, if from lot query, just right click and Hold Lot.
          bRehold = False
           'sReturnText = "This lot is already on hold."
           iSelect = LSIMsgBox("This lot is already on HOLD. Are you sure to re-hold with different hold code and comment?", vbYesNo + vbExclamation, rc.ruleName)
           If iSelect = vbNo Then
              GoTo Cancel
           Else
              bRehold = True
           End If
       End If
call from form
Private Sub Form_Load()
        '*** START FAILSAFE ***
       On Error GoTo FailSafe_Error    'setup error handler
        Push "Hold.frm", "Sub Form_Load", "(" & ")"
        Trace "Enter", 9
        '*** STOP FAILSAFE ********************************************************************************************************************************
        CenterForm Me
        '*** START FAILSAFE ********************************************************************************************************************************
 FailSafe_Exit:
        Trace "Exit", 9
       Pop
       Exit Sub
 FailSafe_Error:
       ' *** Insert Special Error Handling Here ***
       LogError
       Resume FailSafe_Exit             'default is to exit this procedure
      '*** STOP FAILSAFE ***
End Sub

Kindly help.

[Guido Geurs]

Is this VB6 ??? (Push, Trace, CenterForm ...???)
If not, please place your call in the right forum.

[kirubagari]

Yes in VB6..Im using that push,trace and center form and im just following the previous developer function..push ,trace center form is all the function

[Guido Geurs]

I hope this will help you: see attachment

...
   Screen.MousePointer = vbHourglass
   HoldReleaseLot = VBRULE_FAIL
 
 
'§ ?????????????????????????????
   If sActionType = "HOLD" Then
      FrmHold.Show
   End If
'§ ???????????????????????????????
 
'   If sActionType = "Hold" And LCase(rc.Lot.Status) = "hold" Then
      '§ If any dispatch list is selected,
      '§ have to select Hold rule from Activities>WIP>Hold Lot,
...

PS: I have comment a lot of code for a test because I don't have all the code!