- . 89


rst![] = 0

rst![] =

rst.Update

rst.MoveLast

rst.AddNew

rst![] = rst![]

rst![] = rstC![] * 1.2

rst![] =

rst![] =

Msg = " " & (rstC![]) & " " & CurrentMWParam()

Style = vbOKOnly + vbInformation ' .

Title = "" ' .

MsgBox Msg, Style, Title

rst.Update

End If

If rstC![] <> 0 Then

rst.AddNew

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

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

rst![] = rstC![]

rst![] =

rst![] = rstC![]

rst![] =

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

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

rst![] = * 1.2

rst![] =

If Format(, "dd") < 20 Then

TMP = Format(, "m yy")

rst![] = TMP

TMP = TMP + 32

= TMP

rst.Update

Else

TMP = Format( + 12, "m yy")