Програма до форми «Хвороби»

Option Compare Database

Option Explicit

Private Sub Form_Close()

' Закрытие форм "Список хворіб" и "Хвороби", если они открыты.

If IsLoaded("Список хворіб ") Then DoCmd.Close acForm, "Список хворіб "

If IsLoaded("Хвороби ") Then DoCmd.Close acForm, " Хвороби "

End Sub

Private Sub Form_Current()

On Error GoTo Err_Form_Current

Dim strDocName As String

Dim strLinkCriteria As String

strDocName = "Список хворіб "

34

strLinkCriteria = "[Код_відділу] = Forms![Відділи]![Код_відділу]"

If IsNull(Me![Назва]) Then

Exit Sub

ElseIf IsLoaded("Список хворіб ") Then

DoCmd.OpenForm strDocName, , , strLinkCriteria

End If

Exit_Form_Current:

Exit Sub

Err_Form_Current:

MsgBox Err.Description

Resume Exit_Form_Current

End Sub

Private Sub Ввід_хворіб_Click()

' Программа, частично созданная мастером кнопок.

On Error GoTo Err_Ввід_хворіб_Click

Dim strDocName As String

strDocName = "Хвороби"

DoCmd.OpenForm strDocName, , , , acAdd, , Me!Код_відділів

DoCmd.Close acForm, "Список хворіб "

Forms![Хвороби]!Марка.SetFocus

Exit_Ввід_хворіб_Click:

Exit Sub

Err_Ввід_хворіб_Click:

MsgBox Err.Description

Resume Exit_Ввід_хворіб_Click

End Sub

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

Forms("Відділи").RecordSource = _

"SELECT * FROM Відділи WHERE Назва ='" & txtFindLastName & "'"

End Sub

Private Sub Перегляд_хворіб_Click()

'

35

Программа, частично созданная мастером кнопок.

On Error GoTo Err_Перегляд_хворіб_Click

Dim strMsg As String, strTitle As String

Dim intStyle As Integer

Dim strDocName As String, strLinkCriteria As String

' Если элемент "Название" пуст, выдается сообщение.

If IsNull(Me![Назва]) Then

intStyle = vbOKOnly

strTitle = "Выберите поставщика"

MsgBox strMsg, intStyle, strTitle

Me![Назва].SetFocus

Else

strDocName = "Список хворіб"

strLinkCriteria = "[Код_відділу] = Forms![Відділи]![Код_відділу]"

DoCmd.OpenForm strDocName, , , strLinkCriteria

DoCmd.MoveSize (1440 * 0.78), (1440 * 1.8)

End If

Exit_Перегляд_хворіб_Click:

Exit Sub

Err_Перегляд_хворіб_Click:

MsgBox Err.Description

Resume Exit_Перегляд_хворіб_Click

End Sub

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

' Программа, частично созданная мастером кнопок.

On Error GoTo Err_Ввід_хворіб_Click

Dim strDocName As String

strDocName = "Хвороби"

' Открытие формы " Хвороби " в режиме ввода данных.

' OpenArgs формы.

DoCmd.OpenForm strDocName, , , , acAdd, , Me!Код_відділу

' Закрытие формы "Список хворіб".

DoCmd.Close acForm, "Список хворіб"

' Передача фокуса элементу "Марка".

Forms![Хвороби]!Марка.SetFocus

E

36

xit_Ввід_хворіб_Click:

Exit Sub

Err_Ввід_хворіб_Click:

MsgBox Err.Description

Resume Exit_Ввід_хворіб_Click

End Sub