rst![]


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![] =