Only allow input between certain times 1

[Craigieboy]

Hi all,

I have a simple input box which writes a value to a database.

I would like to add, as part of my validation, that this input box can only be updated between 3pm on any Friday and 10am on any Monday. Should an attempt be made at any time outwith this period an error message is displayed.

I would be eternally greatful if anyone could help!

Thanks in advance,
Craigieboy

 

[BeckD]

Hi

You could try this:

wkDay = DatePart("w", Date)
tmNow = DatePart("h", time)
	
If (wkDay >= vbFriday and tmNow > 15) and (wkDay <= vbMonday and tmNow <= 10) then
    'error message goes here
else
    'processing stuff goes here
end if

HTH
Beck

 

[Craigieboy]

Thanks Beck, that worked perfectly!

Kind regards,
Craig