Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Деление значения на 2 при вводе в форму / 11 сообщений из 11, страница 1 из 1
30.10.2015, 11:03
    #39090851
Ryo
Ryo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Деление значения на 2 при вводе в форму
Всем добрый день!

Задача:Есть значение например 10, я ввожу 10, а оно автоматически делится на 2 и заносится в базу как 5.

Пробовал в форме поискать такую функцию, не нашел, в аксессе не очень силен.

Помогите пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2015, 11:13
    #39090862
Slavinag
Slavinag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Деление значения на 2 при вводе в форму
Как я понимаю из формулировки задачи, значение заносится в какое-то числовое поле формы. Тогда на это поле создаётся обработка события "До обновления" (BeforeUpdate), где это значение и делится на всё, что душе угодно (кроме нуля). ))

Типа такого, для поля MyField:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub MyField_BeforeUpdate(Cancel As Integer)
'Перед обновлением данных в поле "Очередность".

'Перехват обработки ошибок.
On Error GoTo Err_MyField_BeforeUpdate


'
Me.MyFiled.Value = Me.MyFiled.Value / 2


'Нормальное завершение процедуры.
Exit_MyField_BeforeUpdate:
    Exit Sub

'Обработка ошибок.
Err_MyField_BeforeUpdate:
    MsgBox Err.Description & vbCrLf & "Код ошибки: " & Err.Numer, vbCritical, "Форма [MyForm] -> Sub [MyField_BeforeUpdate]"
    DoCmd.CancelEvent
    Resume Exit_MyField_BeforeUpdate

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2015, 11:17
    #39090870
Ryo
Ryo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Деление значения на 2 при вводе в форму
SlavinagКак я понимаю из формулировки задачи, значение заносится в какое-то числовое поле формы. Тогда на это поле создаётся обработка события "До обновления" (BeforeUpdate), где это значение и делится на всё, что душе угодно (кроме нуля). ))

Типа такого, для поля MyField:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub MyField_BeforeUpdate(Cancel As Integer)
'Перед обновлением данных в поле "Очередность".

'Перехват обработки ошибок.
On Error GoTo Err_MyField_BeforeUpdate


'
Me.MyFiled.Value = Me.MyFiled.Value / 2


'Нормальное завершение процедуры.
Exit_MyField_BeforeUpdate:
    Exit Sub

'Обработка ошибок.
Err_MyField_BeforeUpdate:
    MsgBox Err.Description & vbCrLf & "Код ошибки: " & Err.Numer, vbCritical, "Форма [MyForm] -> Sub [MyField_BeforeUpdate]"
    DoCmd.CancelEvent
    Resume Exit_MyField_BeforeUpdate

End Sub



Спасибо большое, буду разбираться.
З.Ы. Как тут + или лайк то поставить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2015, 11:19
    #39090872
\\\\
\\\\
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Деление значения на 2 при вводе в форму
RyoВсем добрый день!

Задача:Есть значение например 10, я ввожу 10, а оно автоматически делится на 2 и заносится в базу как 5.

Пробовал в форме поискать такую функцию, не нашел, в аксессе не очень силен.

Помогите пожалуйста. - Доктор, у меня что-то болит.
- Вот вам какая-то таблетка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2015, 11:21
    #39090877
Agapov_stas
Agapov_stas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Деление значения на 2 при вводе в форму
RyoЗадача:Есть значение например 10, я ввожу 10, а оно автоматически делится на 2 и заносится в базу как 5.
На событие AfterUpdate Вашего поля произведите расчет в поле(уж математику, надеюсь, знаете).

RyoПробовал в форме поискать такую функцию, не нашел, в аксессе не очень силен.
Улыбнуло:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2015, 11:29
    #39090888
ROI
ROI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Деление значения на 2 при вводе в форму
RyoВсем добрый день!

Задача:Есть значение например 10, я ввожу 10, а оно автоматически делится на 2 и заносится в базу как 5.

Пробовал в форме поискать такую функцию, не нашел, в аксессе не очень силен.

Помогите пожалуйста.
Ага сейчас делим на 2 завтра на 2.2
а после завтра я есче не решил.
Заведите в таблице поле "текущее значение" и поле "делителя" и в запросе делите, умножайте, вычитайте .....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2015, 11:30
    #39090889
Ryo
Ryo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Деление значения на 2 при вводе в форму
Agapov_stasRyoЗадача:Есть значение например 10, я ввожу 10, а оно автоматически делится на 2 и заносится в базу как 5.
На событие AfterUpdate Вашего поля произведите расчет в поле(уж математику, надеюсь, знаете).

RyoПробовал в форме поискать такую функцию, не нашел, в аксессе не очень силен.
Улыбнуло:)

Рад, что кого то еще улыбают нубы, а то одни хейтеры :)

что не так делаю Runtime Error 438 Object doesn't support this property or method, строка выделена желтым цветом.
Код: vbnet
1.
MsgBox Err.Description & vbCrLf & "Код ошибки: " & Err.Numer, vbCritical, "Форма [Form_Таблица1] -> Sub [Поле3_BeforeUpdate]"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2015, 11:30
    #39090890
ROI
ROI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Деление значения на 2 при вводе в форму
RyoПробовал в форме поискать такую функцию, не нашел, в аксессе не очень силен.
Это да.
На повал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2015, 11:52
    #39090919
Agapov_stas
Agapov_stas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Деление значения на 2 при вводе в форму
Ryoчто не так делаю Runtime Error 438 Object doesn't support this property or method, строка выделена желтым цветом.
Код: vbnet
1.
MsgBox Err.Description & vbCrLf & "Код ошибки: " & Err.Numer, vbCritical, "Форма [Form_Таблица1] -> Sub [Поле3_BeforeUpdate]"


Err.Numer--->err.Number

П.С. Вы делаете все, но только не то, что Вам сейчас нужно делать:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2015, 12:53
    #39091004
Ryo
Ryo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Деление значения на 2 при вводе в форму
Agapov_stasRyoчто не так делаю Runtime Error 438 Object doesn't support this property or method, строка выделена желтым цветом.
Код: vbnet
1.
MsgBox Err.Description & vbCrLf & "Код ошибки: " & Err.Numer, vbCritical, "Форма [Form_Таблица1] -> Sub [Поле3_BeforeUpdate]"


Err.Numer--->err.Number

П.С. Вы делаете все, но только не то, что Вам сейчас нужно делать:)

Спасибо, я так то пришел на работу и увидел базу в Аксессе, пока только услышал о проблеме:

"мне дают бегунок с суммой в рублях и я беру калькулятор, делю на курс и ввожу в форму базы"

Мне показалось самым простым вбить в форму во время ввода данное деление.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.10.2015, 12:56
    #39091011
Agapov_stas
Agapov_stas
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Деление значения на 2 при вводе в форму
Ryo"мне дают бегунок с суммой в рублях и я беру калькулятор, делю на курс и ввожу в форму базы"
А ROI то был прав:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Деление значения на 2 при вводе в форму / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 569ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1614350]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 108ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 370ms
total:  569ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]