怎么样修改这段代码？让其他字段都能使用复选框写字段

chenzhn　发表于：2011-09-06 14:43:21 　

Private Sub Form_Current()
    Dim intI As Integer
       For intI = 1 To 14
        If Nz(Me!学员其它背景) Like "*" & Me("学员其它背景" & intI).Controls(0).Caption & "*" Then
            Me("学员其它背景" & intI) = True
        Else
            Me("学员其它背景" & intI) = False
        End If
    Next
End Sub

'在所有复选框的“更新后”属性中通过表达式调用
Function 修改学员其它背景()
    Dim intI As Integer
    Dim strTemp As String

    For intI = 1 To 14
        If Me("学员其它背景" & intI) Then
            strTemp = strTemp & "|" & Me("学员其它背景" & intI).Controls(0).Caption
        End If
    Next
    Me!学员其它背景 = strTemp
End Function

Top

煮江品茶发表于：2011-09-06 17:57:23

丈二和尚，莫名其妙，不知所云。简单一句话，这都是嘛玩意？

Top

风行发表于：2011-09-06 22:21:08

让其他字段都能使用复选框写字段什么意思说清楚

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

怎么样修改这段代码？让其他字段都能使用复选框写字段