Курсовая работа: Автоматизация работы предприятия ООО "Стимул-Брест"

' Make sure we have company information

DoCmd.Hourglass False

Set dbs = CurrentDb()

Setrst = dbs.OpenRecordset("Сведения об организации")

If rst.RecordCount = 0 Then

rst.AddNew

rst![Адрес] = Null

rst.Update

MsgBox "Перед использованием приложения необходимо ввести название, адрес и дополнительные сведения об организации."

DoCmd.OpenForm "Сведения об организации", , , , , acDialog

End If

rst.Close

dbs.Close

' Move to the switchboard page that is marked as the default.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "

Me.FilterOn = True

Form_Open_Err:

MsgBox Err.Description

Resume Form_Open_Exit

End Sub

Private Sub Form_Current()

' Update the caption and fill in the list of options.

Me.Caption = Nz(Me![ItemText], "")

FillOptions

End Sub

Private Sub FillOptions()

' Fill in the options for this switchboard page.

' The number of buttons on the form.

Const conNumButtons = 8