再次求教煮江品茶管理员

这几天一直在琢磨您忙帮做的《冒号考核系统示例》第二版，觉得那个临时表实现的查询很有意思也很有用，但一直没整明白临时表temp和查询选项卡里面的子窗体temp的数据源都是哪来的，今天静下心来又拆解了一下，懵懂间觉得应该是代码的功劳，但是代码中有不明白的地方还要求您帮忙释疑。

1、

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long, j As Long
ssql = "select * from Temp"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

For i = 1 To rs.RecordCount
    For j = 1 To rs.Fields.Count - 1
        rs.Fields(j).Value = 0
        rs.Update
    Next
    rs.MoveNext
Next

Me.Temp子窗体.Form.Requery
rs.Close
Set rs = Nothing
End Sub

第一句中的Form应该是个特定的控件名称吧？但在您的那个实例中我咋没找到有叫这名的控件呢？这段代码的作用是什么呢？

2、

Private Sub 查询冒号ID_AfterUpdate()
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long, j As Long
Dim strwh As String
ssql = "select * from Temp"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

For i = 1 To rs.RecordCount
    For j = 1 To rs.Fields.Count - 1
        strwh = "考核ID=" & Me.考核ID.Value & " and 冒号ID=" & Me.查询冒号ID.Column(0)
        strwh = strwh & " and " & rs.Fields(j).Name & "='" & rs.Fields(0).Value & "'"
        rs.Fields(j).Value = DCount(rs.Fields(j).Name, "打分表", strwh)
        rs.Update
    Next
    rs.MoveNext
Next

Me.Temp子窗体.Form.Requery
rs.Close
Set rs = Nothing
End Sub

还是第一句，里面的“查询冒号ID_AfterUpdate”是什么意思？这段代码的作用又是什么？

另外，如果我想让temp子窗体中显示为百分数，分母用投票人数进行计算，是否可以在代码中实现？我这几天尝试逐格用表达式计算，效果不好，麻烦不说，还容易出错。

我现在看代码就像中国人看日文，靠整句话里面看得懂的汉字来猜测整体意思，有时候能蒙对，有时候咋也琢磨不明白，所以问题多多，望您多包涵，这里再次感谢了。