2 after updates

[cardgunner]

After the user selects and enters one value I want the values for two other fields set.

If I run these they seperately they both work

Private Sub actionid_AfterUpdate()

Me.Action.Value = DLookup("[actionname]", "actiontbl", "[actionid] = Forms![cstfrm]!commentfrm.form!actionid")


End Sub

Private Sub actionid_AfterUpdate()

Me.actionnumber.Value = DLookup("[noofdays]", "actiontbl", "[actionid] = Forms![cstfrm]!commentfrm.form!actionid")

End Sub

What do I need to do to tie the two together? Where they select the action id and it sets the actionname and the noofdays.

 

[pbaldy]

Private Sub actionid_AfterUpdate()

Me.Action.Value = DLookup("[actionname]", "actiontbl", "[actionid] = Forms![cstfrm]!commentfrm.form!actionid")
Me.actionnumber.Value = DLookup("[noofdays]", "actiontbl", "[actionid] = Forms![cstfrm]!commentfrm.form!actionid")

End Sub

 

[ajetrumpet]

What do I need to do to tie the two together? Where they select the action id and it sets the actionname and the noofdays.

I sure hope Paul has already answered this question...

 

[cardgunner]

I get a compile error: syntax error

Private Sub actionid_AfterUpdate() is in yellow

 

[cardgunner]

I have that fixed.

Thank you. It's funny I tried that before and I got an error. Run time error 2564 or 2540?

Hmm, it's working now thank you.