主要用到了if条件语句和 Enabled属性,示例代码如下:
Private Sub ID_GotFocus()
Me.Parent.Form!Command1.Enabled = False
Me.Parent.Form!Command2.Enabled = False
Me.Parent.Form!Command3.Enabled = False
'根据子窗体的选择记录来控制某些控件的可用与否
If Me.CurrentRecord = 1 Then '如果选择的是第一条记录
Me.Parent.Form!Command1.Enabled = True
ElseIf Me.CurrentRecord = 2 Then '如果选择的是第二条记录
Me.Parent.Form!Command2.Enabled = True
Else
Me.Parent.Form!Command3.Enabled = True
End If
End Sub
示例下载:
点击下载此附件