Реферат: База данных видеокарт

GoTo lab2

End If

Next i

MsgBox "Модель не найдена"

lab2:

Combo1.Text = ""

End Sub

Изменение видеокарты происходит с помощью поиска модели видеокарты, если видеокарта не найдена появляется окно "Модель не найдена". Как и в форме добавления есть защита от пустого ввода.

‘изменение

PrivateSubCommand1_Click()

IfCombo1.Text <> EmptyThen

Dim o As Byte

Dim f As Label

Dim zpust As Byte

zpust = Form1.zerocell

For o = 1 To zpust

If Form1.excelist.ActiveWorkbook.ActiveSheet.Cells(o, 1) = Combo1.Text Then

Form1.excelist.ActiveWorkbook.ActiveSheet.Rows(o).Delete

With Form1.excelist.ActiveWorkbook.ActiveSheet

Cells(o, 1) = Combo1.Text

Cells(o, 2) = Combo2.Text

Cells(o, 3) = Combo3.Text

Cells(o, 4) = Combo4.Text

Cells(o, 5) = Combo5.Text

Cells(o, 6) = Text1.Text

End With

Dim log1 As log

Dim u As Integer