Добрый день. Есть форма для ввода товара в БД. Данные заносятся в поле текстбокса и по нажатию кнопку добавляются в БД. Как прописать код ,что бы запретить ввод товара ,который уже есть в базе данных? MsgBox "Данный товар есть в базе данных.", 0, "Сообщение".
Добрый день. Есть форма для ввода товара в БД. Данные заносятся в поле текстбокса и по нажатию кнопку добавляются в БД. Как прописать код ,что бы запретить ввод товара ,который уже есть в базе данных? MsgBox "Данный товар есть в базе данных.", 0, "Сообщение".parovoznik
'Кнопка Добавить Private Sub B_Добавить_Click() If Me.TextBox1 = "" Then: MsgBox "Вы не ввели товар!", 48, "Ошибка": With Me Товар = .TextBox1.Text End With
With Worksheets("База") If .Columns(1).Find(Товар, , xlValues, xlWhole) Is Nothing Then NextRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(NextRow, 1) = Me.TextBox1.Text Else MsgBox "Данный товар есть в базе данных.", vbCritical, "Сообщение": Exit Sub End If End With MsgBox "Товар успешно добавлено в базу данных!" & vbLf & "Строка в базе: " & NextRow ' очистка поле текстбокса Me.TextBox1.Text = "" Unload Me End Sub
[/vba]
[vba]
Код
'Кнопка Добавить Private Sub B_Добавить_Click() If Me.TextBox1 = "" Then: MsgBox "Вы не ввели товар!", 48, "Ошибка": With Me Товар = .TextBox1.Text End With
With Worksheets("База") If .Columns(1).Find(Товар, , xlValues, xlWhole) Is Nothing Then NextRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(NextRow, 1) = Me.TextBox1.Text Else MsgBox "Данный товар есть в базе данных.", vbCritical, "Сообщение": Exit Sub End If End With MsgBox "Товар успешно добавлено в базу данных!" & vbLf & "Строка в базе: " & NextRow ' очистка поле текстбокса Me.TextBox1.Text = "" Unload Me End Sub