Я предполагаю, что ваша таблица LOCATION имеет 3 поля:
LocationID
LocationName
TypeID
, а таблица TYPE имеет 2 поля:
TypeID
TypeName
Если это правда, чем create для вашего комбинированного события cmbType :
Private Sub cmbType_AfterUpdate()
If isnull(cmbType) Then
Me.Filter = ""
Me.FilterOn = False
Else
Me.Filter = "TypeID = " & cmbType.column(0)
Me.FilterOn = True
End If
End Sub
Вы должны установить эти свойства (вы также можете установить их в окне свойств):
Private Sub Form_Load()
Me.RecordSource = "SELECT * FROM LOCATION"
Me.txtLocation.ControlSource = "LocationName"
Me.cmbType.RowSource = "SELECT TypeID, LocationName FROM TYPE"
Me.cmbType.BoundColumn = 1
Me.cmbType.ColumnCount = 2
Me.cmbType.ColumnWidths = "0;"
End Sub
Надеюсь, я ничего не забыл. Я не проверял это.