Hi Les, What specifically is the process doing, or failing to do, after you made the change? Sorry if I overlooked anything obvious.
Bryant --- In [email protected], "Les OBrien" <[EMAIL PROTECTED]> wrote: > > > Found the cause of the second form becoming partially frozen - the > calendar as well as the frames (option group) of the second form are > being 'blocked' from access somehow by a form that was open just prior > to the second form. > > The first form has two command buttons, one which works easy enought as > it is a prompted query. The other command button of the first form > follows (my apologies for the extensive code here, I usually use macros > and still have a VBA learning curve)... > > Private Sub cmd_PollBySSN_Click() > On Error GoTo Err_cmd_PollBySSN_Click > > ' delete row(s) in table 'tbl_Search_Record_vw' > DoCmd.OpenQuery "del_Search_Record_vw", acViewNormal, acEdit > > ' append row(s) to 'tbl_Search_Record_vw' based on criteria provided > to prompt planted in query 'app_Select_EE_SSN' > DoCmd.OpenQuery "app_Select_EE_SSN", acViewNormal, acEdit > > ' Open 'frm_Search_Record' which displays the pay detail profile for > the SSN provided in query 'app_Select_EE_SSN' > DoCmd.OpenForm "frm_Search_Record", acNormal, "", "", acReadOnly, > acNormal > > ' Close the from 'frm_SearchBy' > DoCmd.Close acForm, "frm_SearchBy" > > Exit_cmd_PollBySSN_Click: > Exit Sub > > Err_cmd_PollBySSN_Click: > MsgBox Err.Description > Resume Exit_cmd_PollBySSN_Click > > End Sub > > Basically, a table used to store one record is cleared of the old data > and populated with new data based upon the SSN entered. > > The code to the second form is... > > Private Sub Cmd_RetrievePayDetails_Click() > On Error GoTo Err_Cmd_RetrievePayDetails_Click > > ' Turns off warnings > DoCmd.SetWarnings False > ' Turns on hourglass > DoCmd.Hourglass True > > ' Seeks status of option group and of toggle buttons to generate... > If (Eval("[Forms]![frm_Search_Record]![frame_components] Is Null And > [Forms]![frm_Search_Record]![frame_cycle] Is Not Null")) Then > ' ... an Error Message when a Compenent to Poll is not selected > Beep > MsgBox "You need to select a Component to Poll (Check Data, > Deductions, Hours & Earnings, or Memoes). Please choose one of the four > listed on the panel after clicking the OK button.", vbCritical, " O O P > S . . . A Component Selection is Needed..." > End If > > ' Seeks status of option group and of toggle buttons to generate... > If (Eval("[Forms]![frm_Search_Record]![frame_components] Is Not Null > And [Forms]![frm_Search_Record]![frame_cycle] Is Null")) Then > ' ... an Error Message when a Reporting Cycle is not selected > Beep > MsgBox "You need to select a Reporting Cyclel (Monthly, > Quarterly, or Annually). Please choose one of the three listed on the > panel after clicking the OK button.", vbCritical, " O O P S . . . A > Reporting Cycle is Needed..." > End If > > ' Seeks status of option group and of toggle buttons to generate... > If (Eval("[Forms]![frm_Search_Record]![frame_components] Is Null And > [Forms]![frm_Search_Record]![frame_cycle] Is Null")) Then > ' ... an Error Message when neither a Compenent to Poll nor a > Reporting Cycle is selected > Beep > MsgBox "You need to choose both a Component to Poll (Check Data, > Deductions, Hours & Earnings, or Memoes) and a Reporting Cycle (Montlhy, > Quarterly, or Annually) before continuing. Please make your selections > on the panel after clicking the OK button.", vbCritical, " O O P S . . > . Components to Poll and Reporting Cycle Are Needed..." > End If > > ' Criteria of option group and of toggle buttons to... > If (Forms!frm_Search_Record!frame_components = 1 And > Forms!frm_Search_Record!frame_cycle = 3) Then > ' Open query 'qry_Comp_ChkData_Annual' to display totals in > annual amounts > DoCmd.OpenQuery "qry_Comp_ChkData_Annual", acViewNormal, acEdit > End If > > ' Criteria of option group and of toggle buttons to... > If (Forms!frm_Search_Record!frame_components = 1 And > Forms!frm_Search_Record!frame_cycle = 2) Then > ' Open query 'qry_Comp_ChkData_Qtrly' to display totals in > quarterly amounts > DoCmd.OpenQuery "qry_Comp_ChkData_Qtrly", acViewNormal, acEdit > End If > > ' Criteria of option group and of toggle buttons to... > If (Forms!frm_Search_Record!frame_components = 1 And > Forms!frm_Search_Record.frame_cycle = 1) Then > ' Open query 'qry_Comp_ChkData_Mnthly' to display totals in > monthly amounts > DoCmd.OpenQuery "qry_Comp_ChkData_Mnthly", acViewNormal, acEdit > End If > > ' Criteria of option group and of toggle buttons to... > If (Forms!frm_Search_Record!frame_components = 2 And > Forms!frm_Search_Record!frame_cycle = 3) Then > ' Open query 'qry_Comp_Ded_Annual' to display totals in annual > amounts > DoCmd.OpenQuery "qry_Comp_Ded_Annual", acViewNormal, acEdit > End If > > ' Criteria of option group and of toggle buttons to... > If (Forms!frm_Search_Record!frame_components = 2 And > Forms!frm_Search_Record!frame_cycle = 2) Then > ' Open query 'qry_Comp_Ded_Qtrly' to display totals in quarterly > amounts > DoCmd.OpenQuery "qry_Comp_Ded_Qtrly", acViewNormal, acEdit > End If > > ' Criteria of option group and of toggle buttons to... > If (Forms!frm_Search_Record!frame_components = 2 And > Forms!frm_Search_Record!frame_cycle = 1) Then > ' Open query 'qry_Comp_Ded_Mnthly' to display totals in monthly > amounts > DoCmd.OpenQuery "qry_Comp_Ded_Mnthly", acViewNormal, acEdit > End If > > ' Turn hourglass off > DoCmd.Hourglass False > ' Turn warnings on > DoCmd.SetWarnings True > > Exit_Cmd_RetrievePayDetails_Click: > Exit Sub > > Err_Cmd_RetrievePayDetails_Click: > MsgBox Err.Description > Resume Exit_Cmd_RetrievePayDetails_Click > > End Sub > > I've tried DoCmd.Clos to the two queries in the first form without > succes... Just what am I missing????..... > > TIA > > Les > > > > [Non-text portions of this message have been removed] > Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/AccessVBACentral/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
