0

我在数据表表单上有两个级联查找表组合框。（SessionCategories - SessionTypes）。我有以下问题：

1）当表单加载时，我只看到与第一个 SessionCategories ID 对应的 SessionTypes 值。

2) 当我更改 SessionCategories 组合上的值时，所有 SessionTypes 值都会在数据表中更改，而不仅仅是选定的值。

有任何想法吗？我需要在表单加载中包含一些内容吗？更多信息和以下几种不同的方法。

谢谢。

ATHLETE_SESSION table
sessionOverviewID
sessionTypeID

SESSION_CATEGORIES
sessionOverviewID   sessionOverview
1   aerobic
2   anaerobic 


SESSION_TYPE
sessionTypeID   sessionType sessionOverviewID
1   anaerobic1  2
2   anaerobic2  2
3   anaerobic3  2
4   aerobic1    1
5   aerobic2    1
6   aerobic3    1

sessionCategoriesID lookup properties:
Display control: Combo Box
Row Source Type: Table/Query
Row Source: SessionCategories
Bound Column: 1
Column Count: 2
Column Widths: 0cm;2cm

sessionTypeID lookup properties:
Display control: Combo Box
Row Source Type: Table/Query
Row Source:
Bound Column: 1
Column Count: 2
Column Widths: 0cm;2cm


1st approach:

Private Sub comboSessionCategories_AfterUpdate()

Dim strSQL As String
strSQL = "SELECT SessionType.sessionTypeID, SessionType.sessionType FROM SessionType WHERE (((SessionType.sessionOverviewID)=" & [Forms]![Session]![comboSessionOverview] & "))"
Me.comboSessionType.RowSource = strSQL

End Sub

2nd approach:

Private Sub comboSessionCategories_AfterUpdate()

Me.comboSessionType.RowSource = "SELECT SessionType.sessionTypeID, SessionType.sessionType" & _
" FROM SessionType WHERE SessionType.sessionOverviewID=" & Me.comboSessionOverview
Me.comboSessionType = Me.comboSessionType.ItemData(0)

End Sub
4

0 回答 0