Формы: Штраф не должен превышать 100 рублей

@AlexISq · Регистрация: 21.12.2017

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

Обязательное поле – штраф;
Штраф не должен превышать 100 рублей, если книга в хорошем состоянии;

magirus · 23.12.2017, 20:22

и что?

@Eugene-LS · 24.12.2017, 07:27

Сообщение от AlexISq

Штраф не должен превышать 100 рублей, если книга в хорошем состоянии;

Ну можно так (один из вариантов):

Visual Basic
1
2
3
4
5
6
Private Sub Штраф_BeforeUpdate(Cancel As Integer)
If Me!Штраф > 100 And Me!Состояние = "Хорошее" Then
    MsgBox "Штраф не должен превышать 100 рублей!", vbExclamation
    Cancel = True
End If
End Sub

Но!
У вас в форме нет поля "Состояние", да и в базе то-же.

@AlexISq · 24.12.2017, 11:59 **[ТС]**

Eugene-LS, Вот можете пожалуйста посмотреть.

@Eugene-LS · 24.12.2017, 12:48

Сообщение от AlexISq

Вот можете пожалуйста посмотреть.

Ну посмотреть то я могу ...
Но куда? (тип объекта - название объекта)?
И в чём вопрос?

Такое впечатление что для большинства задающих вопросы Русский язык не родной.
Часто ни хрена не понимаю что пишут.
Нихтферштейнинг полный зачастую

@AlexISq · 24.12.2017, 12:52 **[ТС]**

Eugene-LS, Название формы "Штрафы", Задание для формы штрафы: Штраф не должен превышать 100, если книга в хорошем состоянии.Спасибо

@Eugene-LS · 24.12.2017, 13:16

Второй вариант с примером!

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Штраф_AfterUpdate()
    If Me!Состояние.ListIndex = -1 Then Exit Sub
    If Me!Штраф > 100 And Me!Состояние = "Хорошее" Then
        MsgBox "Штраф не должен превышать 100 рублей!", vbExclamation
        Me!Штраф = 100
    End If
 
End Sub

Предупреждение системы форума: Не копируйте этот код! - он может содержать вирусы

@Eugene-LS · 24.12.2017, 13:18

AlexISq, а вот и пример ...
Кушайте! - не обляпойтесь!

@Any123 · 24.12.2017, 13:20

Eugene-LS, Я вот просто тупой, не понимаю куда этот код вставлять) Можно вас пожалуйста попросить это реализовать в моем файле, если вам это будет не сложно.

shanemac51 · 24.12.2017, 13:23

Сообщение от Any123

Я вот просто тупой, не понимаю куда этот код вставлять)

если не трудно ..ответьте, какой у вас профиль обучения и курс

@Eugene-LS · 24.12.2017, 13:31

Сообщение от Any123

то реализовать в моем файле, если вам это будет не сложно.

Уже ... (см. выше ...)

Добавлено через 6 минут
AlexISq, и не нужно лишних слов!
Если не трудно -кликните на спасибо.

Мне это было не сложно = "семечки", и нечего не стоило. Затраты времени в районе 12 минут

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

magirus Почетный модератор 28049 / 15785 / 983 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	23.12.2017, 20:22
	и что? 1

@AlexISq 0 / 0 / 0 Регистрация: 21.12.2017 Сообщений: 33
	24.12.2017, 12:52 [ТС]
	Eugene-LS, Название формы "Штрафы", Задание для формы штрафы: Штраф не должен превышать 100, если книга в хорошем состоянии.Спасибо 0

@Any123 0 / 0 / 0 Регистрация: 24.12.2017 Сообщений: 15
	24.12.2017, 13:20
	Eugene-LS, Я вот просто тупой, не понимаю куда этот код вставлять) Можно вас пожалуйста попросить это реализовать в моем файле, если вам это будет не сложно. 0

Опции темы

Формы: Штраф не должен превышать 100 рублей

Решение