Разработка информационной системы, содержащей сведения о фирме видеопроката, включая сведения о жанрах, фильмах, клиентах, страница 10

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

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Dim Видеопрокат, Заказ, Покупатель As TableDef

Set db = CurrentDb

On Error GoTo Lab_Err

If Группа43 = 1 Then

DoCmd.Close acQuery, 21

db.QueryDefs.Delete 21

Else

If Группа43 = 2 Then

DoCmd.Close acQuery, 22

db.QueryDefs.Delete 22

Else

If Группа43 = 3 Then

DoCmd.Close acQuery, 23

db.QueryDefs.Delete 23

End If

End If

End If

GoTo w

Lab_Err:

MsgBox Err.Description

db.Close

w:

End Sub

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

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Set db = CurrentDb

On Error GoTo Lab_Err

db.Execute "Create table ВидеопрокатDAOREC ([НАЗВАНИЕ фильма] char,Год INTEGER, СТРАНА char,Цена INTEGER,Наличие INTEGER )"

If Флажок55.Value = True Then

Set rec1 = db.OpenRecordset("ВидеопрокатDAO", dbOpenTable)

Set rec2 = db.OpenRecordset("ВидеопрокатDAOREC", dbOpenTable)

rec1.MoveFirst

While Not rec1.EOF

rec2.AddNew

rec2![НАЗВАНИЕ ФИЛЬМА] = rec1![НАЗВАНИЕ ФИЛЬМА]

rec2!Год = rec1!Год

rec2!СТРАНА = rec1!СТРАНА

rec2!Наличие = rec1!Наличие

If rec1!Наличие > 50 Then

rec2!Цена = rec1!Цена / 2

Else

rec2!Цена = rec1!Цена

End If

rec2.Update

rec1.MoveNext

Wend

DoCmd.OpenTable "ВидеопрокатDAOREC"

Else

Set rec1 = db.OpenRecordset("ВидеопрокатDAO", dbOpenTable)

Set rec2 = db.OpenRecordset("ВидеопрокатDAOREC", dbOpenTable)

rec1.MoveFirst

While Not rec1.EOF

rec2.AddNew

rec2![НАЗВАНИЕ ФИЛЬМА] = rec1![НАЗВАНИЕ ФИЛЬМА]

rec2!Год = rec1!Год

rec2!СТРАНА = rec1!СТРАНА

rec2!Наличие = rec1!Наличие

If rec1!Наличие > 50 Then

rec2!Цена = rec1!Цена

Else

rec2!Цена = rec1!Цена

End If

rec2.Update

rec1.MoveNext

Wend

DoCmd.OpenTable "ВидеопрокатDAOREC"

End If

GoTo e

Lab_Err:

MsgBox Err.Description

db.Close

e:

End Sub

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

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Set db = CurrentDb

On Error GoTo Lab_Err

DoCmd.Close acTable, ("ВидеопрокатDAOREC")

db.TableDefs.Delete ("ВидеопрокатDAOREC")

Lab_Err:

Resume dal

MsgBox Err.Description

dal:

MsgBox ("таблица удалена")

End Sub

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

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Set db = CurrentDb

On Error GoTo Lab_Err

If Поле63.Value = Text Or Поле63.Value > 1000 Then

MsgBox "Перепутаны форматы ввода"

MsgBox "Введите еще раз данные ID в числовом формате"

Else

If Поле61.Value = Text Or Поле61.Value > 1000000000 Then

MsgBox "Перепутаны форматы ввода"

MsgBox "Введите еще раз данные телефон в числовом формате"

Else

If Поле63.Value > 10 Or Поле63.Value < 1 Then

MsgBox "Записи с таким номером не существует"

MsgBox "Наберите число от 1 до 10"

Else

Set query = db.CreateQueryDef("25", "SELECT * from покупатель where (([код покупатель]=forms!form2!поле63)or(телефон=forms!form2!поле61)or(покупатель=forms!form2!поле67)or(адрес=forms!form2!поле65)or([E-mail]=forms!form2!поле59)or(город=forms!form2!полесосписком90))")

DoCmd.OpenQuery 25

End If

End If

End If

GoTo z

Lab_Err:

MsgBox Err.Description

z:

End Sub

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

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Set db = CurrentDb

On Error GoTo Lab_Err

DoCmd.Close acQuery, 25

db.QueryDefs.Delete 25

Lab_Err:

Resume dal

MsgBox Err.Description

dal:

MsgBox ("запрос удален")

End Sub

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

If Поле61.Value = Text Or Поле61.Value > 100000000 Then

MsgBox "all5"

Else

If Поле59.Value = Null Or Поле59.Value >= 100000000 Then

MsgBox "all2"

Else

If Поле67.Value = Null Or Поле67.Value >= 100000000 Then

MsgBox "all3"

Else

If Поле63.Value = Null Or Поле63.Value < 10 Then