Updating a field after updating another field - function name not found

[cpbittner]

I need to update one field on a subform after another field on that same subform has been updated, I have created a subroutine on the subform to do this, and am calling it from the After Update Event, but I am getting the error that the function name cannot be found. I have attached the screen showing my current structure, why is Access having issues seeing the subroutine, - which I have tried to define as public as well?



P.S. I will also note that I have tried a direct expression such as "[NextJobDate] = [LastJobDate]" - which did not do anything, but also did not cause any errors.

[cpbittner]

If I change the subroutine to a Public Function, I not able to see it under functions in the expression builder, either, so I assume I am creating the subroutine/function in the incorrect location.


Public Function setNextDate()
If Not IsNull(Me.LastJobDate) Then
Me.NextJobDate = Me.LastJobDate
End If
End Function

[June7]

Saving data dependent on other data is usually a bad idea. I don't understand what you are doing. Why would these two dates be equal for the same record? But the image shows the dates are different.

A Sub cannot be called from the property. Is this procedure being called from several locations?

[cpbittner]

The code I am using is just a test snippet. Basically I need to know how to have one field (field A), update the value of another (field B), without using a calculated text field since I need to be able to override the field B value if needed. The update just needs to occur on this one subform.

[June7]

In the control AfterUpdate event property select [Event Procedure], click the ellipsis (...) to open the VBA editor, type code.

Me.NextJobDate = Me.LastJobDate

[cpbittner]

That resolved my issue, I was not getting the right syntax in place, thank you.

[cpbittner]

My original issue is fixed, but since it is related adding it to this post. I am getting a Type Mismatch error after the NextJobDate date is correctly updated and I click on another field. All fields are set to short date, the error indicates that "The expression may not result in the name if a macro, ...or [Event Procedure] - and as this is an event procedure I guess that is the issue, but yet it does update the field correctly. Code example is below.

Before I get asked why I am storing the NextJobDate versus just making it a generated field on the query the reason is that the NextJobDate is only partially based on when the job was last done, so even though the ideal date is based on the lastJobDate + the number of days between jobs, there is on occasion the need to manually adjust the nextJobDate whcih is used for scheduling, and that date needs to be stored in its modified state.



Private Sub LastJobDate_AfterUpdate()
If Me.Frequency > 1 Then
Dim tmpNextJobDate As Date
tmpNextJobDate = DateAdd("d", Me.Frequency, Me.LastJobDate)
Me.NextJobDate = tmpNextJobDate
End If
End Sub

[June7]

I don't know why that error triggers. The code looks fine.