On Current Event not triggered

Annalyzer

I have an intake form that is opened by clicking a control on a search form. This click runs a subroutine in the search form that uses DoCmd.OpenReport with stLinkCriteria.

In the intake form I have a subroutine that is set to run OnCurrent - Private Sub Form_Current().

Here's where it gets weird. When I open the intake form by clicking the control in the search form, the code does not run (the results would be visible on the screen).

However, if I put a Breakpoint in the code and open the form exactly the same way, it takes me directly to the code where I can F5 to run it.

What's going on? Has anyone seen this before?

ADezii

Quote:

Originally Posted by Annalyzer

I have an intake form that is opened by clicking a control on a search form. This click runs a subroutine in the search form that uses DoCmd.OpenReport with stLinkCriteria.

In the intake form I have a subroutine that is set to run OnCurrent - Private Sub Form_Current().

Here's where it gets weird. When I open the intake form by clicking the control in the search form, the code does not run (the results would be visible on the screen).

However, if I put a Breakpoint in the code and open the form exactly the same way, it takes me directly to the code where I can F5 to run it.

What's going on? Has anyone seen this before?

How about displaying the code in the Control on the Search Form, as well as the code in the Current() Event of the Intake Form?

Annalyzer

It's very simple code, really.

From the control on the search form:

Expand|Select|Wrap|Line Numbers

 Private Sub memLast_Click()

On Error GoTo Err_memLast_Click
 
    Dim stDocName As String

    Dim stLinkCriteria As String
 
    stLinkCriteria = "hhId=" & Me.hhId

    DoCmd.OpenForm "frmHousehold", , , stLinkCriteria
 
Exit_memLast_Click:

    Exit Sub
 
Err_memLast_Click:

    MsgBox Err.Description

    Resume Exit_memLast_Click
 
End Sub

And from the intake form:

Expand|Select|Wrap|Line Numbers

 Private Sub Form_Current()

    Dim monthCount, yearCount As Integer
 
    monthCount = Me![sfrmHiddenFBMonthCount].[Form]![txtFBCount]

    If monthCount > 1 Then

        Label34.Visible = False

        txtBoxesThisMonth.Visible = False

        Label35.Visible = False

        lblExceededMonthLimit.Visible = True

    End If
 
    yearCount = Me![sfrmFoodbox].[Form]![txtFBCount]

    If yearCount > 11 Then

        Label31.Visible = False

        txtBoxesThisYear.Visible = False

        Label32.Visible = False

        lblExceededAnnualLimit.Visible = True

    End If

End Sub

I tried moving it to other events, but got the same results no matter where I put it. Is it because I'm relying on a value from the subform?

Annalyzer

Got it. It did have to do with referring to a value from the subform. The value I was pulling was a total in a footer on the subform. As soon as I moved it to it's own hidden subform everything worked perfectly. Thanks for your help.

On Current Event not triggered

re: On Current Event not triggered

re: On Current Event not triggered

re: On Current Event not triggered

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about