请问如何设定：

真主

请问如何设定：
如果没有选择[公司]时，[部门]与[人员]为不可用状态
如果没有选择[部门]时，[人员]为不可用状态

paul16

1\可以在部门获得焦点事件中设定：
if isnull([公司]) then
    me.公司.setfocus
end if
在人员获得焦点事件中设定：
if isnull([部门]) then
   me.部门.setfocus
end if
2\先设定部门及人员为不可用状态！公司输入完后设定部门为可用！部门输入后设定人员为!
使用　enable属性！

两种方法都可行！

真主

是这样，我在部门的获得焦点事件中设定为：
Private Sub 部门ID_GotFocus()
    Me.部门ID.RowSource = "SELECT 部门ID, 部门 FROM help_tbl部门 WHERE (公司ID=" + Str(Me.公司ID) + ")"
End Sub
结果我的公司不选择时，在部门还可选并报错，
我希望公司不选择时，部门为空并为不可选状态，
鱼儿天空斑竹的方法二我不会用

paul16

你将代码改为：
Private Sub 部门ID_GotFocus()
if isnull([公司]) then
  me.公司.setfocus
else
    Me.部门ID.RowSource = "SELECT 部门ID, 部门 FROM help_tbl部门 WHERE (公司ID=" + Str(Me.公司ID) + ")"
end if
End Sub

真主

Private Sub 目录ID_GotFocus()

'如果[部门]或[分类]为空,[目录]无法使用
If IsNull([部门ID]) Then
  Me.部门ID.SetFocus
  Me.分类ID.SetFocus
Else
    '根据选择的分类显示目录
    'RowSource就是行来源
    Me.目录ID.RowSource = "SELECT 目录ID, 目录 FROM help_tbl说明 WHERE (分类ID=" + Str(Me.分类ID) + ")"
End If
End Sub
这些代号该怎样写,我的意思只要满足部门或分类其中一个为空时

真主

Private Sub 目录ID_GotFocus()

'如果[部门]或[分类]为空,[目录]无法使用
If IsNull([部门ID]) Then
  Me.部门ID.SetFocus
ElseIf IsNull([分类ID]) Then
  Me.分类ID.SetFocus
Else
    '根据选择的分类显示目录
    'RowSource就是行来源
    Me.目录ID.RowSource = "SELECT 目录ID, 目录 FROM help_tbl说明 WHERE (分类ID=" + Str(Me.分类ID) + ")"
End If
End Sub
我改好了，大家不要像我一样语句乱写，电脑他不认的喔!