Microsoft
Software
Hardware
Network
Question : Average of numbers - count only records with complete data
I have a DB with a table that contains the core data (name, dept, RateJournal, RateBooks....). I have code written which will average the data for each field. The problem is some of the records do not have data for the "Rate.." fields. I want to count and average only those records for fields which have a number greater than 0. Not sure how to delete the incomplete records. Following is working code, but it is counting all records and then averaging. I am new to this type of calculations, please advise. Thanks.
<%
'Number of records with priority rankings
sqlCount = "SELECT count(*) AS records FROM tblClinicians "
Set objCount = objConn.Execute(sqlCount)
sqlRank = "SELECT ROUND(AVG(tblClinicians.Ra
teJournal)
, 2) AS RateJournal, " & _
"ROUND(AVG(tblClinicians.R
ateBooks),
2) AS RateBooks, " & _
"ROUND(AVG(tblClinicians.R
ateDatabas
e), 2) AS RateDatabase, " & _
"ROUND(AVG(tblClinicians.R
atePOC), 2) AS RatePOC, " & _
"ROUND(AVG(tblClinicians.R
ateMultipl
e), 2) AS RateMultiple, " & _
"ROUND(AVG(tblClinicians.R
ateOther),
2) AS RateOther " & _
"FROM tblClinicians "
Set objRank = objConn.Execute(sqlRank)
%>
<%=title%>
<%=title%>
Total number of evaluations completed (includes ONLY those responses where rankings were completed):
Ranking: importance of the type of online resources (#1 is first/top priority -
#2 is second/2nd priority)
Journals: <%=objRank("RateJournal")%
>
Books: <%=objRank("RateBooks")%>
Database: <%=objRank("RateDatabase")
%>
Point of Care Products: <%=objRank("RatePOC")%>
Multiple Resources in One: <%=objRank("RateMultiple")
%>
Other: <%=objRank("RateOther")%>
Answer : Average of numbers - count only records with complete data
re: "do not have data for the "Rate.." fields"
So, these fields probably allow NULL.
How about adding:
WHERE tblClinicians.RateJournal IS NOT NULL
AND tblClinicians.RateBooks IS NOT NULL
AND etc.
Random Solutions
Intercepting WM_KEYDOWN messages
Before Update Event in Combo Box Cancel event
Adding more rules to outlook - third part or outlook options
LSASRV Event Log errors, EventID 40960
Internet Explorer is broken!!!
Disable / enable custom menu items
SQL, Login Failed Error
avoid execution of javascript on postback with updatepanel and timer
VBA Interior ColorIndex Excel
How to calculate 25th percentile on an Access report