Holiday Booking Database (1 Viewer)

[Steve H]

Uses virtual datasheet display to display lots of rows. Scroll bar doesn't work properly sometimes.
click and drag to create a holiday. Resize holidays with mouse. click on a holiday and then press delete to delete holiday.
Enter notes on a holiday by double clicking a holiday.
public holidays appear in green.

To create custom calendar edit:
' Constants used to create calendar:
Public Const EMPLOYEE_COL_WIDTH = 2500
Public Const DAY_WIDTH = 530
Public Const MAX_HOLIDAYS = 400
Public Const ROW_HEIGHT = 520
Public Const EMPLOYEE_ROW_COUNT = 50
Public Const HOLIDAY_HEIGHT = 320

' Constants used by calendar when in use:
Public Const EMPLOYEE_HOVER_COLOR = 13158600 ' RGB(200, 200, 200)
Public Const MONTH_HIGHLIGHT_COLOR = 13158600
Public Const HOLIDAY_BACK_COLOR = 14190647 ' RGB(55, 136, 216)
Public Const SELECTED_HOLIDAY_BACKCOLOR = 16763080 'RGB(200, 200, 255)
Public Const SELECTED_HOLIDAY_FORECOLOR = 255 'RGB(255, 0, 0)
Public Const NEW_HOLIDAY_BACKCOLOR = 6579300 'RGB(100, 100, 100)
Public Const NEW_HOLIDAY_FORECOLOR = 16777215 ' RGB(255, 255, 255)
Public Const PUBLIC_HOLIDAY_FONTCOLOR = 3315250 'RGB(50, 150, 50)
Public Const MONTH_BACKCOLOR = 7237375 'RGB(255, 110, 110)
Public Const WEEKEND_LINE_COLOR = 7237375 'RGB(255, 110, 110)

Then run: Create_Calendar()

regards

Steve

 

[Minty]

Very nice!

 

[Steve H]

thanks Minty!

 

[arnelgp]

very nice gui with Comments.
1. arrow keys don't work for the records (up or down)
2. adding Holidays don't get reflected on the Calendar after the Holiday form is closed.
3. only 50 is showing, how about the records 51-198? not entitiled for holidays?

 

[Steve H]

thanks for the feedback arnelgp. Sounds like the scroll bar is not working. It should be fixed in this version. I've also added some keyboard navigation: Home,end,pgup, pgdown,arrowup and arrow down. Also arrow left and right move back and forward by one week. Also solved the missing holidays.

 

[arnelgp]

still have issued with point 2.
you can add holiday but when you close the Employees Form, it does
not automatically get Reflected on the Calendar.
you have to close and re-open the calendar to be able
to see it.

 

[Steve H]

I tried adding a holiday but when I closed the form it showed up on the calendar right away. It could be that you're adding a holiday outside the viewed date range.

If you add this code to the after update event in the holidays sub form then it should bring the holiday into view (into top left hand corner of calendar to be precise) whatever date range or row the calendar is on:

Form_Calendar.GotoDate Me.DateStart
Form_Calendar.SearchEmployees "employeeid =" & Me.EmployeeID

If this is not the issue then I'm not sure how to fix it as it seems to be working fine on mine copy. Just to make sure you know, you can open the employees form by clicking on the employee name on the calendar, not just opening the employees form in the list of forms.

hope this helps!

 

[arnelgp]

i am adding same Holiday as what is displayed on the Header Columns (visible, today upto 28 days.)

 

[Steve H]

Can you post a screen shot?

 

[arnelgp]

it's OK now, the holiday has already been fixed.
i adjusted lblHoliday's Height to match the Row Height.

 

[Steve H]

Glad it's working now!

 

[Gasman]

Hi @Steve H (no idea as to why your name does not come up to select? )

Any chance of a 2007 version please? I would love to take a look at it.

TIA