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

ник: 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