- . 87


Style = vbOKCancel + vbInformation ' .

Title = "" ' .

MsgBox Msg, Style, Title

rst.Update

rst.MoveLast

m = rstC![]

For k = 1 To m

rst.AddNew

rst![] = rst![]

= rstC![] / m

rst![] = * 1.2

rst![] =

TMP = Format(, "m yy")

rst![] = TMP

TMP = TMP + 32

= TMP

rst.Update

Next k

GoTo labelnext

End If

'

TMP2 = CDate(Format(Store, "m yy"))

If CDate(TMP2) <= CDate() Or (CDate(Format(Store, "m yy")) - CDate(Format(, "m yy"))) / 100 = 1 Then

rst.AddNew

rst![] = Forms![]![]

rst![] = Forms![]![].Form![]

rst![] = rstC![]

= Format(, "m yy")

= + 32

rst![] = Format(TMP2, "m yy")

rst![] = rstC![]

rst![] =

Msg = " " & (rstC![]) & " " & rstC![] & " " & CurrentMonthWParamWSuf(TMP2)

Style = vbOKOnly + vbInformation ' .

Title = "" ' .

MsgBox Msg, Style, Title

rst.Update

rst.MoveLast

m = rstC![]

For k = 1 To m

rst.AddNew

rst![] = rst![]

= rstC![] / m