Програма до форми «Заставка»

Option Compare Database

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

On Error GoTo Err_Кнопка0_Click

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Кнопка0_Click:

Exit Sub

Err_Кнопка0_Click:

MsgBox Err.Description

Resume Exit_Кнопка0_Click

End Sub

Private Sub Вийти_з_програми_Click()

O

24

n Error GoTo Err_Вийти_з_програми_Click

DoCmd.Quit

Exit_Вийти_з_програми_Click:

Exit Sub

Err_Вийти_з_програми_Click:

MsgBox Err.Description

Resume Exit_Вийти_з_програми_Click

End Sub

Private Sub Закрити_форму_Click()

On Error GoTo Err_Закрити_форму_Click

DoCmd.Close

Exit_Закрити_форму_Click:

Exit Sub

Err_Закрити_форму_Click:

MsgBox Err.Description

Resume Exit_Закрити_форму_Click

End Sub

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

End Sub

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

On Error GoTo Err_Кнопка12_Click

Dim stDocName As String

Dim stLinkCriteria As String

DoCmd.Close

stDocName = ChrW(1042) & ChrW(1074) & ChrW(1110) & ChrW(1076) & ChrW(32) & ChrW(1087) & ChrW(1072) & ChrW(1088) & ChrW(1086) & ChrW(1083) & ChrW(1103)

DoCmd.OpenForm ("Кнопочная форма")

Exit_Кнопка12_Click:

Exit Sub

25

Err_Кнопка12_Click:

MsgBox Err.Description

Resume Exit_Кнопка12_Click

End Sub

Програма до форми «Відомість»

Option Compare Database

Option Explicit

Dim ctrlDate As TextBox

Sub ShowCalendar()

If Not MyClnd.Visible Then

With Me.ActiveControl

MyClnd.Left = ctrlDate.Left

MyClnd.Visible = True

MyClnd.SetFocus

MyClnd = IIf(IsNull(ctrlDate), Date, ctrlDate)

End With

Else

MyClnd.Visible = False

End If

End Sub

Private Sub cmdDateBegin_Click()

Set ctrlDate = txtDateBegin

ShowCalendar

End Sub

Private Sub cmdDateDismiss_Click()

Set ctrlDate = txtDateDismiss

ShowCalendar

End Sub

Private Sub cmdDateEnd_Click()

Set ctrlDate = txtDateEnd

ShowCalendar

End Sub

Private Sub cmdDateTake_Click()

Set ctrlDate = txtDateTake

26

ShowCalendar

End Sub

Private Sub MyClnd_AfterUpdate()

ctrlDate = Format((Nz(MyClnd.Value, Date)), "dd.mm.yyyy")

Код_Рахунки.SetFocus

MyClnd.Visible = False

End Sub

Private Sub MyClnd_Click()

MyClnd_AfterUpdate

End Sub

Private Sub MyClnd_Updated(Code As Integer)

End Sub

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

On Error GoTo Err_Кнопка33_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Кнопка33_Click:

Exit Sub

Err_Кнопка33_Click:

MsgBox Err.Description

Resume Exit_Кнопка33_Click

End Sub

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

On Error GoTo Err_Кнопка34_Click

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка34_Click:

Exit Sub

Err_Кнопка34_Click:

MsgBox Err.Description

Resume Exit_Кнопка34_Click

E

27

nd Sub

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

On Error GoTo Err_Кнопка35_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Кнопка35_Click:

Exit Sub

Err_Кнопка35_Click:

MsgBox Err.Description

Resume Exit_Кнопка35_Click

End Sub

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

On Error GoTo Err_Кнопка37_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1055) & ChrW(1086) & ChrW(1096) & ChrW(1091) & ChrW(1082)

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка37_Click:

Exit Sub

Err_Кнопка37_Click:

MsgBox Err.Description

Resume Exit_Кнопка37_Click

End Sub