Как добавить погрешность в коде VBA?

@poz1tive · Регистрация: 04.07.2014

Author24 — интернет-сервис помощи студентам

Люди знающие помогите пожалуйста с VBA очень плохо разбираюсь.... В общем сейчас программа считает только в том случает если сум всех Probability=1 нужно добавить погрешность 0.00001
чтобы программа работала только в пределе от 0.99999 до 1.00001 есть таблица с этой погрешностью можно через таблицу либо в самом коде я просто не понимаю как объявить эту переменную((( что то типа if sum =1-погрешность and 1+погрешность
Знающие VBA люди пожалуйста помогите!Извините если что то неправильно написал

Visual Basic

Option Compare Database
 
Private Sub Form_Current()
 
End Sub
Private Sub Кнопка11_Click()
Dim sum As Double
sum = CurrentProject.Connection.Execute("Select Sum(Probability)from tbl_Event_List")(0)
If sum = 1 Then
DoCmd.OpenQuery ("qry_DeleteRecords")
DoCmd.OpenQuery ("qry_CreatingAct-EventCombinations")
DoCmd.Close
DoCmd.OpenForm ("frm_CriteriaToAssessAct-EventCombination")
Else
MsgBox ("Сумма  не равна 1")
End If
End Sub
 
Private Sub Кнопка10_Click()
 
End Sub

@Панург · 18.09.2016, 13:31

poz1tive,

Visual Basic

1
2
3

...
If Abs(1-sum) <= 0.00001  Then
...

mobile · 18.09.2016, 13:36

В 9-й строке исправьте

Visual Basic

1	If Abs(sum-1)<=0.00001 Then

Добавлено через 35 секунд
Аппаздал

@VinniPuh · 18.09.2016, 13:40

А вы все, типа про - Abs говорите, это что, типа какая та спец. функция, типа чего то преобразующая в большую сторону?
Класс. Не знал.

@poz1tive · 18.09.2016, 21:15 **[ТС]**

Спасибо всем!!

@VinniPuh 8859 / 5904 / 585 Регистрация: 27.03.2013 Сообщений: 19,567
	18.09.2016, 13:40	4
	А вы все, типа про - Abs говорите, это что, типа какая та спец. функция, типа чего то преобразующая в большую сторону? Класс. Не знал. 0

@poz1tive 0 / 0 / 0 Регистрация: 04.07.2014 Сообщений: 14
	18.09.2016, 21:15 [ТС]	5
	Спасибо всем!! 0

Опции темы

Как добавить погрешность в коде VBA?

Решение