Форумы HiProg.com - MS ACCESS, VBA, VB

ник: ser60
strSql списал с работающего запроса, а в функции запрос не работает. Акс пишет в locals,что
cnn : Nothing и Connection : Nothing. и strSql "". Это из-за суммирования в запросе ? AmbDoctor =0 Почему?

Public Function AmbDoctor(MedOrgCode As Long, Functional As Long) As Long ' Purpose   : Подсчет нормативного количества амбулаторных врачебных должностей диспансеров '---------------------------------------------------------------------------------------     Dim cnn As New ADODB.Connection     Dim rst As New ADODB.Recordset     Set cnn = CurrentProject.Connection          Dim strSql As String     strSql = "SELECT Sum(Stat.КоличДолжн) AS [Sum-КоличДолжн] FROM Stat "     strSql = strSql & "WHERE (((Stat.МедОрг)=" & MedOrgCode & ") AND ((Stat.Функционал)=" & Functional & ") AND ((Stat.КодДолжности) Like '05*'));"     ' Open the recordset     rst.Open strSql, cnn, adOpenKeyset, adLockOptimistic     AmbDoctor = Nz(rst![Sum-КоличДолжн], 0) End Function