|
|
|
новичок
участник
Last Login: 22.03.2008 11:10
Сообщ.: 3,
Visits: 26
|
|
Есть БД состоящая из 4 таблиц (Платеж1, Платеж2, Платеж3, Платеж4) каждая из которых состоит из 2-х столбцов (Номер, Сумма). Также есть форма в которой есть 3 поля (Номер клиента, Номер платежа, Сумма оплаты).
Задача: Запрограммировать в форме кнопку "выполнить" что бы по нажатию ее введеные данные в поле "Сумма оплаты" приплюсовались к уже имеющейся сумме, находящейся у клиента (также запрошенного в поле "Номер клиента"), в таблице (Платеж1, Платеж2, Платеж3, Платеж4) введеную в поле "Номер платежа".
Извините за беспокойство очень нужно.
Заранее всем спасибо.
|
|
|
|
|
Supreme Being
участник
Last Login: 07.03.2008 19:04
Сообщ.: 328,
Visits: 1 857
|
|
Подправил немного код и убрал лишнее
If Me![Поле15] >= 1 And Me![Поле15] <= 4 Then
tablename = "Платеж" + Me![Поле15]
CurrentDb.Execute "UPDATE " & tablename & " SET " & tablename & ".Сумма =" & _
tablename & ".Сумма+" & Me![Поле16] & " WHERE " & tablename & ".Номер=" & Me![Поле13]
End If
|
|
|
|
|
новичок
участник
Last Login: 22.03.2008 11:10
Сообщ.: 3,
Visits: 26
|
|
Огромное СПАСИБО.
А можно как-нибудь сделать что бы при вводе поле13 числа больше 20 а в поле15 числа больше 4 выскакивала бы ошибка.
|
|
|
|
|
Supreme Being
участник
Last Login: 07.03.2008 19:04
Сообщ.: 328,
Visits: 1 857
|
|
gadvan (19.05.2007)
А можно как-нибудь сделать что бы при вводе поле13 числа больше 20 а в поле15 числа больше 4 выскакивала бы ошибка.
Если имеется ввиду сообщение об ошибочно введенном номере платежа или номере клиента, то так:
If Me![Поле15] < 1 Or Me![Поле15] > 4 Then
MsgBox "Ошибочный номер платежа"
ElseIf Me![Поле13] < 1 Or Me![Поле13] > 20 Then
MsgBox "Ошибочный номер клиента"
Else
tablename = "Платеж" + Me![Поле15]
CurrentDb.Execute "UPDATE " & tablename & " SET " & tablename & ".Сумма =" & _
tablename & ".Сумма+" & Me![Поле16] & " WHERE " & tablename & ".Номер=" & Me![Поле13]
End If
|
|
|
|
|
новичок
участник
Last Login: 22.03.2008 11:10
Сообщ.: 3,
Visits: 26
|
|
| Спасибо BoNiM! Очень выручил.
|
|
|
|