I''m posting the attached demo in hopes that someone may find it usefull
The sample is a simple one but you can extend it if you find the need... it displays all 12 months and you can change the caption and the backcolor to reflect your data.
enjoy.
Full Version: ACC2000: Year Calendar Report
Hi,
I''m posting the attached demo in hopes that someone may find it usefull
The sample is a simple one but you can extend it if you find the need... it displays all 12 months and you can change the caption and the backcolor to reflect your data.
enjoy.
I''m posting the attached demo in hopes that someone may find it usefull
The sample is a simple one but you can extend it if you find the need... it displays all 12 months and you can change the caption and the backcolor to reflect your data.
enjoy.
Excellent ...
Been a huge fan of your work Dom ...
Sample attached ...
Been a huge fan of your work Dom ...
Sample attached ...
Thanks Jay... i see you're putting the sidebar to work 
yup ...
Sidebar, Aero, Explorer, etc ...
Countless ...
I use it in acc97, XP OS ...
Sidebar, Aero, Explorer, etc ...
Countless ...
I use it in acc97, XP OS ...
nice...
here's something i was working on last year, but stopped... hm, what could have been lol
here's something i was working on last year, but stopped... hm, what could have been
lol
Nice communicator an intranet one ... 
Nice to know what others are chatting ...
Nice to know what others are chatting ...
yes, an intranet one... though mostly a pet project
where can i find the Instant Messaging DB ?
Chat
This is an older post in the code archive that does something similar. It is fun to mess around with.
This is an older post in the code archive that does something similar. It is fun to mess around with.
QUOTE
where can i find the Instant Messaging DB ?
well... i have not posted the instant communicator db, and i'm not really sure that i will, or at least not the full blown app, but i'm sure the link provide to you by the other member can help.
I added a new employee and gave them vac days, when running the report it shows
all vac days when you change from record to record, how can it be coded to only
show the current employees vac days?
all vac days when you change from record to record, how can it be coded to only
show the current employees vac days?
Is anyone having problems downloading this attachment ? I have tried numerous times and am unable to download
"Internet Explorer cannot didplay the webpage"
Have no problem downloading other attachments ???
Thank You
"Internet Explorer cannot didplay the webpage"
Have no problem downloading other attachments ???
Thank You
gsk1203,
to display data for each employee, you'll have to modify the getCalendarData() function as it calls for the entire recordset in the attendance table, you will need to add a filter when opening the recordset and pass along the employee's id
example:
now you would have to supply the employee'd id each time you run the calendar report, perhaps on report's Detial.OnFormat.
jmcwk,
not sure why you're having the download problems, i just downloaded it with no problems
to display data for each employee, you'll have to modify the getCalendarData() function as it calls for the entire recordset in the attendance table, you will need to add a filter when opening the recordset and pass along the employee's id
example:
CODE
Function getCalendarData(employeeID As Long) As Boolean
Dim rs As DAO.Recordset
Dim strDate As String
Dim strCode As String
Dim strSQL As String
Dim i As Integer
'// setup sql to retrieve one employee's attendance
strSQL = "SELECT * From t_employeeAttendance WHERE employeeID = " & employeeID
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
Set colCalendarDates = New Collection
With rs
If (Not .BOF) Or (Not .EOF) Then
.MoveLast
.MoveFirst
End If
If .RecordCount > 0 Then
For i = 1 To .RecordCount
strDate = .Fields("attendanceDate")
strCode = .Fields("statusCode")
colCalendarDates.Add strCode, strDate
.MoveNext
Next i
End If
.Close
End With
'// return date collection
Set rs = Nothing
End Function
Dim rs As DAO.Recordset
Dim strDate As String
Dim strCode As String
Dim strSQL As String
Dim i As Integer
'// setup sql to retrieve one employee's attendance
strSQL = "SELECT * From t_employeeAttendance WHERE employeeID = " & employeeID
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
Set colCalendarDates = New Collection
With rs
If (Not .BOF) Or (Not .EOF) Then
.MoveLast
.MoveFirst
End If
If .RecordCount > 0 Then
For i = 1 To .RecordCount
strDate = .Fields("attendanceDate")
strCode = .Fields("statusCode")
colCalendarDates.Add strCode, strDate
.MoveNext
Next i
End If
.Close
End With
'// return date collection
Set rs = Nothing
End Function
now you would have to supply the employee'd id each time you run the calendar report, perhaps on report's Detial.OnFormat.
jmcwk,
not sure why you're having the download problems, i just downloaded it with no problems
Thanks Dom I will try it when I get home Thank You
Error argument not optional occurs at Call getCalendarData
How to make your code work?
How to make your code work?
How to supply employee id on the report's details.on format?
This calendar is very cool. The only thing I can't figure out - when I added another employee with their vacataion time - the report showed both their vacation times - on each page of their report. Is there someway to have each page of the report only show the vacation time/sick time of that specific employee whose name is listed at the top of the report?
Hope this makes sense!
Thanks for the help!
Hope this makes sense!
Thanks for the help!
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.