Function CountFields()
On error goto err
Dim i as long, zapOpen as DAO.recordset, strsl as string, y as long
strsql="003_No_Cur_ICW_Add_Data"

set zapOpen =currentdb.openrecordset(strql,2)
if .eof and .bof then exit function
With zapOpen 
.MoveFirst
   Do Until .EOF
y=0
       for i=3 to .fields.count-2
       if .fields(i)<>"" then y=y+1
      next i
.edit
.fields(.fields.count-1)=y
.update
.MoveNext
Loop
.close
End With
exit:
set zapOpen =nothing
exit function
err:
' здесь обработка ошибок: минимально если regRazrabotki - это глобальная переменная режима разработки
if regRazrabotki=true then Debug.Print Err.Number; Tab; Err.Description: Stop: Resume
resume exit
End function