我有3張桌子，看起來像這樣：Location Node Sektor----- ------- -------PK: ID - Autonumber PK: ID - Autonumber PK: ID - AutonumberName NodeName SektorHeight Aksess FrequencyLatitude Tag CoverageLongtitude IP每個(gè)位置都與多個(gè)節(jié)點(diǎn)相連，而這些節(jié)點(diǎn)又與多個(gè)偵聽器相連。現(xiàn)在有趣的部分。在Microsoft Access中，您可以創(chuàng)建允許用戶輕松添加數(shù)據(jù)的架構(gòu)。我的最終表如下所示，我想使用自己的架構(gòu)將數(shù)據(jù)插入到其中：Customers-------PK: CustIDNameSubscribtionSektor這是我想要完成魔術(shù)的地方。我希望用戶能夠首先選擇一個(gè)位置，然后向其顯示可用節(jié)點(diǎn)（最好是在下拉列表中），最后他可以為他添加的客戶選擇正確的選址器。有人知道這樣做很簡單嗎？我開始為此創(chuàng)建一個(gè)宏，但是我對宏的記憶確實(shí)是不好的atm，而且我沒有與atm一起使用的正確文獻(xiàn)來查找它。尋求幫助=）
1 回答
絕地?zé)o雙
TA貢獻(xiàn)1946條經(jīng)驗(yàn) 獲得超4個(gè)贊
命名任何名稱確實(shí)是一個(gè)非常糟糕的主意。
在我看來，您需要級聯(lián)的組合框。您將需要一點(diǎn)VBA。
在名為frmForm的形式上的兩個(gè)組合框，例如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
您還將需要一個(gè)表單事件：
Private Sub Form_Current()
Me.cboNode.Requery
End Sub
添加回答
舉報(bào)
0/150
提交
取消