filling in related data

[brbarto]

I am trying to use the following:

Private Sub AdjustmentDate_AfterUpdate()
Me!TransactionDate = Me!AdjustmentDate
End Sub

I would like to have today’s date as the default for AdjustmentDate; however, if the default is used, the TransactionDate doesn’t get updated. Is there a solution to my problem?

Thanks, NewToAccess, BB

 

[bagheera]

Put the the default value for the AdjustmentDate to be Date() and the the default value for TranzactionDate to be AdjustmentDate.Value

 

[THoey]

The reason it doesn't get updated is that the AfterUpdate event doesn't fire when a default is accepted. I agree with bagheera's solution... Terry M. Hoey