Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Function Activate_Cmd_Menu(Group, Index)
===============================
Dim iFormCount As Integer
For iFormCount = Forms.Count - 1 To 0 Step -1
Unload Forms(iFormCount)
Next iFormCount
===============================
Select Case (Group)
Case 0
Select Case (Index)
Case 0
frmSupplier.Show
Case 1
frmReceipts.Show
End Select
Case 1
End Select
End Function
Function Activate_Cmd_Menu(Group, Index)
===============================
Dim f As Form
For Each f In Forms
If f.MDIChild = True Then
Unload f
End If
Next
===============================
Select Case (Group)
Case 0
Select Case (Index)
Case 0
frmSupplier.Show
Case 1
frmReceipts.Show
End Select
Case 1
End Select
End Function
Dim recept as Integer
Public Sub cmd_Options_Click(Index As Integer)
recept = Activate_Cmd_Menu(A_group, Index)
End Sub
==============================================
Function Activate_Cmd_Menu(Group, Index)
Dim f As Form
For Each f In Forms
If f.MDIChild = True Then
Unload f
End If
Next
Select Case (Group)
Case 0
Select Case (Index)
Case 0
frmSupplier.Show
Case 1
frmReceipts.Show
End Select
Case 1
End Select
End Function
==============================================