Hello All,
I've grabbed the db Patients from this website and am attempting to tweak it.
I took the tblPatients and made it into EmployeeHours. The fields are now: employee, typeofleave, sumofnumofhrs, leavedatefrom, leavedateto
I added types of leave (to get the attendance code like LA for annual leave)
I took the qryPatients and made it into qryEMP, so now I get the same info as the EmployeeHours with the addition of the attendance code.
Public Sub PopulateCalenda r()
WAS:
Changed to:
Public Sub PopulateEventsL ist(ctlDayBlock As Control)
WAS:
ChangedTo:
I might have to go review that last one. I want the calendar to show the employee, the attendance code and the numofhrs (how many hrs they took) Also, to show the data for all dates between the leavedatefrom through the leavedateto when folks take more than one day off.
ISSUE: I am getting a compile error: ambiguous name detected:Log errors
WAS:
Changed to frmCalendarEMP to refer to the actual calendar:
I can't seem to get past this error. Once I am able to get past it, I may encounter others. At that point, I may need more assistance. I have tried searching the forum and now everything went greek on me.
If there is any other information needed, please let me know.
Please help, osmosisgg
I've grabbed the db Patients from this website and am attempting to tweak it.
I took the tblPatients and made it into EmployeeHours. The fields are now: employee, typeofleave, sumofnumofhrs, leavedatefrom, leavedateto
I added types of leave (to get the attendance code like LA for annual leave)
I took the qryPatients and made it into qryEMP, so now I get the same info as the EmployeeHours with the addition of the attendance code.
Public Sub PopulateCalenda r()
WAS:
Code:
"SELECT tblPatients.Last, tblPatients.First, tblPatients.Date, tblVisitType.Type, tblVisitType.Code, tblPatients.Time " & _
"FROM tblVisitType INNER JOIN tblPatients ON tblVisitType.TypeID = tblPatients.TypeID " & _
"WHERE tblPatients.Date Between " & lngFirstOfMonth & " And " & lngLastOfMonth & _
" ORDER BY tblPatients.Time, tblPatients.Last, tblPatients.First;"
Code:
"SELECT employeehours.employee, employeehours.leavedatefrom, employeehours.leavedateto,[types of leave].calinput, [types of leave].attendancecode, employeehours.sumofnumofhrs " & _
"FROM [types of leave] INNER JOIN employeehours ON [types of leave].attendancecode = employeehours.typeofleave " & _
"WHERE employeehours.leavedatefrom Between " & lngFirstOfMonth & " And " & lngLastOfMonth & _
" ORDER BY employeehours.leavedatefrom, employeehours.employee;"
WAS:
Code:
"SELECT tblPatients.Patient_ID, tblPatients.Last, tblPatients.First, tblPatients.Date, tblPatients.Time, " & _
"tblVisitType.Type, tblVisitType.Code, tblPatients.Insurance FROM tblVisitType INNER JOIN tblPatients ON " & _
"tblVisitType.TypeID = tblPatients.TypeID " & _
"WHERE tblPatients.Date = " & ctlDayBlock.Tag & _
" ORDER BY tblPatients.Time, tblPatients.Last, tblPatients.First;"
Code:
"SELECT employeehours.employee, employeehours.leavedatefrom, employeehours.leavedateto " & _
"[types of leave].calinput, [types of leave].attendancecode, employeehours.sumofnumofhrs " & _
"FROM [types of leave] INNER JOIN employeehours ON [types of leave].attendancecode = = employeehours.typeofleave " & _
"WHERE employeehours.leavedatefrom = " & ctlDayBlock.Tag & _
" ORDER BY employeehours.leavedatefrom, employeehours.employee;"
ISSUE: I am getting a compile error: ambiguous name detected:Log errors
WAS:
Code:
Call LogErrors(Err.Number, Err.Description, "frmCalendar", "PopulateCalendar() Sub-Routine", "Called from Multiple Locations")
Resume Exit_PopulateCalendar
Code:
Call LogErrors(Err.Number, Err.Description, "frmCalendarEMP", "PopulateCalendar() Sub-Routine", "Called from Multiple Locations")
Resume Exit_PopulateCalendar
If there is any other information needed, please let me know.
Please help, osmosisgg
Comment