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/ms_access/
<*> 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/
