Переход к пользовательской форме для исправления - PullRequest
Новая
       10

Переход к пользовательской форме для исправления

0 голосов
/ 24 сентября 2018

У меня есть код, который я хочу проверить, чтобы убедиться, что штрих-коды, введенные с помощью пользовательской формы, действительны и доступны для продажи.Моя проблема в том, что после того, как он завершил проверку, он больше не позволяет мне вносить изменения в пользовательскую форму.

Я разработал код для каждой строки товара.

Private Sub PriceTextBox1_AfterUpdate()
    Dim bccs1 As String
    Dim bcce1 As String
    bccs1 = BarcodeStartNumber1TextBox.Text
    bcce1 = BarcodeEndNumber1TextBox.Text
    MsgBox ("Please wait for a few moment while the barcodes are validated.")
    On Error GoTo bccErrorHandler1
    If DescriptionTextBox1.Text = "Deep Penetrating Sealant (DPS)" _
                Or DescriptionTextBox1.Text = "Top Seal (TS)" Then
        Sheets("Inventory Log").Select
        Columns("J:J").Select
        Selection.Find(what:=bccs1, after:=ActiveCell, LookIn:=xlFormulas, _
            lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
        Do
            If ActiveCell.Offset(0, 1).Value = "In" Then
                ActiveCell.Offset(1, 0).Select
            ElseIf ActiveCell.Offset(0, 1).Value = "Out" Then
                MsgBox ("Barcode" & ActiveCell.Value & " has already been sold")
                If ActiveCell = bbce1 Then Exit Do
                MsgBox ("The barcode batch " & bccs1 & " to " & bcce1 & _
                    " are available")
            End If
        Loop
    End If
bbccErrorHandler1:
    MsgBox ("The barcode you have entered is invalid. Please check entry.")
    Exit Sub
End Sub
...