Auto fill date question...

[Joshua Bowden]

Hi. I have created a form so a user can enter a serial number, device type, and so on for tracking inventory. I am able to get the date field to autofill with the current date. Just in case someone accidently types in something else, however, I want it to re-fill the field with the correct date. This is the VBA code I used for the form:

Option Compare Database
 
Private Sub WhenLastModified_Enter()
 
Me!WhenLastModified = Date
 
End Sub
 
Private Sub WhenLastModified_Exit()
 
If Not (Me!WhenLastModified = Date) Then
Me!WhenLastModified = Date
End If
 
End Sub

It makes sense to me, but of course computers don't speak plain English and I get this error message when I enter the field:

"Procedure declaration does not match description of event or procedure having the same name."

Any help on this would be much appreciated.

Thanks,
Josh

[patjones]

Hi Josh,

Why not just lock that field so that the user cannot type anything in it? If you don't want to do that then we can look into why the VBA code isn't working, but I thought I'd suggest the simple fix first.

Pat

[Joshua Bowden]

Hi Pat,

This fix works perfectly, I didn't even think of locking it. Thank you for the help!

[NeoPa]

Specifically to explain the problem (although Pat's suggestion to lock the field, or even use a label instead, is a much more sensible approach anyway), this error message comes when an event procedure has specific parameters that it expects.

In this case the Exit event procedure should look like :

Private Sub WhenLastModified_Exit(Cancel As Integer)
    Blah blah blah
End Sub

This can be achieved automatically by navigating to the code from the control's Exit property (or even from the VBA IDE window by selecting the control from the left-hand (Object) ComboBox and then Exit from the right-hand one (Procedure)).

PS. You really should check out When Posting (VBA or SQL) Code.