multiple procedures under 1 event

[Tom Kasberg]

Hi I am new to VBA. I am trying to use an onEvent to trigger multiple independent procedures. How do you code it so the each sub procedures fires independently of the other procedures?

[Rabbit]

Are you talking about multi-threading? Meaning running different code at the same time? VBA does not have that kind of functionality. Just run them sequentially.

[Tom Kasberg]

No. It really is a simple question.

I have:

Private Sub Form_Current()
If Combo87 = "Closed" Then
Me.Text85.Enabled = True
Else
End If
End Sub

and I need to add the code

If PostImpReview = "No" Then
Me.PostImpReviewDate = Null
Me.PostImpReviewDate.Enabled = False
Else
Me.PostImpReviewDate.Enabled = True
Me.PostImpReviewDate.SetFocus
End If

so both actions occur - so it 2 procedures under the 1 event.

Thank you inadvance of you inparting your wisdom on me.

[mshmyob]

Move your end sub to the end.

cheers,

[NeoPa]

Nevertheless, the simple question doesn't yet make sense.

Guessing what you might mean I would suggest (but frankly the question should make sense before the first post and not - maybe - after the third.) :

Private Sub Form_Current()
    With Me
        .Text85.Enabled = (.Combo87 = "Closed")
        With .PostImpReviewDate
            If Me.PostImpReview = "No" Then
                .Value = Null
                .Enabled = False
            Else
                .Enabled = True
                Call .SetFocus
            End If
        End With
    End With
End Sub