| |
|
|
| | попытался отработать два варианта обработки отсутствия записей в наборе (по отдельности конечно) и ни один не проходит. Помогите разобраться в чем дело?
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
|
| |
| |
| |
| |
|
|
| | хз, у меня так работаит
If Not zs.EOF Then
zs.MoveLast: zs.MoveFirst '--по старинке :)
rc = zs.RecordCount
........
|
| |
| |
| |
| |
|
|
| |
zs.MoveLast: zs.MoveFirst '--по старинке :)
|
ы-ы-ы-ы-Ы :) | |
| |
| |
| |
|
|
| |
If Not (rst.BOF And rst.EOF) Then 'такой прием есть у К.Гетца акс2000 1 том
CardioSurgicalBeds = 0
Else
CardioSurgicalBeds = rst![РасчетКоек]
End If
|
Вроде как все наоборот | |
| |
| |
| |
|
|
| | досадная ошибка! Спасибо, ДрЮня. | |
| |
| |
