rst.Open strSql, cnn, adOpenKeyset, adLockOptimistic
If IsNull(rst.RecordCount) Then
CardioSurgicalBeds = 0
Else
CardioSurgicalBeds = Nz(rst![РасчетКоек], 0)
End If
' Open the recordset
rst.Open strSql, cnn, adOpenKeyset, adLockOptimistic
If Not (rst.BOF And rst.EOF) Then 'такой прием есть у К.Гетца акс2000 1 том
CardioSurgicalBeds = 0
Else
CardioSurgicalBeds = rst![РасчетКоек]
End If
|