复选框内未包含检查符号,表示女
Private Sub 性别_Click()
注释:根据复选框的值显示男或女
If (Me![性别] = -1) Then 注释:如果“是”就把标签改成“男”
Me![性别标签].Caption = "男"
End If
If (Me![性别] = 0) Then 注释:如果“否”就把标签改成“女”
Me![性别标签].Caption = "女"
End If
End Sub
以上这段程序能在单击复选框时自动改编标签显示的内容。为了在移动记录时正确显示性别,还需要在窗体的“事件/成为当前”里把这段程序再写一遍。
Private Sub Form_Current()
注释:根据复选框的值显示男或女
If (Me![性别] = -1) Then 注释:如果“是”就把标签改成“男”
Me![性别标签].Caption = "男"
End If
If (Me![性别] = 0) Then 注释:如果“否”就把标签改成“女”
Me![性别标签].Caption = "女"
End If
End Sub