VBA, Strange error msg 2486 -- you can't carry out this action at the present time

Strange error msg 2486 -- you can't carry out this action at the present time

Author	Message
Bill Nielse #1 / 5	Strange error msg 2486 -- you can't carry out this action at the present time I have a form with a subform. In the subform, I'm putting a button in the header that allows the user to toggle between sort ascending and descending. The buttons works perfectly on the first click but will not allow access to do anything else. If you click another button (any button) you get the message "error 2486 -- you can't carry out this action at the present time". ========================================================== Private Sub CmdSortEvent_Click() If Me.CmdSortEvent.Caption = "Events (a-z)" Then DoSort "txtevent_ID", acCmdSortAscending Me.CmdSortEvent.Caption = "Events (z-a)" Else DoSort "txtevent_ID", acCmdSortDescending Me.CmdSortEvent.Caption = "Events (a-z)" End If End Sub Private Sub DoSort(sCtrlName As String, lngSortMethod) 'generic procedure to do sort on a current recordset DoCmd.Hourglass True Screen.ActiveForm.AllowAdditions = False DoCmd.GoToControl sCtrlName DoCmd.RunCommand lngSortMethod DoCmd.Hourglass False End Sub ========================================================== Any ideas, Bill
Tue, 28 Sep 2004 23:28:00 GMT

020automatiserin #2 / 5	Strange error msg 2486 -- you can't carry out this action at the present time Bill, Try using a 'select case of' rather then evaluating an 'if then else' construction changing its own evalutaion criterium before the 'else-statement'. If you read your 'if then else' carefully the result will always be ': Me.CmdSortEvent.Caption = "Events (a-z)" Regards Peter van den Hooff Quote: > I have a form with a subform. In the subform, I'm putting > a button in the header that allows the user to toggle > between sort ascending and descending. The buttons works > perfectly on the first click but will not allow access to > do anything else. If you click another button (any > button) you get the message "error 2486 -- you can't carry > out this action at the present time". > ========================================================== > Private Sub CmdSortEvent_Click() > If Me.CmdSortEvent.Caption = "Events (a-z)" Then > DoSort "txtevent_ID", acCmdSortAscending > Me.CmdSortEvent.Caption = "Events (z-a)" > Else > DoSort "txtevent_ID", acCmdSortDescending > Me.CmdSortEvent.Caption = "Events (a-z)" > End If > End Sub > Private Sub DoSort(sCtrlName As String, lngSortMethod) > 'generic procedure to do sort on a current recordset > DoCmd.Hourglass True > Screen.ActiveForm.AllowAdditions = False > DoCmd.GoToControl sCtrlName > DoCmd.RunCommand lngSortMethod > DoCmd.Hourglass False > End Sub > ========================================================== > Any ideas, > Bill
Wed, 29 Sep 2004 01:14:43 GMT

Marshall Barto #3 / 5	Strange error msg 2486 -- you can't carry out this action at the present time Peter, I can't see anything wrong with the If. Changing the value within the Then or Else clause will not affect program flow. Unfortunately, I don't use those DoCmd things any more than absolutely necessary and can't see what the problem might be. -- Marsh MVP [MS Access] On Fri, 12 Apr 2002 19:14:43 +0200, "020automatisering" Quote: >Bill, >Try using a 'select case of' rather then evaluating an 'if then else' >construction changing its own evalutaion criterium before the >'else-statement'. If you read your 'if then else' carefully the result will >always be ': > Me.CmdSortEvent.Caption = "Events (a-z)" >Regards Peter van den Hooff >> I have a form with a subform. In the subform, I'm putting >> a button in the header that allows the user to toggle >> between sort ascending and descending. The buttons works >> perfectly on the first click but will not allow access to >> do anything else. If you click another button (any >> button) you get the message "error 2486 -- you can't carry >> out this action at the present time". >> ========================================================== >> Private Sub CmdSortEvent_Click() >> If Me.CmdSortEvent.Caption = "Events (a-z)" Then >> DoSort "txtevent_ID", acCmdSortAscending >> Me.CmdSortEvent.Caption = "Events (z-a)" >> Else >> DoSort "txtevent_ID", acCmdSortDescending >> Me.CmdSortEvent.Caption = "Events (a-z)" >> End If >> End Sub >> Private Sub DoSort(sCtrlName As String, lngSortMethod) >> 'generic procedure to do sort on a current recordset >> DoCmd.Hourglass True >> Screen.ActiveForm.AllowAdditions = False >> DoCmd.GoToControl sCtrlName >> DoCmd.RunCommand lngSortMethod >> DoCmd.Hourglass False >> End Sub >> ========================================================== >> Any ideas, >> Bill
Wed, 29 Sep 2004 05:03:16 GMT

020automatiserin #4 / 5	Strange error msg 2486 -- you can't carry out this action at the present time Marsh, You were right, I was wrong. Must have been a because these toggles fools everybody once in a time. Peter Quote: > Peter, > I can't see anything wrong with the If. Changing the value > within the Then or Else clause will not affect program flow. > Unfortunately, I don't use those DoCmd things any more than > absolutely necessary and can't see what the problem might > be. > -- > Marsh > MVP [MS Access] > On Fri, 12 Apr 2002 19:14:43 +0200, "020automatisering" > >Bill, > >Try using a 'select case of' rather then evaluating an 'if then else' > >construction changing its own evalutaion criterium before the > >'else-statement'. If you read your 'if then else' carefully the result will > >always be ': > > Me.CmdSortEvent.Caption = "Events (a-z)" > >Regards Peter van den Hooff > >> I have a form with a subform. In the subform, I'm putting > >> a button in the header that allows the user to toggle > >> between sort ascending and descending. The buttons works > >> perfectly on the first click but will not allow access to > >> do anything else. If you click another button (any > >> button) you get the message "error 2486 -- you can't carry > >> out this action at the present time". > >> ========================================================== > >> Private Sub CmdSortEvent_Click() > >> If Me.CmdSortEvent.Caption = "Events (a-z)" Then > >> DoSort "txtevent_ID", acCmdSortAscending > >> Me.CmdSortEvent.Caption = "Events (z-a)" > >> Else > >> DoSort "txtevent_ID", acCmdSortDescending > >> Me.CmdSortEvent.Caption = "Events (a-z)" > >> End If > >> End Sub > >> Private Sub DoSort(sCtrlName As String, lngSortMethod) > >> 'generic procedure to do sort on a current recordset > >> DoCmd.Hourglass True > >> Screen.ActiveForm.AllowAdditions = False > >> DoCmd.GoToControl sCtrlName > >> DoCmd.RunCommand lngSortMethod > >> DoCmd.Hourglass False > >> End Sub > >> ========================================================== > >> Any ideas, > >> Bill
Wed, 29 Sep 2004 18:53:08 GMT

wizofic #5 / 5	Strange error msg 2486 -- you can't carry out this action at the present time I'm finding this error all over the internet. And no one seems to have the answer. I believe the 2486 error results when the VB engine cannot process anything else (ie., it is busy). The question is, why is it busy? I don't believe this to be an error in the script. I have a three-line script that still gives the error, and one identical to it (except for a variable string name on a different report) while it's twin does not. Sounds like a bug. -- Posted via dBforums http://dbforums.com
Tue, 23 Nov 2004 14:35:16 GMT

Page 1 of 1

[ 5 post ]