how do i check against a table?

[cheeese]

Hi



I have to create a database for a library loan system. This system has got to be able to calculate the date that the book has to be returned. It has to be on loan for 14 days as well as the day it was loaned. That bit is simple however i also have to make sure the due date doesnt fall on a weekend or one of the holiday dates that are in a separate table.

I was given a bit of visual basic code that worked in a very similar database however i have had no joy in doing this and i cant seem to create an expression that will do the same thing. I dont have that much knowledge of MS Access so any help would be greatly appreciated.

Thanks

[AccessPonderer]

Interesting problem, why not try

Private sub boolValidReturnDate(testDate as date) as boolean
 Dim iDay as integer

 IDay = weekday(testDate, vbMonday)

 boolValidReturnDate = true

 If iDay = 6 then boolValidReturnDate = false
 If iDay = 7 then boolValidReturnDate = false
 If not isnull( dlookup("testdate", "otherTable") ) then
  boolValidReturnDate = false
 End if
End sub

Private function dateReturn(dateLoan as date) as date
 Dim i as integer, dateFortnight as date
 i=0
 
 DateFortnight = dateadd("d", 14, dateLoan)

 Do while not boolValidReturnDate( dateAdd("d", I, dateFortnight) )
  I = i + 1
 Loop
 
 boolValidReturnDate = dateAdd("d", i, dateFortnight)
End function

Sorry if that doesn't work, I'm on my phone ..