№ _входящій_BeforeUpdate (Cancel As Integer) SubSub Кнопка20_Enter () SubSub Кнопка24_Click () Error GoTo Err_Кнопка24_Click.PreviousControl.SetFocus.DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70_Кнопка24_Click:Sub_Кнопка24_Click:Err.DescriptionExit_Кнопка24_ClickSubSub Кнопка25_Click () Error GoTo Err_Кнопка25_Click.GoToRecord,, acFirst_Кнопка25_Click: Sub_Кнопка25_Click: Err.DescriptionExit_Кнопка25_ClickSubSub Кнопка26_Click () Error GoTo Err_Кнопка26_Click.GoToRecord,, acLast_Кнопка26_Click: Sub_Кнопка26_Click: Err.DescriptionExit_Кнопка26_ClickSubSub Кнопка27_Click () Error GoTo Err_Кнопка27_Click.GoToRecord,, acPrevious_Кнопка27_Click:Sub_Кнопка27_Click:Err.DescriptionExit_Кнопка27_ClickSubSub Кнопка28_Click () Error GoTo Err_Кнопка28_Click.GoToRecord,, acNext_Кнопка28_Click: Sub_Кнопка28_Click: Err.DescriptionExit_Кнопка28_ClickSubSub Кнопка29_Click () Error GoTo Err_Кнопка29_Click.GoToRecord,, acNewRec_Кнопка29_Click:Sub_Кнопка29_Click:Err.DescriptionExit_Кнопка29_ClickSubSub Кнопка30_Click () Error GoTo Err_Кнопка30_Click.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70_Кнопка30_Click:Sub_Кнопка30_Click:Err.DescriptionExit_Кнопка30_ClickSubSub Кнопка31_Click () Error GoTo Err_Кнопка31_Click.Close_Кнопка31_Click:Sub_Кнопка31_Click:Err.DescriptionExit_Кнопка31_ClickSubSub Кнопка32_Click () Error GoTo Err_Кнопка32_Click.Close_Кнопка32_Click:Sub_Кнопка32_Click:Err.DescriptionExit_Кнопка32_Click Sub
Форма «Кнопкова форма»
Option Compare DatabaseSub Form_Open (Cancel As Integer)
'Minimize the database window and initialize the form.
« Move to the switchboard page that is marked as the default .. Filter=«[ItemNumber]=0 AND [Argument] =» За замовчуванням '». FilterOn=TrueSubSub Form_Current ()
'Update the caption and fill in the list of options .. Caption=Nz (Me! [ItemText], «») SubSub FillOptions ()
'Fill in the options for this switchboard page.
'The number of buttons on the form.conNumButtons=8con As Objectrs As ObjectstSql As StringintOption 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.! [Option1]. SetFocusintOption=2 To conNumButtons (« Option »& intOption). Visible=False (« OptionLabel »& intOption). Visible=FalseintOption
'Open the table of Switchboard Items, and find
« the first item for this Switchboard Page.con=Application.CurrentProject.Connection=«SELECT * FROM [Switchboard Items]»=stSql & « WHERE [ItemNumber]> 0 AND [SwitchboardID]=» & Me! [SwitchboardID]=stSql & « ORDER BY [ItemNumber]; »rs=CreateObject (« ADODB.Recordset »). 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! [OptionLabel1]. Caption=«На сторінці кнопкової форми немає елементів»
Else (Not (rs.EOF)) («Option» & rs! [ItemNumber]). Visible=True («OptionLabel» & rs! [ItemNumber]). Visible= True («OptionLabel» & rs! [...