Need help Please!!!

[sean_churchill]

Hi,

How do i compare two dates in a 'Form' and if they are more than six months apart how do i produce a error message?

One date is in a text box (Which is from a list in Table by the following name :- Latest DEM ISSUE NO) and the other is todays date which is done by this :- =format(Date(),"Short Date")

There are over 1000 different dates in the Table. i need it to check each one.

Please help!!!!

Many Thanks

Sean.

 

[LarryJ]

You seem to have two issue here. One is to check based on a form (for new data?), the other is to run some code to check existing data.

Here is some code that will work for your form need. To test it, create a new form with a textbox and a command button only. Paste this code in for the command button click event. It will give you a msgbox based on the difference in today's date and the date typed into the textbox.

Private Sub Command2_Click()
Dim lngDiff As Long
Dim strMsg As String

lngDiff = DateDiff("m", Now, Me.Text0)
strMsg = "DateDiff = " & lngDiff

If lngDiff = 6 Then
If Day(Me.Text0) > Day(Now) Then
strMsg = strMsg & " - Error"
End If
ElseIf lngDiff > 6 Then
strMsg = strMsg & " - Error"
End If

MsgBox strMsg

End Sub

If you need to run this on a lot of data, use this as the basis for a subroutine to execute on all the dates in the table.

HTH