Code Help For Fixing Date & Time

[aamer]

The following code uses the transaction date & time. I want it to use the current system date & time instead. How do I do that.

Private Sub Supervised_By_AfterUpdate()
Me.SupPurDate = Date
Me.SupPurEntryTime = Time


Me.Requery
End Sub

[burrina]

Me.SupPurDate = Date()
Me.SupPurEntryTime = Time()

These would be the default values.
HTH

[pbaldy]

It sounds like you've got fields named date and time, which isn't a good idea. You may need to be explicit:

VBA.Date

[accedeholdings]

Your code is kinda complex. You might want to delegate a separate function for time and date then try to simplify it from there.

[June7]

@Accedeholdings, why would do you say the code is complex? Don't think it can get much simpler.

As Paul said, Date and Time are reserved words and should not use reserved words as field names. Maybe VBA was pulling from the fields but there are times that reserved word field names could cause unexpected results.

[pbaldy]

Your code is kinda complex. You might want to delegate a separate function for time and date then try to simplify it from there.

Complex? Based on other posts, are you just spamming the forum?

[aamer]

VBA.Date
VBA.Time

Worked Thx

[pbaldy]

No problem.