Здравствуйте.
Придумал вот такую схему добавления и удаления чисел через запятую в одно поле ввода с помощью чекбоксов:

Private Sub p1_AfterUpdate()
If Me.p1.Value = True Then
    If Len(Me.ots1.Value) > 0 Then
        Me.ots1.Value = Me.ots1.Value & ", 1"
    Else
    Me.ots1.Value = "1"
    End If
Else
    If Len(Me.ots1.Value) < 3 Then
        Me.ots1.Value = Replace(Me.ots1.Value, "1", "")
    Else
        Me.ots1.Value = Replace(Me.ots1.Value, "1, ", "")
        Me.ots1.Value = Replace(Me.ots1.Value, ", 1", "")
    End If
End If
End Sub

Чекбоксов много ... очень много, около 100 штук.
Каждый условно пронумерован и при значении ИСТИНА номер этой галочки заносится в поле ввода.
Все вроде работает, вот только когда заносится к примеру "1, 11, 12" и если я хочу убрать 1, то остается "112". Получается, убирается "1, 11, 12". Помогите найти решение этой проблемы, пожалуйста.
И еще, что неудобно, событие вешается на каждый чекбокс.

http://www.sql.ru/forum/1088203/dobavlenie-chisel-v-pole-vvoda-cherez-zapyatuu