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

MsgBox "all4"

Else

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

MsgBox "all1"

Else

If ПолеСоСписком90.Value = Null Or ПолеСоСписком90.Value > 100000000 Then

MsgBox "all"

Else

MsgBox "не выбран элемент в списке"

End If

End If

End If

End If

End If

End If

End Sub

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

Dim ws As Workspace

Dim db As Database

Dim fld As Field

Dim query As QueryDef

Dim rec1, rec2 As Recordset

Dim conn As Connection

Set ws = CreateWorkspace("ws", "", "", dbUseODBC)

Set conn = ws.OpenConnection("new", , , "ODBS;DSN=Hous;")

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

Set rec1 = conn.CreateQueryDef("Select * from покупатель", dbOpenDynamic)

End Sub

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

Список86.Requery

End Sub

Private Sub Кнопка89_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

Set rec1 = db.OpenRecordset("Покупатель", dbOpenTable)

rec1.MoveFirst

While Not rec1.EOF

If rec1!Покупатель = Список86.Value Then

Надпись88.Caption = "Номер телефона " & rec1!Покупатель & "а : " & rec1!телефон & ""

End If

rec1.MoveNext

Wend

GoTo r

Lab_Err:

MsgBox Err.Description

r:

End Sub

Private Sub Кнопка894_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

If ПолеСоСписком100.Value = Null Or ПолеСоСписком100.Value > 100000000 Then

Set query = db.CreateQueryDef("27", "SELECT видеопрокат.[название фильма], видеопрокат.цена FROM Видеопрокат where [название фильма]=forms!form2!полесосписком100")

DoCmd.OpenQuery 27

Else

MsgBox "не выбран элемент в списке"

End If

End Sub

Private Sub Кнопка895_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

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

Set query = db.CreateQueryDef("27", "SELECT видеопрокат.[название фильма], видеопрокат.цена FROM Видеопрокат where [название фильма]=forms!form2!поле98")

DoCmd.OpenQuery 27

Else

MsgBox "не введено название фильма или введено не правильно"

MsgBox "повторите попытку"

End If

End Sub

Private Sub Кнопка896_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

If Группа132.Value = 2 Then

Set query = db.CreateQueryDef("27", "SELECT видеопрокат.[название фильма], видеопрокат.цена FROM Видеопрокат order by [название фильма]")

DoCmd.OpenQuery 27

Else

If Группа132.Value = 3 Then

Set query = db.CreateQueryDef("27", "SELECT видеопрокат.[название фильма], видеопрокат.цена FROM Видеопрокат order by [название фильма]desc")

DoCmd.OpenQuery 27

Else

MsgBox "не включен переключатель"

End If

End If

End Sub

Private Sub Кнопка899_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

If Группа123.Value = 2 Then

Set query = db.CreateQueryDef("27", "SELECT видеопрокат.[название фильма], видеопрокат.цена FROM Видеопрокат order by цена")

DoCmd.OpenQuery 27

Else

If Группа123.Value = 3 Then

Set query = db.CreateQueryDef("27", "SELECT видеопрокат.[название фильма], видеопрокат.цена FROM Видеопрокат order by цена desc")

DoCmd.OpenQuery 27

Else

If ПолеСоСписком100.Value = Null Or ПолеСоСписком100.Value > 100000000 Then

Set query = db.CreateQueryDef("27", "SELECT видеопрокат.[название фильма], видеопрокат.цена FROM Видеопрокат where [название фильма]=forms!form2!полесосписком100")

DoCmd.OpenQuery 27

Else

MsgBox "не выбран элемент во флажке"

End If

End If

End If

End Sub