M
melwester
I have a form that the user can enter dates. Or erase the dates that are
there and insert new ones. I'm getting an error message"The expression After
Update you entered as the event property setting produced the following
error: Event procedure declaration does not match description of event
having the same name.
I cannot figure out where I have the same name. Could someone help.
Thank you.
Here is the code that I have for the date field:
Private Sub IPV1DOS_Text_AfterUpdate(Cancel As Integer)
Dim TextDate As Date
TextDate = DateSerial(Right(Me!IPV1DOS.Value, 4), _
Left(Me!IPV1DOS.Value, 2), _
Mid(Me!IPV1DOS.Value, 3, 2))
Select Case TextDate
Case #10/1/2002# To #9/30/2005#
' do nothing
Cancel = True
Case Else
MsgBox "You have entered an invalid date."
Cancel = True
End Select
End Sub
there and insert new ones. I'm getting an error message"The expression After
Update you entered as the event property setting produced the following
error: Event procedure declaration does not match description of event
having the same name.
I cannot figure out where I have the same name. Could someone help.
Thank you.
Here is the code that I have for the date field:
Private Sub IPV1DOS_Text_AfterUpdate(Cancel As Integer)
Dim TextDate As Date
TextDate = DateSerial(Right(Me!IPV1DOS.Value, 4), _
Left(Me!IPV1DOS.Value, 2), _
Mid(Me!IPV1DOS.Value, 3, 2))
Select Case TextDate
Case #10/1/2002# To #9/30/2005#
' do nothing
Cancel = True
Case Else
MsgBox "You have entered an invalid date."
Cancel = True
End Select
End Sub