Message Box displays on date criteria

[a1_robs via AccessMonster.com]

Hi All,

I am trying to create some code to make a message box appear on a form, when
the 'DestroyDate' field value is less than the 'AddDate' field value plus 365
days.

The code I have tried in the Before Update event on the text box is:

Private Sub DestroyDate_BeforeUpdate(Cancel As Integer)

=IIf([DestroyDate] < ([AddDate] + 365),MsgBox("WARNING! Destroy Date is less
than one year!"),0)

End Sub

I get a message saying Compile Error: Syntax Error.

Can anyone spot where I have gone wrong?

Thanks in advance for your help!

 

[Linq Adams via AccessMonster.com]

To be honest, I have no idea what you were trying to do using IIF()!

But this should do the job:

Private Sub DestroyDate_BeforeUpdate(Cancel As Integer)
If Me.DestroyDate < Me.AddDate + 365 Then
MsgBox "WARNING! Destroy Date is less than one year!"
Cancel = True
End If
End Sub

 

[a1_robs via AccessMonster.com]

Hi Linq,

Thanks very much for the code - it works perfectly. The only slight problem
is that it will not now allow me to save the record with a 'DestroyDate' less
that one year after the AddDate, as the message keeps re-appearing. Can you
think of a way to get round this. Could I set the focus to the next text box
(DestroyMethod)?

Thanks again,

Rob.

 

[a1_robs via AccessMonster.com]

Just worked out how to do it! Cancel = False.

Rob.

 

[Noemi Albistur]

quiero mi autentico correo hotmail no este trucho que no pedi