Выдать ошибки в случае нехватки данных для работы программы

Страницы работы

4 страницы (Word-файл)

Содержание работы

продать

Private Sub Кнопка13_Click()

' объявление переменных

Dim NomVU_pok As String

Dim kod_prod As String

Dim q As String

Dim reg_nom_avto As String

Dim data As Variant

Dim data_ As Date

' Выдать ошибки в случае нехватки данных для работы программы

If Me.Поле6 = Null Or Me.Поле8 = Null Or Me.ПолеСоСписком0 = Null Or _

Me.ПолеСоСписком14.Column(1) = Null Or Me.Список20.Column(3) = Null Or _

Me.Список20.Column(4) = Null Or Me.Список20.Column(5) = Null Then

MsgBox ("Указаны не все параметры!")

End If

' инициализация переменных

NomVU_pok = Me.ПолеСоСписком14.Column(1)

kod_prod = Me.Список20.Column(3)

data = Me.Поле6

data_ = "01/01/" & data

'Проверка указанного года

If data_ > Me.Список20.Column(5) Then

MsgBox ("За указанный год нет данных об оплате"): GoTo 1

End If

'Проверка указанной суммы

If Me.Список20.Column(4) < Me.Поле8 Then

MsgBox ("За эту машину не погашена страховка в нужном размере"): GoTo 1

End If

'Добавление записи в таблицу (изменение владельца автомобиля)

Set cp = Application.CurrentProject.Connection

q = "Update автомобиль Set NVU = " & NomVU_pok & " where kod = " & kod_prod & " "

cp.Execute q

' обновление

1 Me.Список20.Requery

Me.Поле6.Requery

Me.ПолеСоСписком0.Requery

Me.ПолеСоСписком14.Requery

Me.Поле8.Requery

End Sub

добавить

Private Sub Кнопка27_Click()

Dim db1 As Database

Dim rs1 As Recordset

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("владелец", dbOpenDynaset)

NewData = Me.ПолеСоСписком14

rs1.MoveLast

rs1.AddNew

rs1![FIO] = NewData

rs1![NVU] = InputBox("Введите номер водительского удостоверения")

rs1.Update

rs1.Close

Response = acDataErrAdded

Me.ПолеСоСписком14.Requery

Me.Список20.Requery

Private Sub ПолеСоСписком0_AfterUpdate()

Me.Список20.Requery

If Me.ПолеСоСписком0 = "Toyota_Supra" Then

Me.supra.Visible = True

Else: Me.supra.Visible = False

End If

If Me.ПолеСоСписком0 = "Porshe_Cayman_S" Then

Me.cayman.Visible = True

Else: Me.cayman.Visible = False

End If

If Me.ПолеСоСписком0 = "Mitsubishi_Eclipce" Then

Me.eclipse.Visible = True

Else: Me.eclipse.Visible = False

End If

If Me.ПолеСоСписком0 = "Mazda_RX_8" Then

Me.rx8.Visible = True

Else: Me.rx8.Visible = False

End If

If Me.ПолеСоСписком0 = "Lexus_IS_300" Then

Me.lexus.Visible = True

Else: Me.lexus.Visible = False

End If

If Me.ПолеСоСписком0 = "Mercedes_Benz_CLK_500" Then

Me.meren_slk500.Visible = True

Else: Me.meren_slk500.Visible = False

End If

If Me.ПолеСоСписком0 = "Dodge_Viper_SRT_10" Then

Me.dodge.Visible = True

Else: Me.dodge.Visible = False

End If

If Me.ПолеСоСписком0 = "Corvett_C6" Then

Me.corvett.Visible = True

Else: Me.corvett.Visible = False

End If

If Me.ПолеСоСписком0 = "Lamborghini_Gallardo" Then

Me.gallardo.Visible = True

Else: Me.gallardo.Visible = False

End If

If Me.ПолеСоСписком0 = "Ford_Mustang_GT" Then

Me.mustang.Visible = True

Else: Me.mustang.Visible = False

End If

If Me.ПолеСоСписком0 = "Mitsubishi_Lancer_EVO_III" Then

Me.evo.Visible = True

Else: Me.evo.Visible = False

End If

End Sub

Private Sub ПолеСоСписком14_NotInList(NewData As String, Response As Integer)

If NotInList("ПолеСоСписком14", 30, NewData) Then

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb

Set rs = db.OpenRecordset("владелец", dbOpenDynaset)

rs.MoveLast

rs.AddNew

rs![FIO] = NewData

rs![NVU] = InputBox("Введите номер водительского удостоверения")

rs.Update

rs.Close

Response = acDataErrAdded

End If

End Sub

Похожие материалы

Информация о работе