ник: akkorn
Скажите плиз, какая функция из приведенных будет идиологически правильной?
Function Func1() As Double
Dim RstProp As Recordset
Dim ValRstProp As Double
Dim RstOtr As Recordset
Dim ValRstOtr As Double
Set RstProp = CurrentDb.OpenRecordset("бла-бла-бла. рeзультат- сумма значений в столбце")
Set RstOtr = CurrentDb.OpenRecordset("бла-бла-бла. рeзультат- сумма значений в столбце")
If RstProp.RecordCount > 0 Then ValRstProp = RstProp.Fields(0)
If RstOtr.RecordCount > 0 Then ValRstOtr = RstOtr.Fields(0)
Func1 = ValRstProp - ValRstOtr
RstProp.Close
RstOtr.Close
Set RstProp = Nothing
Set RstOtr = Nothing
End Function
Function Func2() As Double
On Error Resume Next
Dim ValRstProp As Double
Dim ValRstOtr As Double
ValRstProp = CurrentDb.OpenRecordset("бла-бла-бла. рeзультат- сумма значений в столбце").Fields(0)
ValRstOtr = CurrentDb.OpenRecordset("бла-бла-бла. рeзультат- сумма значений в столбце").Fields(0)
Func2 = ValRstProp - ValRstOtr
End Function