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

Dim rs As Object

Dim stSql As String

Dim intOption As Integer

' Set the focus to the first button on the form,

' and then hide all of the buttons on the form

' but the first. You can't hide the field with the focus.

Me![Option1].SetFocus

For intOption = 2 To conNumButtons

Me("Option" & intOption).Visible = False

Me("OptionLabel" & intOption).Visible = False

Next intOption

' Open the table of Switchboard Items, and find

' the first item for this Switchboard Page.

Set con = Application.CurrentProject.Connection

stSql = "SELECT * FROM [Switchboard Items]"

stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

stSql = stSql & " ORDER BY [ItemNumber];"

Set rs = CreateObject("ADODB.Recordset")

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If there are no options for this Switchboard Page,

' display a message. Otherwise, fill the page with the items.

If (rs.EOF) Then

Me![OptionLabel1].Caption = "There are no items for this switchboard page"

Else

While (Not (rs.EOF))

Me("Option" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]

rs.MoveNext