- . 88


rst![] = * 1.2

rst![] =

TMP = Format(, "m yy")

rst![] = TMP

TMP = TMP + 32

= TMP

rst.Update

Next k

Else

= (CDate(Format(Store, "m yy")) - CDate(Format(, "m yy"))) / 100

rst.AddNew

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

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

rst![] = rstC![]

rst![] = TMP2

rst![] = rstC![]

rst![] =

rst.Update

rst.MoveLast

rst.AddNew

rst![] = rst![]

= rstC![] / rstC![]

rst![] = * 1.2 * CInt()

rst![] =

TMP = Format(, "m yy")

rst![] = TMP

TMP = TMP + 32

= TMP

rst.Update

m = rstC![]

For k = 1 To m - CInt()

rst.AddNew

rst![] = rst![]

= rstC![] / m

rst![] = * 1.2

rst![] =

TMP = Format(, "m yy")

rst![] = TMP

TMP = TMP + 32

= TMP

rst.Update

Next k

End If

Else

'

= Store

If rstC![] <> 0 Then

rst.AddNew

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

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

rst![] = rstC![]

rst![] =