- . 93


Do Until rstTMP4.EOF

rstTMP4.Delete

rstTMP4.MoveNext

Loop

If rst.RecordCount = 0 Then

' MsgBox (" ")

rst.Close

Me![Sub].Form.Visible = -1

Me![].Form.Visible = 0

' 1996

strSQLTMP2 = "SELECT DISTINCTROW 1996., 1996., 1996. FROM 1996 WHERE (((1996.)=" & Me![] & "));"

Set rstTMP5 = dbs.OpenRecordset(strSQLTMP2)

rstTMP4.AddNew

rstTMP5.MoveFirst

rstTMP4![11996] = CurrentMWParam(rstTMP5![])

rstTMP5.MoveLast

rstTMP4![21996] = rstTMP5![]

rstTMP5.Close

rstTMP4.Update

Me.Refresh

rstTMP4.Close

dbs.Close

DoCmd.Hourglass False

Exit Sub

End If

rst.MoveLast

j = rst.RecordCount

rst.MoveFirst

For i = 1 To j

rstTMP4.AddNew

rstTMP4![] = (rst![])

strSQLTMP = "SELECT DISTINCTROW ., ., ., ., ., ., . AS , ., ., ."

strSQLTMP = strSQLTMP & " FROM (([] INNER JOIN ([] INNER JOIN [] ON (. = .) AND (. = .)) ON (. = .) AND (. = .)) INNER JOIN [] ON . = .) INNER JOIN ON . = ."

strSQLTMP = strSQLTMP & " GROUP BY ., ., ., ., ., ., ., ., ., ."