The code is meant to open a form, get input, hide the form, take the input
and apply it to the first form.  Basically, if the user selects 'Other', I
want to know what the Name and Category of the 'Other' is.  When the form
opens, if the user only uses the keyboard, everything works fine.  However,
if the user actually clicks the combo box to select an option, it wont let
them select any of the options.  Wierd.

3 chunks of code; 'CurSysRequest()' is the code that runs the main form,
CurSysRequestOther() is on a field as 'After Update', and the code that
checks the IsFormLoaded function.  The IsFormVisible is exaclty the same,
only it checks if frm.Visible = true.

One other anomoly worth mentioning, if the user right clicks to try and
select an option in the pop up window, they get an error message that states
that the BeforeUpdate or Validation Rule is preventing the database from
saving the field, and then the user can select an option, but by that point
the code has stopped functioning.

Thanks in advance!!

Function CurSysRequest()
On Error GoTo ErrHand
   Dim frm As Form, IDSystem As Integer, IDPeople As Integer
   Dim Category As String, FuncName As String, Found As String
   Dim IDPriority As Integer, Desc As String, eCode As String
   
   If IsFormLoaded("frmHiddenUser") = False Then
       MessageForm "A critical compenent is missing, and the database must
exit!"
       Ext
   End If
   
   IDPeople = Forms!frmHiddenUser!UserName
   
   DoCmd.OpenForm "frmCurSys"
   If IsFormLoaded("frmCurSys") = False Then Exit Function
   Set frm = Forms!frmCurSys
   
   Do
       If IsFormLoaded("frmCurSys") = False Then Exit Do
       If IsFormVisible("frmCurSys") = False Then Exit Do
       DoEvents
   Loop
   
   If IsFormLoaded("frmCurSys") = False Then Exit Function
   IDSystem = frm!System
   Category = frm!Category
   FuncName = frm!FuncName
   Found = frm!Found
   IDPriority = frm!Priority
   Desc = frm!description
   If IsNull(frm!eCode) Then
       Desc = frm!description
   Else
       eCode = frm!eCode
       Desc = "Error Code: " & eCode & "; " & frm!description
   End If
   
   
   
   MsgBox Desc
   
   If IsFormLoaded("frmCurSys") Then DoCmd.Close acForm, frm.Name
Exit Function

ErrHand:
   MsgBox Err.description
   ErrorLog "MDSSFunc", "CurSysRequest", "eMf-202", Screen.ActiveForm.Name,
Err.Number, Err.description
End Function

Function CurSysRequestOther()
On Error GoTo ErrHand
   Dim frm As Form, str As String
   
   If IsFormLoaded("frmCurSys") = False Then Exit Function
   Set frm = Forms!frmCurSys
   
   If frm!System = 4 Then
       DoCmd.OpenForm "frmCurSysOther"
       If IsFormLoaded("frmCurSysOther") = False Then Exit Function
       
       Set frm = Forms!frmCurSysOther
       
       frm.Modal = True
       
       Do
           If IsFormLoaded("frmCurSysOther") = False Then Exit Do
           If IsFormVisible("frmCurSysOther") = False Then Exit Do
           DoEvents
       Loop
       
       Exit Function
       
       If IsFormLoaded("frmCurSysOther") = False Then
           If IsFormLoaded("frmCurSys") = True Then DoCmd.Close acForm,
"frmCurSys"
           Exit Function
       End If
       
       str = "Name: "
       str = str & frm!FuncName
       str = str & "; Category: "
       str = str & frm!SysType
       
       If IsFormLoaded("frmCurSysOther") Then DoCmd.Close acForm,
"frmCurSysOther"
       
       MsgBox str
       
       
   End If
   
   frm!Category.SetFocus
   
Exit Function

ErrHand:
   MsgBox Err.description
   'ErrorLog "MDSSFunc", "CurSysRequestOther", "eMf-204",
Screen.ActiveForm.Name, Err.Number, Err.description
End Function

Function IsFormLoaded(frmname As String) As Boolean
On Error GoTo ErrHand
   Dim frm As Form
   IsFormLoaded = False
   For Each frm In Forms
       If frm.Name = frmname Then
           IsFormLoaded = True
           Exit For
       End If
   Next frm
Exit Function
ErrHand:
   ErrorLog "MFunc", "IsFormLoaded", "eFn-121", Screen.ActiveForm.Name,
Err.Number, Err.description
End Function