1 回答
TA贡献1946条经验 获得超4个赞
命名任何名称确实是一个非常糟糕的主意。
在我看来,您需要级联的组合框。您将需要一点VBA。
在名为frmForm的形式上的两个组合框,例如cboLocation和cboNodes
cboLocation
RowSource: SELECT ID, [Name]
FROM Locations
ORDER BY [Name]
ColumnCount: 2
ColumnWidths: 0;2.00cm ''The second column can be any suitable width
LimitToList: Yes
大事记:
Private Sub cboLocation_AfterUpdate()
Me.cboNode.Requery
End Sub
CboNode
RowSource: SELECT ID, NodeName
FROM Nodes
WHERE IP=[Forms]![frmForm]![cboLocation]
ORDER BY NodeName
ColumnCount: 2
ColumnWidths: 0;2.00 ''Ditto
LimitToList: Yes
大事记:
Private Sub cboNode_GotFocus()
If Trim(Me.cboLocation & "") = vbNullString Then
MsgBox "Please select location"
Me.cboLOcation.SetFocus
End If
End Sub
您还将需要一个表单事件:
Private Sub Form_Current()
Me.cboNode.Requery
End Sub
添加回答
举报