Reply to thread

Message: [QUOTE="Doc, post: 12097934"] 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 [/QUOTE]

Verification