Номер с 1 до 8

@Vanshot · Регистрация: 19.01.2014

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

Уже зачастил с темами , но тем не менее : в форме нужно сделать кнопку, при нажатии на которую число в ячейке увеличивается на 1, но при этом за числом 8 должно опять идти число 1. Пробывал написать код , но он не совсем работает , увеличение доходит до 7 и встает в ступор ( не реагирует на нажатие кнопки)
сам код-

T-SQL

Private Sub Кнопка19_Click()
x = Me.[Число (1-8)]
x = x + 1
If x = 8 Then
x = 1
Else
Me.[Число (1-8)] = x
End If
End Sub

В чем моя ошибка?

@ltv_1953 · 18.11.2016, 04:59

Нет присваивания Me.[Число (1-8)] при х=8. И уж если до 8, то проверять нужно на 9.

Visual Basic

Private Sub Кнопка19_Click()
    x = Me.[Число (1-8)]
    x = x + 1
    If x = 9 Then
        Me.[Число (1-8)] = 1
    Else
        Me.[Число (1-8)] = x
    End If
End Sub

Добавлено через 58 минут
Можно сделать проще (и с учетом возможной незаполненности поля)

Visual Basic

1
2
3

Private Sub Кнопка19_Click()
    Me.[Число (1-8)] = Nz(Me.[Число (1-8)], 0) Mod 8 + 1
End Sub

@Vanshot · 18.11.2016, 18:16 **[ТС]**

Спасибо большое!

@Vanshot 1 / 1 / 0 Регистрация: 19.01.2014 Сообщений: 21
	18.11.2016, 18:16 [ТС]	3
	Спасибо большое! 0

Номер с 1 до 8

Решение