check if a record has been entered in the past 3 months 1

[din2005]

Hi is there any way by code to find a record by patients Name and to check if it was entered in the past three months using that criteria

p.s
I have an tblAppointments and there is field called appointmentDate.

thanks

 

[mp9]

You need to add a field called something like Created_TS and write the date/time to it when the record is created - this could then be used for your query.

http://www22.brinkster.com/accessory/

 

[CautionMP]

[tt]DMax()[/tt]? You could include it in a function like:

Function SeenInLastThreeMonths([b]PatientName[/b] As String) As Boolean
Dim dteLast as Date
dteLast = DMax("appointmentDate", "tblAppointments", "[i]PatientNameField[/i]='" & [b]PatientName[/b] & "'")
If DateDiff("m", Date, dteLast) <= 3 Then
   SeenInLastThreeMonths = True
Else
   SeenInLastThreeMonths = False
End If
End Function

Hope this helps,
CMP


I am sorry I have not succeeded in answering all of your questions.
In fact, I apologize for not completely answering any of them.
The answers I have however do serve to raise a whole new set of questions I had not previously thought of. In some ways, I am as confused as you are but I believe my confusions are (as always) on a higher plane and

 

[mp9]

Simpler version of previous post:

Function SeenInLastThreeMonths(PatientName As String) As Boolean
SeenInLastThreeMonths = (DateDiff("m", Date, DMax("appointmentDate", "tblAppointments", "PatientNameField='" & PatientName & "'")) <= 3)
End Function

http://www22.brinkster.com/accessory/