复选框(多选)请求帮助【简化程序】

wanshan

Private Sub Text0_AfterUpdate()
    Me.Child2.Requery   '这里没有用到查询，只需要在子窗体的链接主字段和链接子字段中填上相应的字段就会自动筛选
    If Child2.Form.Recordset.RecordCount > 0 Then '判断子窗体是否有记录
        Dim mubiao
        mubiao = Me!Child2!TEXT
        For i = 1 To 5
            Me("Check" & (i + 4)) = Mid(mubiao, i, 1) * -1
            Me("text" & (i + 1)) = Mid(mubiao, i, 1)    '技术上这一步可以省略，可直接把值赋予文本框text30
        Next
    End If
End Sub
Public Function jihe()
    For i = 1 To 5
        Me("text" & (i + 1)) = Me("Check" & (i + 4)) * -1
    Next
End Function